src/game_sp/Globals.c

   1 // ----------------------------------------------------------------------------
   2 // Globals.c
   3 // ----------------------------------------------------------------------------
   4
   5 #include "Globals.h"
   6
   7 static void ReadDemo();
   8 void ReadLevel();
   9
  10 // static char *VB_Name = "modGlobals";
  11
  12 // --- Option Explicit
  13 // --- Option Compare Text
  14 // --- Option Base 0
  15
  16 // --- const long StretchWidth = 16;
  17 // --- const long StretchWidth2 = StretchWidth / 2;
  18 // --- const long BaseWidth = 16;
  19 // --- const int TwoPixels = 2;
  20
  21 boolean Original;
  22 boolean Cracked;
  23 boolean Level_Arg;
  24 boolean EGA_Arg;
  25 boolean Record_Fix;
  26 boolean SpeedKeys;
  27 boolean Level_Fix;
  28 boolean Dead_Code;
  29 boolean Redundant;
  30 boolean Alignments;
  31 boolean Ctrl_Alt_Fix;
  32 boolean Protection;
  33 boolean EP_ENHANCE;
  34 boolean EP_DEMO;
  35 boolean EP_DEBUG;
  36 boolean EXTRASPEED;
  37 boolean TIMINGFIX;
  38 boolean SafeRecord;
  39 boolean Norm_Time;
  40 boolean EP_OLD8;
  41 boolean SAVEGAME;
  42 boolean HP_DEMO;
  43 boolean ScreenFix;
  44 boolean DemoRecordFix;
  45 boolean DebugSwitch;
  46 boolean Ver62;
  47 boolean Ver62test;
  48 boolean Ver63;
  49 boolean Ver64;
  50
  51 int LevelNumber;
  52 char *CurPath, *OrigPath, *TmpPath;
  53 boolean LevelLoaded;
  54 long SignatureDelay;
  55
  56 boolean bCapturePane;
  57
  58 int FieldWidth; // = 60
  59 int FieldHeight; // = 24
  60 int HeaderSize; // = 96
  61 int FieldMax, LevelMax;
  62 long FileMax;
  63 int *PlayField16;
  64 byte *PlayField8;
  65 byte *DisPlayField;
  66
  67 // Public DisplayMin%, DisplayMax%, DisplayWidth%, DisplayHeight%
  68
  69 int TimerVar;
  70 #if 1
  71 short RandomSeed;
  72 #else
  73 int RandomSeed;
  74 #endif
  75 currency DeltaT; // Interval between two frames (in ms)
  76 long DeltaTPlay, DeltaTDemo;
  77 boolean BlockingSpeed;
  78
  79 // --- const int posFrameCorner = 55;
  80 // --- const int posFrameVertical = 110;
  81 // --- const int posFrameHorizontal = 111;
  82
  83 int FreezeZonks;
  84
  85 // constants for  Fixed Fields:
  86 // --- const int fiSpace = 0; // &H00  space(28 = wall space ...)
  87 // --- const int fiZonk = 1; // &H01  zonk
  88 // --- const int fiBase = 2; // &H02  base
  89 // --- const int fiMurphy = 3; // &H03  Murphy
  90 // --- const int fiInfotron = 4; // &H04  infotron
  91 // --- const int fiRAM = 5; // &H05  small RAM chip
  92 // --- const int fiHardWare = 6; // &H06  hardware (square, standard pyramid shape)
  93 // --- const int fiExit = 7; // &H07  exit
  94 // --- const int fiOrangeDisk = 8; // &H08  brown/orange utility disk
  95 // --- const int fiPortRight = 9; // &H09  port 1 left to right
  96 // --- const int fiPortDown = 10; // &H0A  port 1 up to down
  97 // --- const int fiPortLeft = 11; // &H0B  port 1 right to left
  98 // --- const int fiPortUp = 12; // &H0C  port 1 down to up
  99 // --- const int fiSpPortRight = 13; // &H0D  port 2 left to right (gravity change)
 100 // --- const int fiSpPortDown = 14; // &H0E  port 2 up to down     (gravity change)
 101 // --- const int fiSpPortLeft = 15; // &H0F  port 2 right to left (gravity change)
 102 // --- const int fiSpPortUp = 16; // &H10  port 2 down to up     (gravity change)
 103 // --- const int fiSnikSnak = 17; // &H11  snik snak
 104 // --- const int fiYellowDisk = 18; // &H12  yellow utility disk
 105 // --- const int fiTerminal = 19; // &H13  terminal
 106 // --- const int fiRedDisk = 20; // &H14  red utility disk
 107 // --- const int fiPortUpAndDown = 21; // &H15  vertical port
 108 // --- const int fiPortLeftAndRight = 22; // &H16  horizontal port
 109 // --- const int fiPortAllDirections = 23; // &H17  horizontal + vertical port
 110 // --- const int fiElectron = 24; // &H18  electron
 111 // --- const int fiBug = 25; // &H19  bug
 112 // --- const int fiRAMLeft = 26; // &H1A  horizontal RAM chip, left (pin 1)
 113 // --- const int fiRAMRight = 27; // &H1B  horizontal RAM chip, right
 114 // --- const int fiHWFirst = 28; // &H1C  hardware (radial blue circular cap + coloured shapes)
 115
 116 // Public Const fiHW1% = 29               '  29 = 1D  hardware (green signal lamp)
 117 // Public Const fiHW2% = 30               '  30 = 1E  hardware (blue signal lamp)
 118 // Public Const fiHW3% = 31               '  31 = 1F  hardware (red signal lamp)
 119 // Public Const fiHW4% = 32               '  32 = 20  hardware (yellow/black diagonal stripes)
 120 // Public Const fiHW5% = 33               '  33 = 21  hardware (yellow resistor + blue + red shapes)
 121 // Public Const fiHW6% = 34               '  34 = 22  hardware (horizontal red capacitor + smd shape)
 122 // Public Const fiHW7% = 35               '  35 = 23  hardware (red + yellow + blue horizontal resistors)
 123 // Public Const fiHW8% = 36               '  36 = 24  hardware (3 red vertical resistors)
 124 // --- const int fiHWLast = 37;             //  37 = 25  hardware (3 yellow horizontal resistors)
 125 // --- const int fiRAMTop = 38;             //  38 = 26  vertical RAM chip, top (pin 1)
 126 // --- const int fiRAMBottom = 39;          //  39 = 27  vertical RAM chip, bottom
 127
 128 // Specials to experiment with ...
 129 // --- const int fiWallSpace = 40;          //  40 = 28  invisible wall (can explode, zonks don't roll off)
 130 // --- const int fiHWTrash1 = 41;           //  41 = 29  hardware trash
 131 // --- const int fiHWTrash2 = 42;           //  42 = 2A  hardware trash
 132 // --- const int fiHWMurphy = 43;           //  43 = 2B  hardware inverted Murphy ... (maybe nice for use?)
 133
 134 // --- const int fiExplosion = 0x1F;
 135
 136 // --- const int keyNone = 0;
 137 // --- const int keyUp = 1;
 138 // --- const int keyLeft = 2;
 139 // --- const int keyDown = 3;
 140 // --- const int keyRight = 4;
 141 // --- const int keySpaceUp = 5;
 142 // --- const int keySpaceLeft = 6;
 143 // --- const int keySpaceDown = 7;
 144 // --- const int keySpaceRight = 8;
 145 // --- const int keySpace = 9;
 146
 147 #if 0
 148 int *aniBug, *aniZonkRollRight, *aniZonkRollLeft;
 149 int *aniInfotronRollRight, *aniInfotronRollLeft;
 150 int *aniSnikSnak, *aniElectron, *aniExplosion;
 151 int *aniTouchBase, *aniTouchInfotron, *aniTouchRedDisk;
 152 // --- const int aniExplosionInfo = 111;
 153 // --- const int aniSnikSnakUp = 159;
 154 // --- const int aniSnikSnakDown = 167;
 155 // --- const int aniSnikSnakLeft = 239;
 156 // --- const int aniSnikSnakRight = 247;
 157 // --- const int aniMurphyYawn = 56;
 158 // --- const int aniMurphySleepLeft = 71;
 159 // --- const int aniMurphySleepRight = 68;
 160 int *aniMurphyExit; // , aniMurphyFaceLeft%, aniMurphyFaceRight%
 161 int *aniMurphyEatLeft, *aniMurphyEatRight; // , aniMurphyEatRightRedDisk
 162 int *aniMurphyEatUpLeft, *aniMurphyEatUpRight, *aniSplitUpDown;
 163 int *aniYellowDisk, *aniOrangeDisk, *aniRedDisk;
 164 // --- const int aniMurphyTouchUp = 46;
 165 // --- const int aniMurphyTouchLeft = 95;
 166 // --- const int aniMurphyTouchDown = 47;
 167 // --- const int aniMurphyTouchRight = 94;
 168 int *aniEatInfotronLeft, *aniEatInfotronRight;
 169 // --- const int aniPushLeft = 45;
 170 // --- const int aniPushRight = 44;
 171 // --- const int aniPushUpDown = 79;
 172 #endif
 173
 174 #if 1
 175 int aniFramesBug[] = { 74, 75, 76, 77, 78, 77, 76, 77, 78, 77, 76, 75, 74, 25 };
 176 int aniFramesZonkRollRight[] = { 198, 197, 196, 195, 194, 193, 192, 1, -1 };
 177 int aniFramesZonkRollLeft[] = { 192, 193, 194, 195, 196, 197, 198, 1, -1 };
 178 int aniFramesInfotronRollRight[] = { 206, 205, 204, 203, 202, 201, 200, 4 };
 179 int aniFramesInfotronRollLeft[] = { 200, 201, 202, 203, 204, 205, 206, 4 };
 180 int aniFramesSnikSnak[] = { 121, 122, 123, 124, 125, 126, 127, 120, 121 };
 181 int aniFramesElectron[] = { 144, 145, 146, 147, 148, 149, 150, 151, 144 };
 182 int aniFramesExplosion[] = { 3, 103, 104, 105, 106, 107, 108, 109, 0 };
 183 int aniFramesTouchBase[] = { 80, 81, 82, 83, 84, 85, 86, 0, -1 };
 184 int aniFramesTouchInfotron[] = { 87, 88, 89, 91, 92, 93, 0, -1 }; // Only seven frames!!!!
 185 int aniFramesTouchRedDisk[] = { 96, 97, 98, 99, 100, 101, 102, 0, -1 };
 186 int aniFramesMurphyExit[] = { 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 };
 187 int aniFramesMurphyEatLeft[] = { 176, 177, 178, 179, 180, 181, 182, 183, -1 };
 188 int aniFramesMurphyEatRight[] = { 184, 185, 186, 187, 188, 189, 190, 191, -1 };
 189 int aniFramesMurphyEatUpLeft[] = { 183, 182, 181, 180, 179, 178, 177, 176, -1 };
 190 int aniFramesMurphyEatUpRight[] = { 191, 190, 189, 188, 187, 186, 185, 184, -1 };
 191   // aniFramesMurphyEatRightRedDisk = { 184, 184, 185, 186, 187, 188, 189, 190, 191, -1) '9 frames!
 192 int aniFramesEatInfotronLeft[] = { 209, 211, 213, 215, 217, 219, 221, 223, -1 };
 193 int aniFramesEatInfotronRight[] = { 224, 226, 228, 230, 232, 234, 236, 238, -1 };
 194 int aniFramesSplitUpDown[] = { 3, 3, 3, 3, 3, 3, 3, 3, -1 };
 195 int aniFramesYellowDisk[] = { 18, 18, 18, 18, 18, 18, 18, 18, -1 };
 196 int aniFramesOrangeDisk[] = { 8, 8, 8, 8, 8, 8, 8, 8, -1 };
 197 int aniFramesRedDisk[] = { 20, -1 };
 198 #endif
 199
 200 #if 1
 201
 202 int fiGraphic[] =
 203 {
 204   aniSpace,
 205   aniZonk,
 206   aniBase,
 207   aniMurphy,
 208   aniInfotron,
 209   aniRAM,
 210   aniHardWare,
 211   aniExit,
 212   aniOrangeDisk,
 213   aniPortRight,
 214   aniPortDown,
 215   aniPortLeft,
 216   aniPortUp,
 217   aniSpPortRight,
 218   aniSpPortDown,
 219   aniSpPortLeft,
 220   aniSpPortUp,
 221   aniSnikSnak,
 222   aniYellowDisk,
 223   aniTerminal,
 224   aniRedDisk,
 225   aniPortUpAndDown,
 226   aniPortLeftAndRight,
 227   aniPortAllDirections,
 228   aniElectron,
 229   aniBug,
 230   aniRAMLeft,
 231   aniRAMRight,
 232   aniHW0,
 233   aniHW1,
 234   aniHW2,
 235   aniHW3,
 236   aniHW4,
 237   aniHW5,
 238   aniHW6,
 239   aniHW7,
 240   aniHW8,
 241   aniHW9,
 242   aniRAMTop,
 243   aniRAMBottom,
 244   aniWallSpace
 245 };
 246
 247 int aniSnikSnakTurningLeft[] =
 248 {
 249   aniSnikSnakTurnUpToLeft,
 250   aniSnikSnakTurnLeftToDown,
 251   aniSnikSnakTurnDownToRight,
 252   aniSnikSnakTurnRightToUp
 253 };
 254
 255 int aniSnikSnakTurningRight[] =
 256 {
 257   aniSnikSnakTurnUpToRight,
 258   aniSnikSnakTurnRightToDown,
 259   aniSnikSnakTurnDownToLeft,
 260   aniSnikSnakTurnLeftToUp
 261 };
 262
 263
 264 int getSequenceLength(int sequence)
 265 {
 266   switch (sequence)
 267   {
 268     case aniBug:
 269       return 14;
 270
 271     case aniElectron:
 272     case aniExplosion:
 273       return 9;
 274
 275     case aniTouchInfotron:
 276       return 7;
 277
 278     case aniMurphyExit:
 279       return 40;
 280
 281     case aniRedDisk:
 282       return 1;
 283
 284     default:
 285       return 8;
 286   }
 287 }
 288
 289 boolean isSnappingSequence(int sequence)
 290 {
 291   switch (sequence)
 292   {
 293     case aniTouchBase:
 294     case aniTouchInfotron:
 295     case aniTouchRedDisk:
 296       return TRUE;
 297
 298     default:
 299       return FALSE;
 300   }
 301 }
 302
 303 #endif
 304
 305 void InitGlobals()
 306 {
 307 #if 0
 308   aniBug = Array(74, 75, 76, 77, 78, 77, 76, 77, 78, 77, 76, 75, 74, 25);
 309   aniZonkRollRight = Array(198, 197, 196, 195, 194, 193, 192, 1, -1);
 310   aniZonkRollLeft = Array(192, 193, 194, 195, 196, 197, 198, 1, -1);
 311   aniInfotronRollRight = Array(206, 205, 204, 203, 202, 201, 200, 4);
 312   aniInfotronRollLeft = Array(200, 201, 202, 203, 204, 205, 206, 4);
 313   aniSnikSnak = Array(121, 122, 123, 124, 125, 126, 127, 120, 121);
 314   aniElectron = Array(144, 145, 146, 147, 148, 149, 150, 151, 144);
 315   aniExplosion = Array(3, 103, 104, 105, 106, 107, 108, 109, 0);
 316   aniTouchBase = Array(80, 81, 82, 83, 84, 85, 86, 0, -1);
 317   aniTouchInfotron = Array(87, 88, 89, 91, 92, 93, 0, -1); // Only seven frames!!!!
 318   aniTouchRedDisk = Array(96, 97, 98, 99, 100, 101, 102, 0, -1);
 319   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);
 320   aniMurphyEatLeft = Array(176, 177, 178, 179, 180, 181, 182, 183, -1);
 321   aniMurphyEatRight = Array(184, 185, 186, 187, 188, 189, 190, 191, -1);
 322   aniMurphyEatUpLeft = Array(183, 182, 181, 180, 179, 178, 177, 176, -1);
 323   aniMurphyEatUpRight = Array(191, 190, 189, 188, 187, 186, 185, 184, -1);
 324   // aniMurphyEatRightRedDisk = Array(184, 184, 185, 186, 187, 188, 189, 190, 191, -1) '9 frames!
 325   aniEatInfotronLeft = Array(209, 211, 213, 215, 217, 219, 221, 223, -1);
 326   aniEatInfotronRight = Array(224, 226, 228, 230, 232, 234, 236, 238, -1);
 327   aniSplitUpDown = Array(3, 3, 3, 3, 3, 3, 3, 3, -1);
 328   aniYellowDisk = Array(18, 18, 18, 18, 18, 18, 18, 18, -1);
 329   aniOrangeDisk = Array(8, 8, 8, 8, 8, 8, 8, 8, -1);
 330   aniRedDisk = Array(20, -1);
 331 #endif
 332
 333   InitPseudoCompileFlags();
 334   UserDragFlag = False;
 335   AutoScrollFlag = True;
 336   FreezeZonks = 0;
 337   BlockingSpeed = False;
 338   LevelLoaded = False;
 339   FieldWidth = 60;
 340   FieldHeight = 24;
 341   HeaderSize = 96;
 342   FieldMax = (FieldWidth * FieldHeight) + HeaderSize - 1;
 343   LevelMax = (FieldWidth * FieldHeight) - 1;
 344   Let_ModifiedFlag(False);
 345   bPlaying = False;
 346   gSignature = "";
 347   bSignatureAvailable = False;
 348   FirstDemoByte = 0x81;
 349   MySignature = "";
 350   InitErrorReporting();
 351 }
 352
 353 void InitPseudoCompileFlags()
 354 {
 355   Cracked = 1;       // If protection Then crack it
 356   Level_Arg = 1;     // :number is cmd line option
 357   // Level_Arg  = 0     ' Remove Level cmd line option
 358   EGA_Arg = 1;       // EGA is command line option
 359   Record_Fix = 1;      // Assemble with fixed Demo rec
 360   SpeedKeys = 0;     // Remove Speed Keys fix
 361   Level_Fix = 1;     // Assemble with Level Fix
 362   Dead_Code = 0;     // Remove dead code
 363   Redundant = 0;     // Remove redundant code
 364   Alignments = 1;      // Assemble with alignments
 365   Ctrl_Alt_Fix = 1;      // Assemble with Ctrl/Alt fix
 366   Protection = 0;      // Remove protection code,do HP
 367   // EP added by EP for version 5.
 368   EP_ENHANCE = 1;      // Some more nice things (EP)
 369   EP_DEMO = 1;       // Use .SP files for demos (EP)
 370   // Including record demo!
 371   EP_DEBUG = 0;      // little cmdline debugging
 372   EXTRASPEED = 1;      // '@' option, superfast!
 373   TIMINGFIX = 1;     // "Fixed" the timing problem..
 374   // Inactive If DemoRecordFix Then1
 375   SafeRecord = 1;      // skip debug keys in recording
 376   Norm_Time = 1;     // force automatic speed test,
 377   // save result and then do as
 378   // requested from cmd line.
 379   EP_OLD8 = 1;       // call old int8 from current.
 380   SAVEGAME = 1;      // Allow saving to SUPAPLEX.SAV
 381   HP_DEMO = 1;       // Use fixed demo routines 5.5
 382   ScreenFix = 1;     // No menu-write to gamy field
 383   DemoRecordFix = 1;     // Demo record timing fix on
 384   DebugSwitch = 1;     // Allow Ctrl/Alt-ScrollLock
 385   Ver62 = 1;       // Version 6.2 stuff
 386   Ver62test = 0;     // Version 6.2 test stuff
 387   Ver63 = 1;       // Version 6.3 stuff
 388   Ver64 = 1;       // Version 6.4 stuff
 389
 390 }
 391
 392 int GetSI(int X, int Y)
 393 {
 394   int GetSI;
 395
 396   GetSI = Y * FieldWidth + X;
 397
 398   return GetSI;
 399 }
 400
 401 int GetX(int si)
 402 {
 403   int GetX;
 404
 405   GetX = si % FieldWidth;
 406
 407   return GetX;
 408 }
 409
 410 int GetY(int si)
 411 {
 412   int GetY;
 413
 414   GetY = si / FieldWidth;
 415
 416   return GetY;
 417 }
 418
 419 int GetStretchX(int si)
 420 {
 421   int GetStretchX;
 422
 423   GetStretchX = StretchWidth * (si % FieldWidth);
 424
 425   return GetStretchX;
 426 }
 427
 428 int GetStretchY(int si)
 429 {
 430   int GetStretchY;
 431
 432   GetStretchY = StretchWidth * (si / FieldWidth);
 433
 434   return GetStretchY;
 435 }
 436
 437 void OLD_ReadLevel()
 438 {
 439 #if 1
 440   static char CurPathTEST[1024];
 441 #endif
 442
 443   // int FNum;
 444   FILE *FNum;
 445   long i;
 446   // byte T;
 447
 448 #if 1
 449   // CurPath = "/home/aeglos/projects/rocksndiamonds/levels/TEST_supaplex/supaplex/levels.dat";
 450
 451 #if 0
 452   CurPath = "/home/aeglos/projects/rocksndiamonds/supaplex_demo_JENS0001.sp";
 453   LevelNumber = 1;
 454 #else
 455
 456 #if 0
 457   // sprintf(CurPathTEST, "/home/aeglos/projects/rocksndiamonds/levels/TEST_supaplex/test_solutions/%03d.sp", level_nr);
 458
 459   sprintf(CurPathTEST, "/home/aeglos/projects/Level_Stuff/SUPAPLEX/SUPAPLEX_LEVELS/Set77/77S%03d.SP", level_nr);
 460 #else
 461   sprintf(CurPathTEST, "/home/aeglos/projects/Level_Stuff/SUPAPLEX/SUPAPLEX_LEVELS/solve00/JENS%04d.SP", level_nr);
 462 #endif
 463
 464   CurPath = CurPathTEST;
 465   LevelNumber = level_nr;
 466 #endif
 467
 468 #endif
 469
 470   DemoAvailable = False;
 471
 472   if (STRING_IS_LIKE(CurPath, "*.mpx") ||
 473       STRING_IS_LIKE(CurPath, "*.MPX"))
 474   {
 475     printf("::: reading MPX file ...\n");
 476
 477     ReadMPX();
 478     return;
 479   }
 480
 481   if (STRING_IS_LIKE(CurPath, "*.sp") ||
 482       STRING_IS_LIKE(CurPath, "*.SP"))
 483   {
 484     printf("::: reading SP file ...\n");
 485
 486     ReadDemo();
 487     return;
 488   }
 489
 490   if (DemoFlag != 0)
 491   {
 492     printf("::: reading demo file ...\n");
 493
 494     ReadDemo();
 495     return;
 496   }
 497
 498   printf("::: reading level file ...\n");
 499
 500   FileMax = 0;
 501   FieldWidth = 60;
 502   FieldHeight = 24;
 503   HeaderSize = 96;
 504
 505   FieldMax = (FieldWidth * FieldHeight) + HeaderSize - 1;
 506   LevelMax = (FieldWidth * FieldHeight) - 1;
 507
 508   PlayField8 = REDIM_1D(sizeof(byte), 0, FieldMax + 1 - 1);
 509   DisPlayField = REDIM_1D(sizeof(byte), 0, FieldMax + 1 - 1);
 510
 511   // FNum = FreeFile();
 512
 513   // --- On Error GoTo ReadLevelEH
 514
 515   printf("::: '%s', %d\n", CurPath, LevelNumber);
 516
 517   FNum = fopen(CurPath, "rb");
 518
 519   i = (LevelNumber - 1) * ((long)(FieldMax) + 1) + 1;
 520 #if 1
 521   FILE_GET(FNum, i, PlayField8, FieldMax + 1);
 522 #else
 523   FILE_GET(FNum, i, &PlayField8, sizeof(PlayField8));
 524 #endif
 525
 526   i = (LevelNumber) * ((long)(FieldMax) + 1) + 1 - HeaderSize;
 527   FILE_GET(FNum, i, &LInfo, sizeof(LInfo)); // store level info in an extra structure
 528
 529   fclose(FNum);
 530
 531   // --- On Error GoTo 0
 532
 533   if (FieldMax < FileMax)
 534     DemoAvailable = True;
 535
 536   ReadSignature();
 537
 538   PlayField16 = REDIM_1D(sizeof(int), -FieldWidth, FieldMax);
 539
 540   for (i = 0; i <= FieldMax; i++)
 541   {
 542     PlayField16[i]  = PlayField8[i];
 543     DisPlayField[i] = PlayField8[i];
 544     PlayField8[i] = 0;
 545   }
 546
 547 #if 0
 548  {
 549    int x, y;
 550
 551    for (x = 0; x < 60; x++)
 552      printf("%02d.", x);
 553    printf("\n");
 554
 555    for (x = 0; x < 60; x++)
 556      printf("...");
 557    printf("\n");
 558
 559    for (y = 0; y < 24; y++)
 560    {
 561      for (x = 0; x < 60; x++)
 562      {
 563        printf("%02d.", PlayField16[y * 60 + x]);
 564      }
 565
 566      printf("\n");
 567    }
 568  }
 569 #endif
 570
 571   AnimationPosTable = REDIM_1D(sizeof(int), 0, LevelMax - 2 * FieldWidth);
 572   AnimationSubTable = REDIM_1D(sizeof(byte), 0, LevelMax - 2 * FieldWidth);
 573   TerminalState = REDIM_1D(sizeof(byte), FieldWidth, LevelMax - FieldWidth);
 574
 575   GravityFlag = LInfo.InitialGravity;
 576   FreezeZonks = LInfo.InitialFreezeZonks;
 577
 578   subRandomize();
 579
 580   LevelLoaded = True;
 581
 582   return;
 583
 584 #if 0
 585 ReadLevelEH:
 586   Close();
 587 #endif
 588 }
 589
 590 static void ReadDemo()
 591 {
 592   // int FNum, i;
 593   FILE *FNum;
 594   int i;
 595   // byte T;
 596
 597   int RecordNumber = LevelNumber;
 598
 599 #if 1
 600   RecordNumber = 1;     // always "1" for "*.sp" style one level/demo files
 601 #endif
 602
 603   FieldWidth = 60;
 604   FieldHeight = 24;
 605   HeaderSize = 96;
 606
 607   FieldMax = (FieldWidth * FieldHeight) + HeaderSize - 1;
 608   LevelMax = (FieldWidth * FieldHeight) - 1;
 609
 610   // --- On Error GoTo ReadDemoEH
 611
 612   FileMax = FileLen(CurPath) - 1;
 613
 614   PlayField8 = REDIM_1D(sizeof(byte), 0, FileMax + 1 - 1);
 615   DisPlayField = REDIM_1D(sizeof(byte), 0, FieldMax + 1 - 1);
 616
 617   // FNum = FreeFile();
 618
 619   FNum = fopen(CurPath, "rb");
 620
 621   i = (RecordNumber - 1) * ((long)(FieldMax) + 1) + 1;
 622 #if 1
 623   FILE_GET(FNum, i, PlayField8, FileMax + 1);
 624 #else
 625   FILE_GET(FNum, i, &PlayField8, sizeof(PlayField8));
 626 #endif
 627
 628   i = (RecordNumber) * ((long)(FieldMax) + 1) + 1 - HeaderSize;
 629   FILE_GET(FNum, i, &LInfo, sizeof(LInfo)); // store level info in an extra structure
 630
 631   fclose(FNum);
 632
 633   // --- On Error GoTo 0
 634
 635   if (FieldMax < FileMax)
 636     DemoAvailable = True;
 637
 638   ReadSignature();
 639
 640   PlayField16 = REDIM_1D(sizeof(int), -FieldWidth, FieldMax);
 641
 642   for (i = 0; i <= FieldMax; i++)
 643   {
 644     PlayField16[i] = PlayField8[i];
 645     DisPlayField[i] = PlayField8[i];
 646     PlayField8[i] = 0;
 647   }
 648
 649   AnimationPosTable = REDIM_1D(sizeof(int), 0, LevelMax - 2 * FieldWidth);
 650   AnimationSubTable = REDIM_1D(sizeof(byte), 0, LevelMax - 2 * FieldWidth);
 651   TerminalState = REDIM_1D(sizeof(byte), 0, FieldMax + 1 - 1);
 652
 653   DemoPointer = FieldMax + 1;
 654   DemoOffset = DemoPointer;
 655   DemoKeyRepeatCounter = 0;
 656
 657   // DemoFlag = 1
 658   // DemoAvailable = True
 659
 660   GravityFlag = LInfo.InitialGravity;
 661   FreezeZonks = LInfo.InitialFreezeZonks;
 662
 663 #if 0
 664   printf("::: Globals.c: ReadDemo(): %d / %d\n", GravityFlag, FreezeZonks);
 665 #endif
 666
 667
 668
 669 #if 0
 670   /* !!! TESTING BIG / LITTLE ENDIAN STUFF !!! */
 671   LInfo.DemoRandomSeed =
 672     LowByte(LInfo.DemoRandomSeed) << 8 |
 673     HighByte(LInfo.DemoRandomSeed);
 674   for (i = 0; i < 10; i++)
 675     LInfo.SpecialPort[i].PortLocation =
 676       LowByte(LInfo.SpecialPort[i].PortLocation) << 8 |
 677       HighByte(LInfo.SpecialPort[i].PortLocation);
 678
 679   printf("::: swapping file bytes for DemoRandomSeed etc.\n");
 680 #else
 681   printf("::: keeping file bytes in (maybe wrong) 'native' order.\n");
 682 #endif
 683
 684 #if 1
 685   printf("::: LInfo.DemoRandomSeed == %d\n", LInfo.DemoRandomSeed);
 686 #endif
 687
 688 #if 0
 689   printf("::: LInfo.SpecialPortCount == %d\n", LInfo.SpecialPortCount);
 690   for (i = 0; i < LInfo.SpecialPortCount; i++)
 691   {
 692     int port_x = (LInfo.SpecialPort[i].PortLocation / 2) % FieldWidth;
 693     int port_y = (LInfo.SpecialPort[i].PortLocation / 2) / FieldWidth;
 694
 695     printf("::: %d: port_location == %d => (%d, %d)\n",
 696            i, LInfo.SpecialPort[i].PortLocation, port_x, port_y);
 697   }
 698 #endif
 699
 700   RandomSeed = LInfo.DemoRandomSeed;
 701
 702 #if 0
 703   printf("::: SpeedByte == %d\n", LInfo.SpeedByte);
 704   printf("::: CheckSumByte == %d\n", LInfo.CheckSumByte);
 705   printf("::: RandomSeed == %d\n", RandomSeed);
 706
 707 #if 0
 708   {
 709     int i;
 710
 711     for (i = 0; i < 10; i++)
 712       printf("::: TEST random number: %d\n", subGetRandomNumber());
 713   }
 714 #endif
 715
 716 #endif
 717
 718   LevelLoaded = True;
 719
 720   return;
 721
 722 #if 0
 723 ReadDemoEH:
 724   Close();
 725 #endif
 726 }
 727
 728 void ReadLevel()
 729 {
 730 #if 0
 731   OLD_ReadLevel();
 732
 733   // return;
 734 #endif
 735
 736   copyInternalEngineVars_SP();
 737
 738 #if 1
 739   SetDisplayRegion();
 740   SetScrollEdges();
 741 #endif
 742
 743   LevelNumber = level_nr;
 744
 745 #if 0
 746   if (!DemoFlag || !DemoAvailable)
 747     subRandomize();
 748 #endif
 749
 750   LevelLoaded = True;
 751 }