src/game_sp/Explosions.c

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