rnd-20090801-1-src
[rocksndiamonds.git] / 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