// --- End
// --- End
-static char *VB_Name = "MainForm";
-static boolean VB_GlobalNameSpace = False;
-static boolean VB_Creatable = False;
-static boolean VB_PredeclaredId = True;
-static boolean VB_Exposed = False;
+// static char *VB_Name = "MainForm";
+// static boolean VB_GlobalNameSpace = False;
+// static boolean VB_Creatable = False;
+// static boolean VB_PredeclaredId = True;
+// static boolean VB_Exposed = False;
+
// --- Option Explicit
// --- Option Compare Text
const char *AppTitle = "MegaPlex";
+#if 0
+
static char *GetSpeedDescriptionFPS(currency FrameDelayUS)
{
static char *GetSpeedDescriptionFPS;
return GetSpeedIndex;
}
-#if 0
-
static long Get_LastOpenFilter()
{
static long LastOpenFilter;
static void CountDown(long HalfSeconds, int bDisplayBar)
{
+
+#if 0
+
long i;
int k;
long dT, Delta;
shpProgress.Visible = False;
// lblFrameCount = 0
+
+#endif
+
}
+#if 0
+
static char *GetValidTempPath()
{
static char *GetValidTempPath;
return GetValidTempPath;
}
-#if 0
-
static char *GetMyTempFileName()
{
static char *GetMyTempFileName;
{
int X, Y;
+#if 1
+ printf("::: DisplayLevel (%d, %d, %d)\n", Loaded, LevelLoaded, bPlaying);
+#endif
+
if (! Loaded)
return;
if (! LevelLoaded)
return;
-#if 0
+#if 1
SetDisplayRegion();
#endif
if (bPlaying)
{
+#if 1
+ printf("::: DisplayLevel [%ld, %ld, %ld, %ld]...\n",
+ DisplayMinY, DisplayMaxY, DisplayMinX, DisplayMaxX);
+#endif
+
for (Y = DisplayMinY; Y <= DisplayMaxY; Y++)
{
for (X = DisplayMinX; X <= DisplayMaxX; X++)
{
+#if 0
+ printf("::: DrawFieldNoAnimated(%d, %d)\n", X, Y);
+#endif
DrawFieldNoAnimated(X, Y);
}
}
{
for (X = DisplayMinX; X <= DisplayMaxX; X++)
{
+#if 0
+ printf("::: DrawFieldAnimated(%d, %d)\n", X, Y);
+#endif
DrawFieldAnimated(X, Y);
}
}
{
for (X = DisplayMinX; X <= DisplayMaxX; X++)
{
+#if 0
+ printf("::: DrawField(%d, %d)\n", X, Y);
+#endif
DrawField(X, Y);
}
}
long InfoCount;
boolean Oldflag;
int Msg;
- long LastIndex;
- boolean bBlock;
+ static long LastIndex = 0;
+ static boolean bBlock = False;
if (bBlock)
return;
#endif
-static void Form_Load()
+void Form_Load()
{
#if 0
picViewPort.ScaleMode = vbPixels;
+#endif
+
PauseMode = 0;
// BaseWidth = 16
+
+#if 0
menBorder_Click();
+#endif
+
Loaded = True;
+
+#if 0
+
ReStretch(Stretch);
LoadKeyIndicators();
- Show;
+ Show();
FillFileList(CurPath);
if (s.Read("ShowSplash", True))
static void fpsTim_Timer()
{
currency TickDiff;
- int count5;
+ static int count5 = 0;
count5 = count5 + 1;
if (4 < count5)
// DisplayLevel True
}
+#endif
+
void SetDisplayRegion()
{
+#if 1
+ if (0)
+#else
if (! menBorder.Checked)
+#endif
{
DisplayMinX = 1;
DisplayMaxX = FieldWidth - 2;
DisplayMinY = 1;
DisplayMaxY = FieldHeight - 2;
DisplayHeight = FieldHeight;
+
if (LevelLoaded)
DrawFrame(1);
DisplayMinY = 0;
DisplayMaxY = FieldHeight - 1;
DisplayHeight = FieldHeight + 2;
+
if (LevelLoaded)
RestoreFrame();
}
}
+#if 0
+
static void menCopy_Click()
{
FMark.Copy;
void Let_PanelVisible(boolean NewVal)
{
- boolean HidePanel;
+ static boolean HidePanel = False;
if (HidePanel != NewVal)
return;
static void menPause_Click()
{
- StdPicture OldPic;
- char *OldText;
+ static StdPicture OldPic;
+ static char *OldText = 0;
PauseMode = (PauseMode != 0 ? 0 : 0);
if (PauseMode != 0)
int FNum;
char *LogPath, *OutStr, *ReRecPath, *SPPath;
boolean bEqual;
- boolean QuitFlag;
+ static boolean QuitFlag = False;
if (cmdPlayAll.STRING_IS_LIKE(Caption, "Play) All Demos")
{
// static void menPlay_Click()
void menPlay_Click()
{
-
#if 0
boolean OldEditFlag;
#endif
LastFrame = 0;
- LastTick = T.TickNow;
+#if 0
+ LastTick = T.TickNow();
+#endif
#if 0
#endif
subFetchAndInitLevelB();
+
// Trace "MainForm", "CountDown 1"
CountDown(2, (0 == DemoFlag));
// Trace "MainForm", "Call GoPlay"
+
GoPlay();
+
// Trace "MainForm", "GoPlay returned"
#if 0
bPlaying = False;
// Trace "MainForm", "Call subFetchAndInitLevel"
+
subFetchAndInitLevel();
+
// Trace "MainForm", "subFetchAndInitLevel returned"
+
Stage.Blt();
#if 0
if (! Loaded)
{
+#if 1
+ printf("::: NewStretch == %d\n", NewStretch);
+#endif
+
Stretch = NewStretch;
return;
}
int i;
boolean Tmp;
long Col;
- boolean LastState[5 + 1];
+ static boolean LastState[5 + 1];
// For i = 1 To 5
// State(i) = False