src/game_sp/Infotrons.c

   1 // ----------------------------------------------------------------------------
   2 // Infotrons.c
   3 // ----------------------------------------------------------------------------
   4
   5 #include "Infotrons.h"
   6
   7
   8 // ==========================================================================
   9 //                              SUBROUTINE
  10 // Animate Infotrons (falling)
  11 // ==========================================================================
  12
  13 void subAnimateInfotrons(int si)
  14 {
  15   int tFld;
  16
  17   int ax, bx, dx, X, Y;
  18   int al, bl;
  19
  20   tFld = PlayField16[si];
  21   if ((tFld & 0xFF) != fiInfotron)
  22     return;
  23
  24   if (tFld == fiInfotron)
  25   {
  26     ax = PlayField16[si + FieldWidth]; // select case playfield16(si+60)
  27     if (ax == 0)
  28       goto loc_g_11D5;
  29
  30     if (ax == fiZonk)
  31       goto loc_g_11A6;
  32
  33     if (ax == fiInfotron)
  34       goto loc_g_11A6;
  35
  36     if (ax == fiRAM)
  37       goto loc_g_11A6;
  38
  39     return;
  40
  41 loc_g_11A6: //        Case fiZonk, fiInfotron, fiRAM
  42     ax = PlayField16[si + FieldWidth - 1];
  43     if (ax == 0 || ax == 0x8888 || ax == 0xAAAA)
  44       goto loc_g_11DC;
  45
  46 loc_g_11BD:
  47     ax = PlayField16[si + FieldWidth + 1];
  48     if (ax == 0 || ax == 0x8888 || ax == 0xAAAA)
  49       goto loc_g_11F2;
  50
  51     return;
  52
  53 loc_g_11D5: //       Case fiSpace
  54     MovHighByte(&PlayField16[si], 0x40);
  55     goto loc_g_1207;
  56
  57 loc_g_11DC: // roll left?
  58     if (PlayField16[si - 1] == 0)
  59       goto loc_g_11E5;
  60
  61     goto loc_g_11BD;
  62
  63 loc_g_11E5:
  64     MovHighByte(&PlayField16[si], 0x50);
  65     PlayField16[si - 1] = 0x8888;
  66     goto loc_g_1207;
  67
  68 loc_g_11F2: // roll right?
  69     if (PlayField16[si + 1] == 0)
  70       goto loc_g_11FA;
  71
  72     return;
  73
  74 loc_g_11FA:
  75     MovHighByte(&PlayField16[si], 0x60);
  76     PlayField16[si + 1] = 0x8888;
  77   } // tFld = fiInfotron
  78
  79 loc_g_1207:
  80   // from now on the infotron is definitely moving,
  81   // maybe the sequence is in an advanced frame
  82   // or just beeing initialized due to the code above
  83   bl = HighByte(PlayField16[si]);
  84   bx = 0;
  85   MovLowByte(&bx, bl);
  86
  87   al = bl & 0xF0;
  88   if (al == 0x10) // infotron comes falling from above
  89     goto loc_g_1242;
  90
  91   if (al == 0x20) // infotron comes rolling from right to left
  92     goto loc_g_138D;
  93
  94   if (al == 0x30) // infotron comes rolling from left to right
  95     goto loc_g_13E9;
  96
  97   if (al == 0x40) // infotron falls straight down
  98     goto loc_g_1444;
  99
 100   if (al == 0x50) // infotron rolls left
 101     goto loc_g_1472;
 102
 103   if (al == 0x60) // infotron rolls right
 104     goto loc_g_14E0;
 105
 106   if (al == 0x70) // intermediate state
 107     goto loc_g_154E;
 108
 109   return;
 110
 111 loc_g_1242: // infotron comes falling from above
 112   //      To Do: draw infotron falling from above
 113   //      according to position in (bl And &H07)
 114   // +++++++++++++++++++++++++++++++++++++++++++++++++++++
 115   X = GetStretchX(si);
 116   Y = GetStretchY(si - FieldWidth);
 117   dx = bl & 0x7;
 118   DDSpriteBuffer_BltImg(X, Y, aniSpace, 0);
 119   DDSpriteBuffer_BltImg(X, Y + TwoPixels * (dx + 1), aniInfotron, dx);
 120   // +++++++++++++++++++++++++++++++++++++++++++++++++++++
 121
 122   bl = HighByte(PlayField16[si]) + 1;
 123   if (bl == 0x16)
 124   {
 125     MovHighByte(&PlayField16[si], bl);
 126     subCleanUpForInfotronsAbove(si - FieldWidth);
 127
 128     return;
 129   } // loc_g_1285:
 130
 131   if (bl < 0x18)
 132   {
 133     MovHighByte(&PlayField16[si], bl);
 134
 135     return;
 136   } // loc_g_128F:
 137
 138   MovHighByte(&PlayField16[si], 0); // infotron arrived at the field
 139
 140   // now check if the zonk may go on falling somehow
 141   ax = PlayField16[si + FieldWidth];
 142   if (ax == 0) // below is empty!-> go on falling
 143     goto loc_g_132D;
 144
 145   if (ax == 0x9999) // below is only temporarily used
 146     goto loc_g_132D;
 147
 148   if ((ax & 0xFF) == fiMurphy) // Murphy dies
 149     goto loc_g_1364;
 150
 151   if (ax == fiRedDisk) // red disk hit
 152     goto loc_g_1386;
 153
 154   if ((ax & 0xFF) == fiSnikSnak) // SnikSnak dies
 155     goto loc_g_1386;
 156
 157
 158   if ((ax & 0xFF) == fiElectron) // Electron cracked!
 159     goto loc_g_1386;
 160
 161   if (ax == fiYellowDisk) // yellow disk hit
 162     goto loc_g_1386;
 163
 164   if (ax == fiOrangeDisk) // orange disk hit
 165     goto loc_g_1386;
 166
 167   // play the infotron sound, 'cause infotron hits something "hard"
 168   subSoundFX(si, fiInfotron, actImpact);
 169
 170   if (! (ax == fiZonk || ax == fiInfotron || ax == fiRAM))
 171     return;
 172
 173   // infotron rolls somewhere
 174   ax = PlayField16[si + FieldWidth - 1];
 175   if (ax == 0 || ax == 0x8888 || ax == 0xAAAA) // may roll left
 176     goto loc_g_133A;
 177
 178   ax = PlayField16[si + FieldWidth + 1];
 179   if (ax == 0 || ax == 0x8888 || ax == 0xAAAA) // may roll right
 180     goto loc_g_1350;
 181
 182   return;
 183
 184 loc_g_132D:     // go on falling down?
 185   PlayField16[si] = 0x7004; // go into intermediate waitstate
 186   PlayField16[si + FieldWidth] = 0x9999; // mark as "zonk waiting to access"
 187
 188   return;
 189
 190 loc_g_133A:     // test if infotron may roll left
 191   // This if(if true) jumps up far above
 192   // to the according rountine for fixed infotrons!
 193   if (PlayField16[si - 1] != 0) // Remarkable!!! ' loc_g_0EF4:
 194     goto loc_g_11BD;
 195
 196   MovHighByte(&PlayField16[si], 0x50); // infotron rolls left
 197   PlayField16[si - 1] = 0x8888;
 198
 199   return;
 200
 201 loc_g_1350:     // test if infotron may roll right
 202   if (PlayField16[si + 1] != 0)
 203     return;
 204
 205   MovHighByte(&PlayField16[si], 0x60); // infotron rolls right
 206   PlayField16[si + 1] = 0x8888;
 207
 208   return;
 209
 210 loc_g_1364:     // Murphy dies, but not in any case
 211   bl = HighByte(PlayField16[si + FieldWidth]);
 212   if (bl == 0xE || bl == 0xF || bl == 0x28)
 213     return;
 214
 215   if (bl == 0x29 || bl == 0x25 || bl == 0x26)
 216     return;
 217
 218 loc_g_1386:     // someone dies/explodes immediately
 219   si = si + FieldWidth;                 // 1 field down
 220   ExplodeFieldSP(si);               // Explode
 221
 222   return;
 223
 224 loc_g_138D: // infotron comes rolling from right to left
 225   //  To Do: draw infotron rolling from right
 226   //  according to position in (bl And &H07)
 227   // +++++++++++++++++++++++++++++++++++++++++++++++++++++
 228   X = GetStretchX(si + 1);
 229   Y = GetStretchY(si);
 230   dx = (bl & 0x7) + 1;
 231   DDSpriteBuffer_BltImg(X, Y, aniSpace, 0);
 232   DDSpriteBuffer_BltImg(X - (TwoPixels * dx), Y, aniInfotronRollLeft, dx - 1);
 233   // +++++++++++++++++++++++++++++++++++++++++++++++++++++
 234
 235   bl = HighByte(PlayField16[si]) + 1; // get and increment sequence#
 236   if (bl == 0x24)
 237     PlayField16[si + 1] = 0xAAAA;
 238
 239   if (bl == 0x26)
 240   {
 241     MovHighByte(&PlayField16[si], bl);
 242     subCleanUpForInfotronsAbove(si + 1);
 243   }
 244   else if (bl < 0x28)
 245   {
 246     MovHighByte(&PlayField16[si], bl);
 247   }
 248   else
 249   {
 250     PlayField16[si] = 0x7004; // go into intermediate state
 251   }
 252
 253   return;
 254
 255 loc_g_13E9: // infotron comes rolling from left to right
 256   //  To Do: draw infotron rolling from left
 257   //  according to position in (bl And &H07)
 258   // +++++++++++++++++++++++++++++++++++++++++++++++++++++
 259   X = GetStretchX(si - 1);
 260   Y = GetStretchY(si);
 261   dx = (bl & 0x7) + 1;
 262   DDSpriteBuffer_BltImg(X, Y, aniSpace, 0);
 263   DDSpriteBuffer_BltImg(X + (TwoPixels * dx), Y, aniInfotronRollRight, dx - 1);
 264   // +++++++++++++++++++++++++++++++++++++++++++++++++++++
 265
 266   bl = HighByte(PlayField16[si]) + 1;
 267   if (bl == 0x34)
 268     PlayField16[si - 1] = 0xAAAA;
 269
 270   if (bl == 0x36)
 271   {
 272     MovHighByte(&PlayField16[si], bl);
 273     subCleanUpForInfotronsAbove(si - 1);
 274   }
 275   else if (bl < 0x38)
 276   {
 277     MovHighByte(&PlayField16[si], bl);
 278   }
 279   else
 280   {
 281     PlayField16[si] = 0x7004; // go into intermediate state
 282   }
 283
 284   return;
 285
 286 loc_g_1444: // infotron falls straight down
 287   bl = bl + 1;
 288   if (bl < 0x42)
 289   {
 290     MovHighByte(&PlayField16[si], bl);
 291   }
 292   else if (PlayField16[si + FieldWidth] != 0)
 293   {
 294     bl = bl - 1; // stay waiting
 295     MovHighByte(&PlayField16[si], bl);
 296   }
 297   else
 298   {
 299     PlayField16[si] = 0xFFFF;
 300     si = si + FieldWidth;                 // 1 field down
 301     PlayField16[si] = 0x1004; // go falling
 302   }
 303
 304   return;
 305
 306 loc_g_1472: // infotron rolls left
 307   //  To Do: draw infotron rolling to left
 308   //  according to position in (bl And &H0F)
 309   // +++++++++++++++++++++++++++++++++++++++++++++++++++++
 310   X = GetStretchX(si);
 311   Y = GetStretchY(si);
 312   dx = (bl & 0xF) + 1;
 313   DDSpriteBuffer_BltImg(X, Y, aniSpace, 0);
 314   DDSpriteBuffer_BltImg(X - (TwoPixels * dx), Y, aniInfotronRollLeft, dx - 1);
 315   // +++++++++++++++++++++++++++++++++++++++++++++++++++++
 316
 317   bl = HighByte(PlayField16[si]) + 1; // retrieve and increment sequence#
 318   if (bl < 0x52)
 319   {
 320     MovHighByte(&PlayField16[si], bl);
 321
 322     return;
 323   }
 324
 325   if (PlayField16[si + FieldWidth - 1] != 0)
 326     goto loc_g_14D9;
 327
 328   if (PlayField16[si - 1] != 0)
 329   {
 330     if (PlayField16[si - 1] != 0x8888)
 331       goto loc_g_14D9;
 332   }
 333
 334   PlayField16[si] = 0xFFFF;
 335   si = si - 1;                   // 1 field left
 336   PlayField16[si] = 0x2204;
 337   PlayField16[si + FieldWidth] = 0x9999;
 338
 339   return;
 340
 341 loc_g_14D9: // stay waiting
 342   bl = bl - 1;
 343   MovHighByte(&PlayField16[si], bl);
 344
 345   return;
 346
 347 loc_g_14E0: // infotron rolls right
 348   //  To Do: draw infotron rolling to right
 349   //  according to position in (bl And &H07)
 350   // +++++++++++++++++++++++++++++++++++++++++++++++++++++
 351   X = GetStretchX(si);
 352   Y = GetStretchY(si);
 353   dx = (bl & 0x7) + 1;
 354   DDSpriteBuffer_BltImg(X, Y, aniSpace, 0);
 355   DDSpriteBuffer_BltImg(X + (TwoPixels * dx), Y, aniInfotronRollRight, dx - 1);
 356   // +++++++++++++++++++++++++++++++++++++++++++++++++++++
 357
 358   bl = HighByte(PlayField16[si]) + 1;
 359   if (bl < 0x62)
 360   {
 361     MovHighByte(&PlayField16[si], bl);
 362
 363     return;
 364   }
 365
 366   if (PlayField16[si + FieldWidth + 1] != 0)
 367     goto loc_g_1547;
 368
 369   if (PlayField16[si + 1] != 0)
 370   {
 371     if (PlayField16[si + 1] != 0x8888)
 372       goto loc_g_1547;
 373   }
 374
 375   PlayField16[si] = 0xFFFF;
 376   si = si + 1;
 377   PlayField16[si] = 0x3204;
 378   PlayField16[si + FieldWidth] = 0x9999;
 379
 380   return;
 381
 382 loc_g_1547: // stay waiting
 383   bl = bl - 1;
 384   MovHighByte(&PlayField16[si], bl);
 385
 386   return;
 387
 388 loc_g_154E: // intermediate state
 389   ax = PlayField16[si + FieldWidth];
 390   if (ax == 0 || ax == 0x9999)
 391   {
 392     PlayField16[si] = 0xFFFF;
 393     si = si + FieldWidth;                 // 1 field down
 394     PlayField16[si] = 0x1004; // start falling down
 395     goto loc_g_1242;
 396   }
 397 }
 398
 399 void subCleanUpForInfotronsAbove(int si)
 400 {
 401   int ax;
 402
 403   if (LowByte(PlayField16[si]) != fiExplosion)
 404     PlayField16[si] = 0;
 405
 406   if (PlayField16[si - FieldWidth] != 0)
 407   {
 408     if (PlayField16[si - FieldWidth] != 0x9999)
 409       return;
 410
 411     if (LowByte(PlayField16[si - 2 * FieldWidth]) != fiZonk)
 412       return;
 413   }
 414
 415   if (PlayField16[si - FieldWidth - 1] == fiInfotron)
 416     goto loc_g_16FE;
 417
 418 loc_g_16F6:
 419   if (PlayField16[si - FieldWidth + 1] == fiInfotron)
 420     goto loc_g_1722;
 421
 422   return;
 423
 424 loc_g_16FE:
 425   ax = PlayField16[si - 1];
 426   if (ax == fiZonk || ax == fiInfotron || ax == fiRAM)
 427   {
 428     PlayField16[si - FieldWidth - 1] = 0x6004;
 429     PlayField16[si - FieldWidth] = 0x8888;
 430
 431     return;
 432   }
 433
 434   goto loc_g_16F6;
 435
 436 loc_g_1722:
 437   ax = PlayField16[si + 1];
 438   if (ax == fiZonk || ax == fiInfotron || ax == fiRAM)
 439   {
 440     PlayField16[si - FieldWidth + 1] = 0x5004;
 441     PlayField16[si - FieldWidth] = 0x8888;
 442   }
 443 }