src/game_sp/Explosions.c

   1 // ----------------------------------------------------------------------------
   2 // Explosions.c
   3 // ----------------------------------------------------------------------------
   4
   5 #include "Explosions.h"
   6
   7
   8 static void LetExplodeFieldSP(int tsi, int cx, int dh);
   9 static void subExplodeInfotron(int tsi, int cx);
  10 static void subExplodeZonk(int tsi, int cx);
  11
  12
  13 // ==========================================================================
  14 //                              SUBROUTINE
  15 // Animate explosion
  16 // ==========================================================================
  17
  18 void subAnimateExplosion(int si)
  19 {
  20   int ax, bl;
  21
  22   if (LowByte(PlayField16[si]) != fiExplosion)
  23     return;
  24
  25   ax = (TimerVar & 3);
  26   if (ax != 0)
  27     return;
  28
  29   bl = HighByte(PlayField16[si]);
  30
  31   if ((bl & 0x80) != 0) // infotron explosion!
  32     goto loc_g_28D0;
  33
  34   bl = bl + 1;
  35   MovHighByte(&PlayField16[si], bl);
  36
  37   // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  38   GfxGraphic[GetX(si)][GetY(si)] = aniDefaultExplosion;
  39   // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  40
  41   if (bl == 8)
  42   {
  43     PlayField16[si] = 0;
  44     ExplosionShake = 0;         // nothing explodes
  45     // ExplosionShakeMurphy = 0;        // nothing explodes
  46
  47     // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  48     GfxGraphic[GetX(si)][GetY(si)] = aniSpace;
  49     // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  50   } // loc_ret_g_28CF:
  51
  52   return;
  53
  54 loc_g_28D0: // explosion produces infotron
  55   bl = bl + 1;
  56   if (bl == 0x89)
  57   {
  58     PlayField16[si] = fiInfotron;
  59     MovLowByte(&ExplosionShake, 0);             // nothing explodes
  60     // MovLowByte(&ExplosionShakeMurphy, 0);    // nothing explodes
  61
  62     // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  63     GfxGraphic[GetX(si)][GetY(si)] = aniInfotron;
  64     // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  65
  66     return;
  67   } // loc_g_28E3:
  68
  69   MovHighByte(&PlayField16[si], bl);
  70
  71   // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  72   GfxGraphic[GetX(si)][GetY(si)] = aniElectronExplosion;
  73   // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  74 }
  75
  76 // ==========================================================================
  77 //                              SUBROUTINE
  78 // Explode
  79 // ==========================================================================
  80
  81 void ExplodeFieldSP(int si)
  82 {
  83   int ax, cx, dl;
  84
  85   ax = LowByte(PlayField16[si]);
  86   if (ax == fiHardWare)
  87     return;
  88
  89   ExplosionShake = 1;           // something explodes
  90
  91   if (ax == fiMurphy)
  92   {
  93     KillMurphyFlag = 1;
  94
  95     ExplosionShakeMurphy = 30;  // Murphy explodes
  96   }
  97
  98   if (ax == fiElectron)
  99   {
 100     cx = 0x801F; // produce infotrons
 101     dl = 0xF3;
 102   }
 103   else // loc_g_2977:
 104   {
 105     cx = 0x1F; // normal explosion
 106     dl = 0xD;
 107   } // loc_g_297C:
 108
 109   LetExplodeFieldSP(si - FieldWidth - 1, cx, dl);
 110   LetExplodeFieldSP(si - FieldWidth, cx, dl);
 111   LetExplodeFieldSP(si - FieldWidth + 1, cx, dl);
 112   LetExplodeFieldSP(si - 1, cx, dl);
 113   PlayField16[si] = cx;
 114   LetExplodeFieldSP(si + 1, cx, dl);
 115   LetExplodeFieldSP(si + FieldWidth - 1, cx, dl);
 116   LetExplodeFieldSP(si + FieldWidth, cx, dl);
 117   LetExplodeFieldSP(si + FieldWidth + 1, cx, dl);
 118
 119   GfxGraphic[GetX(si)][GetY(si)] = -1;          // restart for chain-explosions
 120
 121   // loc_g_2C3B:
 122   subSoundFX(si, ax, actExploding);
 123 }
 124
 125 static void LetExplodeFieldSP(int tsi, int cx, int dh)
 126 {
 127   int al;
 128
 129   if (tsi < -FieldWidth)
 130     return;
 131
 132   al = LowByte(PlayField16[tsi]);
 133   switch (al)
 134   {
 135     case fiHardWare:
 136       return;
 137
 138       break;
 139
 140     case fiOrangeDisk:
 141     case fiYellowDisk:
 142     case fiSnikSnak:
 143       PlayField8[tsi] = dh;
 144       PlayField16[tsi] = cx;
 145       break;
 146
 147     case fiZonk:
 148       subExplodeZonk(tsi, cx);
 149       break;
 150
 151     case fiInfotron:
 152       subExplodeInfotron(tsi, cx);
 153       break;
 154
 155     case fiElectron:
 156       PlayField8[tsi] = (-dh) & 0xFF;
 157       PlayField16[tsi] = 0x801F;
 158       break;
 159
 160     case fiMurphy:
 161       KillMurphyFlag = 1;
 162       PlayField8[tsi] = dh;
 163       PlayField16[tsi] = cx;
 164       break;
 165
 166     default:
 167       PlayField16[tsi] = cx;
 168       break;
 169   }
 170
 171   GfxGraphic[GetX(tsi)][GetY(tsi)] = -1;        // restart for chain-explosions
 172 }
 173
 174 static void subExplodeZonk(int tsi, int cx)
 175 {
 176   int ah;
 177
 178   ah = HighByte(PlayField16[tsi]) & 0xF0;
 179   PlayField16[tsi] = cx;
 180   switch (ah)
 181   {
 182     case 0x10:
 183     case 0x70:
 184       subClearFieldDueToExplosion(tsi - FieldWidth);
 185       tsi = tsi + FieldWidth;
 186       if (PlayField16[tsi] == 0x9999)
 187         subClearFieldDueToExplosion(tsi);
 188
 189       break;
 190
 191     case 0x20:
 192       subClearFieldDueToExplosion(tsi + 1);
 193       subClearFieldDueToExplosion(tsi + FieldWidth);
 194       break;
 195
 196     case 0x30:
 197       subClearFieldDueToExplosion(tsi - 1);
 198       subClearFieldDueToExplosion(tsi + FieldWidth);
 199       break;
 200
 201     case 0x50:
 202       subClearFieldDueToExplosion(tsi - 1);
 203       break;
 204
 205     case 0x60:
 206       subClearFieldDueToExplosion(tsi + 1);
 207       break;
 208
 209     case 0xFF000070: // !!! 0x70; this will never be reached! ...??
 210       subClearFieldDueToExplosion(tsi + FieldWidth);
 211       break;
 212   }
 213 }
 214
 215 static void subExplodeInfotron(int tsi, int cx)
 216 {
 217   int ah;
 218
 219   ah = HighByte(PlayField16[tsi]) & 0xF0;
 220   PlayField16[tsi] = cx;
 221   switch (ah)
 222   {
 223     case 0x10:
 224     case 0x70:
 225       subClearFieldDueToExplosion(tsi - FieldWidth);
 226       tsi = tsi + FieldWidth;
 227       if (PlayField16[tsi] == 0x9999)
 228         subClearFieldDueToExplosion(tsi);
 229
 230       break;
 231
 232     case 0x20:
 233       subClearFieldDueToExplosion(tsi + 1);
 234       tsi = tsi + FieldWidth; // differnt from zonk version
 235       if (PlayField16[tsi] == 0x9999)
 236         subClearFieldDueToExplosion(tsi);
 237
 238       break;
 239
 240     case 0x30:
 241       subClearFieldDueToExplosion(tsi - 1);
 242       tsi = tsi + FieldWidth; // differnt from zonk version
 243       if (PlayField16[tsi] == 0x9999)
 244         subClearFieldDueToExplosion(tsi);
 245
 246       break;
 247
 248     case 0x50:
 249       subClearFieldDueToExplosion(tsi - 1);
 250       break;
 251
 252     case 0x60:
 253       subClearFieldDueToExplosion(tsi + 1);
 254       break;
 255
 256     case 0xFF000070: // !!! 0x70; this will never be reached! ...??
 257       subClearFieldDueToExplosion(tsi + FieldWidth);
 258       break;
 259   }
 260 }
 261
 262 void subClearFieldDueToExplosion(int si)
 263 {
 264   if (LowByte(PlayField16[si]) == fiExplosion)
 265     return;
 266
 267   PlayField16[si] = 0;
 268   // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 269   GfxGraphic[GetX(si)][GetY(si)] = aniSpace;
 270   // ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 271 }
 272
 273 void subRedDiskReleaseExplosion(void)
 274 {
 275   int al, X, Y, si;
 276
 277   al = RedDiskReleasePhase;            // Red disk release phase
 278   if (al <= 1)
 279     return;
 280
 281   si = RedDiskReleaseMurphyPos;
 282   if (PlayField16[si] == 0) // Release red disk
 283     PlayField16[si] = fiRedDisk;
 284
 285   // +++++++++++++++++++++++++++++++++++++++++
 286   X = GetStretchX(si);
 287   Y = GetStretchY(si);
 288   DDSpriteBuffer_BltImg(X, Y, aniRedDisk, 0);
 289   // +++++++++++++++++++++++++++++++++++++++++
 290
 291   RedDiskReleasePhase = RedDiskReleasePhase + 1;
 292   if (RedDiskReleasePhase >= 0x28)
 293   {
 294     // si = RedDiskReleaseMurphyPos           ' Red disk was released here
 295     ExplodeFieldSP(si);                 // Explode
 296     RedDiskReleasePhase = 0;
 297   }
 298 }
 299
 300 void subFollowUpExplosions(void)
 301 {
 302   int ax, si;
 303
 304   // locloop_g_2919:
 305   for (si = 0; si <= LevelMax; si++)
 306   {
 307     ax = ByteToInt(PlayField8[si]);
 308     if (ax != 0)
 309     {
 310       if (ax < 0)
 311       {
 312         ax = ax + 1;
 313         PlayField8[si] = ax & 0xFF;
 314         if (ax == 0)
 315         {
 316           PlayField16[si] = 0xFF18;
 317           ExplodeFieldSP(si);                 // Explode
 318         }
 319       }
 320       else
 321       {
 322         ax = ax - 1;
 323         PlayField8[si] = ax;
 324         if (ax == 0)
 325           ExplodeFieldSP(si);
 326       }
 327     }
 328   }
 329 }