rnd-20090623-1-src

[rocksndiamonds.git] / src / game_sp / OrangeDisk.c

diff --git a/src/game_sp/OrangeDisk.c b/src/game_sp/OrangeDisk.c
new file mode 100644 (file)
index 0000000..3a383b3
--- /dev/null
+++ b/src/game_sp/OrangeDisk.c
@@ -0,0 +1,86 @@
+// ----------------------------------------------------------------------------
+// OrangeDisk.c
+// ----------------------------------------------------------------------------
+
+#include "OrangeDisk.h"
+
+static char *VB_Name = "modOrangeDisk";
+// --- Option Explicit
+// ==========================================================================
+//                              SUBROUTINE
+// Animate/move orange disks (falling)
+// ==========================================================================
+
+int subAnimateOrangeDisks(int si)
+{
+  int subAnimateOrangeDisks;
+
+  int ax, bl, dx, X, Y;
+
+  ax = PlayField16[si];
+  if (LowByte(ax) != fiOrangeDisk)
+    return subAnimateOrangeDisks;
+
+  if (ax >= 0x3008) // disk is falling
+    goto loc_g_2804;
+
+  if (ax >= 0x2008) // disk is in wait state before falling
+    goto loc_g_27DA;
+
+  if (PlayField16[si + FieldWidth] == 0)
+    goto loc_g_27CF;
+
+  return subAnimateOrangeDisks;
+
+loc_g_27CF: // below is empty -> disk may start to fall
+  MovHighByte(&PlayField16[si], 0x20);
+  MovHighByte(&PlayField16[si + FieldWidth], fiOrangeDisk);
+  return subAnimateOrangeDisks;
+
+loc_g_27DA:
+  if (PlayField16[si + FieldWidth] == 0)
+  {
+    PlayField16[si] = fiOrangeDisk;
+    return subAnimateOrangeDisks;
+  } // loc_g_27E8:
+
+  bl = HighByte(PlayField16[si]) + 1;
+  if (bl == 0x22) // wait phase is finished
+    bl = 0x30;
+
+  MovHighByte(&PlayField16[si], bl);
+  return subAnimateOrangeDisks;
+
+loc_g_2804: // disk is falling
+  // +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  dx = HighByte(PlayField16[si]) & 0x7;
+  X = GetStretchX(si);
+  Y = GetStretchY(si);
+  StretchedSprites.BltEx(X, Y, 0);
+  StretchedSprites.BltEx(X, Y + TwoPixels * (dx + 1), fiOrangeDisk);
+  // +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  bl = HighByte(PlayField16[si]) + 1;
+  if ((bl & 0x7) != 0)
+  {
+    MovHighByte(&PlayField16[si], bl);
+    return subAnimateOrangeDisks;
+  }
+
+  PlayField16[si] = 0;
+  PlayField16[si + FieldWidth] = fiOrangeDisk;
+  si = si + FieldWidth;
+  if (PlayField16[si + FieldWidth] == 0)
+  {
+    MovHighByte(&PlayField16[si], 0x30); // go on falling down
+    MovHighByte(&PlayField16[si + FieldWidth], fiOrangeDisk);
+    return subAnimateOrangeDisks;
+  } // loc_g_2867:
+
+  if (LowByte(PlayField16[si + FieldWidth]) == fiExplosion)
+    return subAnimateOrangeDisks;
+
+  ExplodeFieldSP(si);                 // Explode
+
+  return subAnimateOrangeDisks;
+} // subAnimateOrangeDisks
+