#include "Globals.h"
-static void ReadDemo();
-void ReadLevel();
-// static char *VB_Name = "modGlobals";
-
-// --- Option Explicit
-// --- Option Compare Text
-// --- Option Base 0
-
-// --- const long StretchWidth = 16;
-// --- const long StretchWidth2 = StretchWidth / 2;
-// --- const long BaseWidth = 16;
-// --- const int TwoPixels = 2;
-
-boolean Original;
-boolean Cracked;
-boolean Level_Arg;
-boolean EGA_Arg;
-boolean Record_Fix;
-boolean SpeedKeys;
-boolean Level_Fix;
-boolean Dead_Code;
-boolean Redundant;
-boolean Alignments;
-boolean Ctrl_Alt_Fix;
-boolean Protection;
-boolean EP_ENHANCE;
-boolean EP_DEMO;
-boolean EP_DEBUG;
-boolean EXTRASPEED;
-boolean TIMINGFIX;
-boolean SafeRecord;
-boolean Norm_Time;
-boolean EP_OLD8;
-boolean SAVEGAME;
-boolean HP_DEMO;
-boolean ScreenFix;
-boolean DemoRecordFix;
-boolean DebugSwitch;
-boolean Ver62;
-boolean Ver62test;
-boolean Ver63;
-boolean Ver64;
+void ReadLevel();
int LevelNumber;
-char *CurPath, *OrigPath, *TmpPath;
boolean LevelLoaded;
-long SignatureDelay;
-boolean bSignatureAvailable;
-boolean bCapturePane;
+boolean DemoAvailable;
+boolean menBorder;
int FieldWidth; // = 60
int FieldHeight; // = 24
#else
int RandomSeed;
#endif
-currency DeltaT; // Interval between two frames (in ms)
-long DeltaTPlay, DeltaTDemo;
-boolean BlockingSpeed;
-
-// --- const int posFrameCorner = 55;
-// --- const int posFrameVertical = 110;
-// --- const int posFrameHorizontal = 111;
int FreezeZonks;
+LevelInfoType LInfo;
+
+float Stretch = 1; // , StretchWidth%, TwoPixels!
+
+int ScrollMinX, ScrollMaxX, ScrollMinY, ScrollMaxY;
+int ScrollX, ScrollY;
+
// constants for Fixed Fields:
// --- const int fiSpace = 0; // &H00 space(28 = wall space ...)
// --- const int fiZonk = 1; // &H01 zonk
// --- const int keySpace = 9;
#if 0
-int *aniBug, *aniZonkRollRight, *aniZonkRollLeft;
-int *aniInfotronRollRight, *aniInfotronRollLeft;
-int *aniSnikSnak, *aniElectron, *aniExplosion;
-int *aniTouchBase, *aniTouchInfotron, *aniTouchRedDisk;
-// --- const int aniExplosionInfo = 111;
-// --- const int aniSnikSnakUp = 159;
-// --- const int aniSnikSnakDown = 167;
-// --- const int aniSnikSnakLeft = 239;
-// --- const int aniSnikSnakRight = 247;
-// --- const int aniMurphyYawn = 56;
-// --- const int aniMurphySleepLeft = 71;
-// --- const int aniMurphySleepRight = 68;
-int *aniMurphyExit; // , aniMurphyFaceLeft%, aniMurphyFaceRight%
-int *aniMurphyEatLeft, *aniMurphyEatRight; // , aniMurphyEatRightRedDisk
-int *aniMurphyEatUpLeft, *aniMurphyEatUpRight, *aniSplitUpDown;
-int *aniYellowDisk, *aniOrangeDisk, *aniRedDisk;
-// --- const int aniMurphyTouchUp = 46;
-// --- const int aniMurphyTouchLeft = 95;
-// --- const int aniMurphyTouchDown = 47;
-// --- const int aniMurphyTouchRight = 94;
-int *aniEatInfotronLeft, *aniEatInfotronRight;
-// --- const int aniPushLeft = 45;
-// --- const int aniPushRight = 44;
-// --- const int aniPushUpDown = 79;
-#endif
-
-#if 1
int aniFramesBug[] = { 74, 75, 76, 77, 78, 77, 76, 77, 78, 77, 76, 75, 74, 25 };
int aniFramesZonkRollRight[] = { 198, 197, 196, 195, 194, 193, 192, 1, -1 };
int aniFramesZonkRollLeft[] = { 192, 193, 194, 195, 196, 197, 198, 1, -1 };
int aniFramesRedDisk[] = { 20, -1 };
#endif
-#if 1
-
int fiGraphic[] =
{
aniSpace,
}
}
-#endif
-
void InitGlobals()
{
-#if 0
- aniBug = Array(74, 75, 76, 77, 78, 77, 76, 77, 78, 77, 76, 75, 74, 25);
- aniZonkRollRight = Array(198, 197, 196, 195, 194, 193, 192, 1, -1);
- aniZonkRollLeft = Array(192, 193, 194, 195, 196, 197, 198, 1, -1);
- aniInfotronRollRight = Array(206, 205, 204, 203, 202, 201, 200, 4);
- aniInfotronRollLeft = Array(200, 201, 202, 203, 204, 205, 206, 4);
- aniSnikSnak = Array(121, 122, 123, 124, 125, 126, 127, 120, 121);
- aniElectron = Array(144, 145, 146, 147, 148, 149, 150, 151, 144);
- aniExplosion = Array(3, 103, 104, 105, 106, 107, 108, 109, 0);
- aniTouchBase = Array(80, 81, 82, 83, 84, 85, 86, 0, -1);
- aniTouchInfotron = Array(87, 88, 89, 91, 92, 93, 0, -1); // Only seven frames!!!!
- aniTouchRedDisk = Array(96, 97, 98, 99, 100, 101, 102, 0, -1);
- aniMurphyExit = Array(46, 46, 46, 46, 47, 47, 47, 47, 48, 48, 48, 48, 49, 49, 49, 49, 50, 50, 50, 50, 51, 51, 51, 51, 52, 52, 52, 52, 53, 53, 53, 53, 54, 54, 54, 54, 0, 0, 0, 0, -1);
- aniMurphyEatLeft = Array(176, 177, 178, 179, 180, 181, 182, 183, -1);
- aniMurphyEatRight = Array(184, 185, 186, 187, 188, 189, 190, 191, -1);
- aniMurphyEatUpLeft = Array(183, 182, 181, 180, 179, 178, 177, 176, -1);
- aniMurphyEatUpRight = Array(191, 190, 189, 188, 187, 186, 185, 184, -1);
- // aniMurphyEatRightRedDisk = Array(184, 184, 185, 186, 187, 188, 189, 190, 191, -1) '9 frames!
- aniEatInfotronLeft = Array(209, 211, 213, 215, 217, 219, 221, 223, -1);
- aniEatInfotronRight = Array(224, 226, 228, 230, 232, 234, 236, 238, -1);
- aniSplitUpDown = Array(3, 3, 3, 3, 3, 3, 3, 3, -1);
- aniYellowDisk = Array(18, 18, 18, 18, 18, 18, 18, 18, -1);
- aniOrangeDisk = Array(8, 8, 8, 8, 8, 8, 8, 8, -1);
- aniRedDisk = Array(20, -1);
-#endif
-
- InitPseudoCompileFlags();
- UserDragFlag = False;
AutoScrollFlag = True;
FreezeZonks = 0;
- BlockingSpeed = False;
LevelLoaded = False;
FieldWidth = 60;
FieldHeight = 24;
HeaderSize = 96;
FieldMax = (FieldWidth * FieldHeight) + HeaderSize - 1;
LevelMax = (FieldWidth * FieldHeight) - 1;
- Let_ModifiedFlag(False);
bPlaying = False;
- gSignature = "";
- bSignatureAvailable = False;
- FirstDemoByte = 0x81;
- MySignature = "";
-}
-
-void InitPseudoCompileFlags()
-{
- Cracked = 1; // If protection Then crack it
- Level_Arg = 1; // :number is cmd line option
- // Level_Arg = 0 ' Remove Level cmd line option
- EGA_Arg = 1; // EGA is command line option
- Record_Fix = 1; // Assemble with fixed Demo rec
- SpeedKeys = 0; // Remove Speed Keys fix
- Level_Fix = 1; // Assemble with Level Fix
- Dead_Code = 0; // Remove dead code
- Redundant = 0; // Remove redundant code
- Alignments = 1; // Assemble with alignments
- Ctrl_Alt_Fix = 1; // Assemble with Ctrl/Alt fix
- Protection = 0; // Remove protection code,do HP
- // EP added by EP for version 5.
- EP_ENHANCE = 1; // Some more nice things (EP)
- EP_DEMO = 1; // Use .SP files for demos (EP)
- // Including record demo!
- EP_DEBUG = 0; // little cmdline debugging
- EXTRASPEED = 1; // '@' option, superfast!
- TIMINGFIX = 1; // "Fixed" the timing problem..
- // Inactive If DemoRecordFix Then1
- SafeRecord = 1; // skip debug keys in recording
- Norm_Time = 1; // force automatic speed test,
- // save result and then do as
- // requested from cmd line.
- EP_OLD8 = 1; // call old int8 from current.
- SAVEGAME = 1; // Allow saving to SUPAPLEX.SAV
- HP_DEMO = 1; // Use fixed demo routines 5.5
- ScreenFix = 1; // No menu-write to gamy field
- DemoRecordFix = 1; // Demo record timing fix on
- DebugSwitch = 1; // Allow Ctrl/Alt-ScrollLock
- Ver62 = 1; // Version 6.2 stuff
- Ver62test = 0; // Version 6.2 test stuff
- Ver63 = 1; // Version 6.3 stuff
- Ver64 = 1; // Version 6.4 stuff
-
}
int GetSI(int X, int Y)
{
- int GetSI;
-
- GetSI = Y * FieldWidth + X;
-
- return GetSI;
+ return Y * FieldWidth + X;
}
int GetX(int si)
{
- int GetX;
-
- GetX = si % FieldWidth;
-
- return GetX;
+ return si % FieldWidth;
}
int GetY(int si)
{
- int GetY;
-
- GetY = si / FieldWidth;
-
- return GetY;
+ return si / FieldWidth;
}
int GetStretchX(int si)
{
- int GetStretchX;
-
- GetStretchX = StretchWidth * (si % FieldWidth);
-
- return GetStretchX;
+ return StretchWidth * (si % FieldWidth);
}
int GetStretchY(int si)
{
- int GetStretchY;
-
- GetStretchY = StretchWidth * (si / FieldWidth);
-
- return GetStretchY;
-}
-
-void OLD_ReadLevel()
-{
-#if 1
- static char CurPathTEST[1024];
-#endif
-
- // int FNum;
- FILE *FNum;
- long i;
- // byte T;
-
-#if 1
- // CurPath = "/home/aeglos/projects/rocksndiamonds/levels/TEST_supaplex/supaplex/levels.dat";
-
-#if 0
- CurPath = "/home/aeglos/projects/rocksndiamonds/supaplex_demo_JENS0001.sp";
- LevelNumber = 1;
-#else
-
-#if 0
- // sprintf(CurPathTEST, "/home/aeglos/projects/rocksndiamonds/levels/TEST_supaplex/test_solutions/%03d.sp", level_nr);
-
- sprintf(CurPathTEST, "/home/aeglos/projects/Level_Stuff/SUPAPLEX/SUPAPLEX_LEVELS/Set77/77S%03d.SP", level_nr);
-#else
- sprintf(CurPathTEST, "/home/aeglos/projects/Level_Stuff/SUPAPLEX/SUPAPLEX_LEVELS/solve00/JENS%04d.SP", level_nr);
-#endif
-
- CurPath = CurPathTEST;
- LevelNumber = level_nr;
-#endif
-
-#endif
-
- DemoAvailable = False;
-
- if (STRING_IS_LIKE(CurPath, "*.mpx") ||
- STRING_IS_LIKE(CurPath, "*.MPX"))
- {
- printf("::: reading MPX file ...\n");
-
- ReadMPX();
- return;
- }
-
- if (STRING_IS_LIKE(CurPath, "*.sp") ||
- STRING_IS_LIKE(CurPath, "*.SP"))
- {
- printf("::: reading SP file ...\n");
-
- ReadDemo();
- return;
- }
-
- if (DemoFlag != 0)
- {
- printf("::: reading demo file ...\n");
-
- ReadDemo();
- return;
- }
-
- printf("::: reading level file ...\n");
-
- FileMax = 0;
- FieldWidth = 60;
- FieldHeight = 24;
- HeaderSize = 96;
-
- FieldMax = (FieldWidth * FieldHeight) + HeaderSize - 1;
- LevelMax = (FieldWidth * FieldHeight) - 1;
-
- PlayField8 = REDIM_1D(sizeof(byte), 0, FieldMax + 1 - 1);
- DisPlayField = REDIM_1D(sizeof(byte), 0, FieldMax + 1 - 1);
-
- // FNum = FreeFile();
-
- // --- On Error GoTo ReadLevelEH
-
- printf("::: '%s', %d\n", CurPath, LevelNumber);
-
- FNum = fopen(CurPath, "rb");
-
- i = (LevelNumber - 1) * ((long)(FieldMax) + 1) + 1;
-#if 1
- FILE_GET(FNum, i, PlayField8, FieldMax + 1);
-#else
- FILE_GET(FNum, i, &PlayField8, sizeof(PlayField8));
-#endif
-
- i = (LevelNumber) * ((long)(FieldMax) + 1) + 1 - HeaderSize;
- FILE_GET(FNum, i, &LInfo, sizeof(LInfo)); // store level info in an extra structure
-
- fclose(FNum);
-
- // --- On Error GoTo 0
-
- if (FieldMax < FileMax)
- DemoAvailable = True;
-
- ReadSignature();
-
- PlayField16 = REDIM_1D(sizeof(int), -FieldWidth, FieldMax);
-
- for (i = 0; i <= FieldMax; i++)
- {
- PlayField16[i] = PlayField8[i];
- DisPlayField[i] = PlayField8[i];
- PlayField8[i] = 0;
- }
-
-#if 0
- {
- int x, y;
-
- for (x = 0; x < 60; x++)
- printf("%02d.", x);
- printf("\n");
-
- for (x = 0; x < 60; x++)
- printf("...");
- printf("\n");
-
- for (y = 0; y < 24; y++)
- {
- for (x = 0; x < 60; x++)
- {
- printf("%02d.", PlayField16[y * 60 + x]);
- }
-
- printf("\n");
- }
- }
-#endif
-
- AnimationPosTable = REDIM_1D(sizeof(int), 0, LevelMax - 2 * FieldWidth);
- AnimationSubTable = REDIM_1D(sizeof(byte), 0, LevelMax - 2 * FieldWidth);
- TerminalState = REDIM_1D(sizeof(byte), FieldWidth, LevelMax - FieldWidth);
-
- GravityFlag = LInfo.InitialGravity;
- FreezeZonks = LInfo.InitialFreezeZonks;
-
- subRandomize();
-
- LevelLoaded = True;
-
- return;
-
-#if 0
-ReadLevelEH:
- Close();
-#endif
-}
-
-static void ReadDemo()
-{
- // int FNum, i;
- FILE *FNum;
- int i;
- // byte T;
-
- int RecordNumber = LevelNumber;
-
-#if 1
- RecordNumber = 1; // always "1" for "*.sp" style one level/demo files
-#endif
-
- FieldWidth = 60;
- FieldHeight = 24;
- HeaderSize = 96;
-
- FieldMax = (FieldWidth * FieldHeight) + HeaderSize - 1;
- LevelMax = (FieldWidth * FieldHeight) - 1;
-
- // --- On Error GoTo ReadDemoEH
-
- FileMax = FileLen(CurPath) - 1;
-
- PlayField8 = REDIM_1D(sizeof(byte), 0, FileMax + 1 - 1);
- DisPlayField = REDIM_1D(sizeof(byte), 0, FieldMax + 1 - 1);
-
- // FNum = FreeFile();
-
- FNum = fopen(CurPath, "rb");
-
- i = (RecordNumber - 1) * ((long)(FieldMax) + 1) + 1;
-#if 1
- FILE_GET(FNum, i, PlayField8, FileMax + 1);
-#else
- FILE_GET(FNum, i, &PlayField8, sizeof(PlayField8));
-#endif
-
- i = (RecordNumber) * ((long)(FieldMax) + 1) + 1 - HeaderSize;
- FILE_GET(FNum, i, &LInfo, sizeof(LInfo)); // store level info in an extra structure
-
- fclose(FNum);
-
- // --- On Error GoTo 0
-
- if (FieldMax < FileMax)
- DemoAvailable = True;
-
- ReadSignature();
-
- PlayField16 = REDIM_1D(sizeof(int), -FieldWidth, FieldMax);
-
- for (i = 0; i <= FieldMax; i++)
- {
- PlayField16[i] = PlayField8[i];
- DisPlayField[i] = PlayField8[i];
- PlayField8[i] = 0;
- }
-
- AnimationPosTable = REDIM_1D(sizeof(int), 0, LevelMax - 2 * FieldWidth);
- AnimationSubTable = REDIM_1D(sizeof(byte), 0, LevelMax - 2 * FieldWidth);
- TerminalState = REDIM_1D(sizeof(byte), 0, FieldMax + 1 - 1);
-
- DemoPointer = FieldMax + 1;
- DemoOffset = DemoPointer;
- DemoKeyRepeatCounter = 0;
-
- // DemoFlag = 1
- // DemoAvailable = True
-
- GravityFlag = LInfo.InitialGravity;
- FreezeZonks = LInfo.InitialFreezeZonks;
-
-#if 0
- printf("::: Globals.c: ReadDemo(): %d / %d\n", GravityFlag, FreezeZonks);
-#endif
-
-
-
-#if 0
- /* !!! TESTING BIG / LITTLE ENDIAN STUFF !!! */
- LInfo.DemoRandomSeed =
- LowByte(LInfo.DemoRandomSeed) << 8 |
- HighByte(LInfo.DemoRandomSeed);
- for (i = 0; i < 10; i++)
- LInfo.SpecialPort[i].PortLocation =
- LowByte(LInfo.SpecialPort[i].PortLocation) << 8 |
- HighByte(LInfo.SpecialPort[i].PortLocation);
-
- printf("::: swapping file bytes for DemoRandomSeed etc.\n");
-#else
- printf("::: keeping file bytes in (maybe wrong) 'native' order.\n");
-#endif
-
-#if 1
- printf("::: LInfo.DemoRandomSeed == %d\n", LInfo.DemoRandomSeed);
-#endif
-
-#if 0
- printf("::: LInfo.SpecialPortCount == %d\n", LInfo.SpecialPortCount);
- for (i = 0; i < LInfo.SpecialPortCount; i++)
- {
- int port_x = (LInfo.SpecialPort[i].PortLocation / 2) % FieldWidth;
- int port_y = (LInfo.SpecialPort[i].PortLocation / 2) / FieldWidth;
-
- printf("::: %d: port_location == %d => (%d, %d)\n",
- i, LInfo.SpecialPort[i].PortLocation, port_x, port_y);
- }
-#endif
-
- RandomSeed = LInfo.DemoRandomSeed;
-
-#if 0
- printf("::: SpeedByte == %d\n", LInfo.SpeedByte);
- printf("::: CheckSumByte == %d\n", LInfo.CheckSumByte);
- printf("::: RandomSeed == %d\n", RandomSeed);
-
-#if 0
- {
- int i;
-
- for (i = 0; i < 10; i++)
- printf("::: TEST random number: %d\n", subGetRandomNumber());
- }
-#endif
-
-#endif
-
- LevelLoaded = True;
-
- return;
-
-#if 0
-ReadDemoEH:
- Close();
-#endif
+ return StretchWidth * (si / FieldWidth);
}
void ReadLevel()
{
-#if 0
- OLD_ReadLevel();
-
- // return;
-#endif
-
copyInternalEngineVars_SP();
#if 1
LevelNumber = level_nr;
-#if 0
- if (!DemoFlag || !DemoAvailable)
- subRandomize();
-#endif
-
LevelLoaded = True;
}
int Min(int A, int B)
{
- int Min;
-
- if (A < B)
- Min = A;
- else
- Min = B;
-
- return Min;
+ return (A < B ? A : B);
}
int Max(int A, int B)
{
- int Max;
-
- if (A < B)
- Max = B;
- else
- Max = A;
-
- return Max;
+ return (A < B ? B : A);
}
projects / rocksndiamonds.git / blobdiff