1 // ----------------------------------------------------------------------------
3 // ----------------------------------------------------------------------------
5 #include "DoGameStuff.h"
7 static void CallAnimation(int si, byte bl);
8 static boolean IsToBeAnimated(int bl);
10 // static char *VB_Name = "modDoGameStuff";
12 // --- Option Explicit
14 int *AnimationPosTable;
15 byte *AnimationSubTable;
17 // ==========================================================================
20 // ==========================================================================
28 subAnimateMurphy(MurphyPosIndex); // move Murphy in any direction
30 // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
31 // Build a database of locations and subs-to-call of animatable fields only:
32 // Make a snapshot from the field before the animation cycle starts.
33 // first and last line are not animated.
35 cx = LevelMax - 2 * FieldWidth - 1;
39 bl = LowByte(PlayField16[si]);
40 if (((bl & 0xD) != 0) && (bl < 0x20)) // all animatables have 1's in &H0D' above &H1F? (&H1F=explosion!)
42 if (IsToBeAnimated(bl))
44 AnimationPosTable[dx] = si;
45 AnimationSubTable[dx] = bl;
46 dx = dx + 1; // count database entries
50 si = si + 1; // next field
53 while (0 < cx); // locloop_g_2282' until all lines scanned(not top- and bottom edge)
55 // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
56 // Now use the database to animate all animatables the fastest way.
57 // All the other fields are not checked anymore: those have no database entry.
58 // The field from before animation is frozen in the database in order not to
59 // do follow-up animations in the same loop.
60 if (dx != 0) // any database entries?
63 for (cx = 0; cx <= dx; cx++)
65 CallAnimation(AnimationPosTable[cx], AnimationSubTable[cx]);
66 } // loop locloop_g_22B8 ' until all animatables done
69 // All animations are done now
70 // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
71 if (KillMurphyFlag == 1 || MurphyMoveCounter == 0)
73 if (LeadOutCounter == 0)
75 KillMurphyFlag = 0; // no more "kill Murphy"
76 ExplodeFieldSP(MurphyExplodePos); // Explode
77 LeadOutCounter = 0x40; // quit: start lead-out
82 return subDoGameStuff;
85 static boolean IsToBeAnimated(int bl)
87 static boolean IsToBeAnimated;
99 IsToBeAnimated = True;
103 IsToBeAnimated = False;
107 return IsToBeAnimated;
110 static void CallAnimation(int si, byte bl)
119 subAnimateInfotrons(si);
123 subAnimateOrangeDisks(si);
127 subAnimateSnikSnaks(si);
131 subAnimateTerminals(si);
135 subAnimateElectrons(si);
143 subAnimateExplosion(si);
147 // Debug.Assert(False);