game_em/graphics.c \
game_em/init.c \
game_em/input.c \
- game_em/synchro_1.c \
- game_em/synchro_2.c \
- game_em/synchro_3.c \
+ game_em/logic.c \
game_em/tab_generate.c \
game_sp/init.c \
game_sp/file.c \
graphics.c \
init.c \
input.c \
- synchro_1.c \
- synchro_2.c \
- synchro_3.c \
+ logic.c \
tab_generate.c
OBJS = cave.o \
graphics.o \
init.o \
input.o \
- synchro_1.o \
- synchro_2.o \
- synchro_3.o \
+ logic.o \
tab_generate.o
GAME_EM = game_em.a
void play_sound(int, int, int);
void play_element_sound(int, int, int, int);
-void synchro_1(void);
-void synchro_2(void);
-void synchro_3(void);
+void logic_1(void);
+void logic_2(void);
+void logic_3(void);
int cleanup_em_level(unsigned char *, int, char *);
void convert_em_level(unsigned char *, int);
if (frame == 7)
{
- synchro_1();
- synchro_2();
+ logic_1();
+ logic_2();
}
if (frame == 6)
{
- synchro_3();
+ logic_3();
UpdateGameDoorValues_EM();
}
--- /dev/null
+/* 2008-09-24 23:20:29
+ *
+ * David Tritscher
+ *
+ * my own version of the emerald mine engine
+ */
+
+#include "main_em.h"
+
+
+#define SPRING_ROLL /* spring rolling off round things continues to roll */
+#define USE_CHANGED_ACID_STUFF
+
+#define RANDOM_RAW (seed = seed << 31 | seed >> 1)
+#define RANDOM(x) (RANDOM_RAW & (x - 1))
+
+static unsigned int seed;
+static int score;
+
+static void Lboom_bug(int x, int y)
+{
+ Next[x][y] = Znormal;
+ Boom[x-1][y-1] = Xemerald;
+ Boom[x][y-1] = Xemerald;
+ Boom[x+1][y-1] = Xemerald;
+ Boom[x-1][y] = Xemerald;
+ Boom[x][y] = Xdiamond;
+ Boom[x+1][y] = Xemerald;
+ Boom[x-1][y+1] = Xemerald;
+ Boom[x][y+1] = Xemerald;
+ Boom[x+1][y+1] = Xemerald;
+
+#if PLAY_ELEMENT_SOUND
+ play_element_sound(x, y, SOUND_boom, element);
+#endif
+}
+
+static void Lboom_tank(int x, int y)
+{
+ Next[x][y] = Znormal;
+ Boom[x-1][y-1] = Xblank;
+ Boom[x][y-1] = Xblank;
+ Boom[x+1][y-1] = Xblank;
+ Boom[x-1][y] = Xblank;
+ Boom[x][y] = Xblank;
+ Boom[x+1][y] = Xblank;
+ Boom[x-1][y+1] = Xblank;
+ Boom[x][y+1] = Xblank;
+ Boom[x+1][y+1] = Xblank;
+#if PLAY_ELEMENT_SOUND
+ play_element_sound(x, y, SOUND_boom, element);
+#endif
+}
+
+static boolean player_killed(struct PLAYER *ply)
+{
+ int x = ply->x;
+ int y = ply->y;
+
+ if (!ply->alive)
+ return FALSE;
+
+ if (lev.killed_out_of_time && setup.time_limit)
+ return TRUE;
+
+ switch(Cave[x][y-1])
+ {
+ case Xbug_1_n:
+ case Xbug_1_e:
+ case Xbug_1_s:
+ case Xbug_1_w:
+ case Xbug_2_n:
+ case Xbug_2_e:
+ case Xbug_2_s:
+ case Xbug_2_w:
+ case Xtank_1_n:
+ case Xtank_1_e:
+ case Xtank_1_s:
+ case Xtank_1_w:
+ case Xtank_2_n:
+ case Xtank_2_e:
+ case Xtank_2_s:
+ case Xtank_2_w:
+ return TRUE;
+ }
+
+ switch(Cave[x+1][y])
+ {
+ case Xbug_1_n:
+ case Xbug_1_e:
+ case Xbug_1_s:
+ case Xbug_1_w:
+ case Xbug_2_n:
+ case Xbug_2_e:
+ case Xbug_2_s:
+ case Xbug_2_w:
+ case Xtank_1_n:
+ case Xtank_1_e:
+ case Xtank_1_s:
+ case Xtank_1_w:
+ case Xtank_2_n:
+ case Xtank_2_e:
+ case Xtank_2_s:
+ case Xtank_2_w:
+ return TRUE;
+ }
+
+ switch(Cave[x][y+1])
+ {
+ case Xbug_1_n:
+ case Xbug_1_e:
+ case Xbug_1_s:
+ case Xbug_1_w:
+ case Xbug_2_n:
+ case Xbug_2_e:
+ case Xbug_2_s:
+ case Xbug_2_w:
+ case Xtank_1_n:
+ case Xtank_1_e:
+ case Xtank_1_s:
+ case Xtank_1_w:
+ case Xtank_2_n:
+ case Xtank_2_e:
+ case Xtank_2_s:
+ case Xtank_2_w:
+ return TRUE;
+ }
+
+ switch(Cave[x-1][y])
+ {
+ case Xbug_1_n:
+ case Xbug_1_e:
+ case Xbug_1_s:
+ case Xbug_1_w:
+ case Xbug_2_n:
+ case Xbug_2_e:
+ case Xbug_2_s:
+ case Xbug_2_w:
+ case Xtank_1_n:
+ case Xtank_1_e:
+ case Xtank_1_s:
+ case Xtank_1_w:
+ case Xtank_2_n:
+ case Xtank_2_e:
+ case Xtank_2_s:
+ case Xtank_2_w:
+ return TRUE;
+ }
+
+ switch(Cave[x][y])
+ {
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Zplayer:
+ case Xdynamite_1:
+ case Xdynamite_2:
+ case Xdynamite_3:
+ case Xdynamite_4:
+#ifdef EM_ENGINE_USE_ADDITIONAL_ELEMENTS
+ case Xfake_acid_1:
+ case Xfake_acid_2:
+ case Xfake_acid_3:
+ case Xfake_acid_4:
+ case Xfake_acid_5:
+ case Xfake_acid_6:
+ case Xfake_acid_7:
+ case Xfake_acid_8:
+#endif
+ return FALSE;
+ }
+
+ return TRUE;
+}
+
+static void kill_player(struct PLAYER *ply)
+{
+ int x = ply->x;
+ int y = ply->y;
+
+ ply->alive = 0;
+
+ switch(Cave[x][y-1])
+ {
+ case Xbug_1_n:
+ case Xbug_1_e:
+ case Xbug_1_s:
+ case Xbug_1_w:
+ case Xbug_2_n:
+ case Xbug_2_e:
+ case Xbug_2_s:
+ case Xbug_2_w:
+ Cave[x][y-1] = Xboom_bug;
+ break;
+
+ case Xtank_1_n:
+ case Xtank_1_e:
+ case Xtank_1_s:
+ case Xtank_1_w:
+ case Xtank_2_n:
+ case Xtank_2_e:
+ case Xtank_2_s:
+ case Xtank_2_w:
+ Cave[x][y-1] = Xboom_bomb;
+ break;
+ }
+
+ switch(Cave[x+1][y])
+ {
+ case Xbug_1_n:
+ case Xbug_1_e:
+ case Xbug_1_s:
+ case Xbug_1_w:
+ case Xbug_2_n:
+ case Xbug_2_e:
+ case Xbug_2_s:
+ case Xbug_2_w:
+ Cave[x+1][y] = Xboom_bug;
+ break;
+
+ case Xtank_1_n:
+ case Xtank_1_e:
+ case Xtank_1_s:
+ case Xtank_1_w:
+ case Xtank_2_n:
+ case Xtank_2_e:
+ case Xtank_2_s:
+ case Xtank_2_w:
+ Cave[x+1][y] = Xboom_bomb;
+ break;
+ }
+
+ switch(Cave[x][y+1])
+ {
+ case Xbug_1_n:
+ case Xbug_1_e:
+ case Xbug_1_s:
+ case Xbug_1_w:
+ case Xbug_2_n:
+ case Xbug_2_e:
+ case Xbug_2_s:
+ case Xbug_2_w:
+ Cave[x][y+1] = Xboom_bug;
+ break;
+
+ case Xtank_1_n:
+ case Xtank_1_e:
+ case Xtank_1_s:
+ case Xtank_1_w:
+ case Xtank_2_n:
+ case Xtank_2_e:
+ case Xtank_2_s:
+ case Xtank_2_w:
+ Cave[x][y+1] = Xboom_bomb;
+ break;
+ }
+
+ switch(Cave[x-1][y])
+ {
+ case Xbug_1_n:
+ case Xbug_1_e:
+ case Xbug_1_s:
+ case Xbug_1_w:
+ case Xbug_2_n:
+ case Xbug_2_e:
+ case Xbug_2_s:
+ case Xbug_2_w:
+ Cave[x-1][y] = Xboom_bug;
+ break;
+
+ case Xtank_1_n:
+ case Xtank_1_e:
+ case Xtank_1_s:
+ case Xtank_1_w:
+ case Xtank_2_n:
+ case Xtank_2_e:
+ case Xtank_2_s:
+ case Xtank_2_w:
+ Cave[x-1][y] = Xboom_bomb;
+ break;
+ }
+
+ switch(Cave[x][y])
+ {
+ case Xexit_1:
+ case Xexit_2:
+ case Xexit_3:
+ lev.exit_x = x;
+ lev.exit_y = y;
+ play_element_sound(x, y, SOUND_exit_leave, Xexit_1);
+ break;
+
+ default:
+ play_element_sound(x, y, SOUND_die, Zplayer);
+ break;
+ }
+
+ switch(Cave[x][y])
+ {
+#ifdef USE_CHANGED_ACID_STUFF
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ break;
+#endif
+
+ default:
+ Cave[x][y] = Xboom_1;
+ Boom[x][y] = Xblank;
+ break;
+ }
+}
+
+static boolean player_digfield(struct PLAYER *ply, int dx, int dy)
+{
+ int anim = (dx < 0 ? 3 : dx > 0 ? 1 : dy < 0 ? 0 : dy > 0 ? 2 : 2);
+ int oldx = ply->x;
+ int oldy = ply->y;
+ int x = oldx + dx;
+ int y = oldy + dy;
+ boolean result = TRUE;
+
+ if (!dx && !dy) /* no direction specified */
+ return FALSE;
+
+ if (dx && dy && ply->joy_snap) /* more than one direction specified */
+ return FALSE;
+
+ if (ply->joy_snap == 0) /* player wants to move */
+ {
+ int element = Cave[x][y];
+
+ switch(Cave[x][y])
+ {
+ /* fire is released */
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Zplayer;
+ Next[x][y] = Zplayer;
+#ifdef EM_ENGINE_USE_ADDITIONAL_ELEMENTS
+ case Xfake_acid_1:
+ case Xfake_acid_2:
+ case Xfake_acid_3:
+ case Xfake_acid_4:
+ case Xfake_acid_5:
+ case Xfake_acid_6:
+ case Xfake_acid_7:
+ case Xfake_acid_8:
+#endif
+ play_element_sound(x, y, SOUND_blank, Xblank);
+ ply->anim = PLY_walk_n + anim;
+ ply->x = x;
+ ply->y = y;
+ break;
+
+#ifdef USE_CHANGED_ACID_STUFF
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ if (Cave[x+1][y-1] == Xblank)
+ Cave[x+1][y-1] = Xacid_splash_e;
+ if (Cave[x-1][y-1] == Xblank)
+ Cave[x-1][y-1] = Xacid_splash_w;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+#endif
+
+ case Xboom_android:
+ case Xboom_1:
+ case Xbug_1_n:
+ case Xbug_1_e:
+ case Xbug_1_s:
+ case Xbug_1_w:
+ case Xbug_2_n:
+ case Xbug_2_e:
+ case Xbug_2_s:
+ case Xbug_2_w:
+ case Xtank_1_n:
+ case Xtank_1_e:
+ case Xtank_1_s:
+ case Xtank_1_w:
+ case Xtank_2_n:
+ case Xtank_2_e:
+ case Xtank_2_s:
+ case Xtank_2_w:
+
+#ifndef USE_CHANGED_ACID_STUFF
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+#endif
+ ply->anim = PLY_walk_n + anim;
+ ply->x = x;
+ ply->y = y;
+ break;
+
+ case Xgrass:
+ Cave[x][y] = (dy ? (dy < 0 ? Ygrass_nB : Ygrass_sB) :
+ (dx > 0 ? Ygrass_eB : Ygrass_wB));
+ Next[x][y] = Zplayer;
+ play_element_sound(x, y, SOUND_dirt, Xgrass);
+ ply->anim = PLY_walk_n + anim;
+ ply->x = x;
+ ply->y = y;
+ break;
+
+ case Xdirt:
+ Cave[x][y] = (dy ? (dy < 0 ? Ydirt_nB : Ydirt_sB) :
+ (dx > 0 ? Ydirt_eB : Ydirt_wB));
+ Next[x][y] = Zplayer;
+ play_element_sound(x, y, SOUND_dirt, Xdirt);
+ ply->anim = PLY_walk_n + anim;
+ ply->x = x;
+ ply->y = y;
+ break;
+
+ case Xdiamond:
+ case Xdiamond_pause:
+ Cave[x][y] = Ydiamond_blank;
+ Next[x][y] = Zplayer;
+ play_element_sound(x, y, SOUND_collect, element);
+ lev.score += lev.diamond_score;
+ lev.required = lev.required < 3 ? 0 : lev.required - 3;
+ game.snapshot.collected_item = TRUE;
+ ply->anim = PLY_walk_n + anim;
+ ply->x = x;
+ ply->y = y;
+ break;
+
+ case Xemerald:
+ case Xemerald_pause:
+ Cave[x][y] = Yemerald_blank;
+ Next[x][y] = Zplayer;
+ play_element_sound(x, y, SOUND_collect, element);
+ lev.score += lev.emerald_score;
+ lev.required = lev.required < 1 ? 0 : lev.required - 1;
+ game.snapshot.collected_item = TRUE;
+ ply->anim = PLY_walk_n + anim;
+ ply->x = x;
+ ply->y = y;
+ break;
+
+ case Xdynamite:
+ Cave[x][y] = Ydynamite_blank;
+ Next[x][y] = Zplayer;
+ play_element_sound(x, y, SOUND_collect, element);
+ lev.score += lev.dynamite_score;
+ ply->dynamite = ply->dynamite > 9998 ? 9999 : ply->dynamite + 1;
+ ply->anim = PLY_walk_n + anim;
+ ply->x = x;
+ ply->y = y;
+ break;
+
+ case Xkey_1:
+ ply->keys |= 0x01;
+ Cave[x][y] = Ykey_1_blank;
+ goto key_walk;
+
+ case Xkey_2:
+ ply->keys |= 0x02;
+ Cave[x][y] = Ykey_2_blank;
+ goto key_walk;
+
+ case Xkey_3:
+ ply->keys |= 0x04;
+ Cave[x][y] = Ykey_3_blank;
+ goto key_walk;
+
+ case Xkey_4:
+ ply->keys |= 0x08;
+ Cave[x][y] = Ykey_4_blank;
+ goto key_walk;
+
+ case Xkey_5:
+ ply->keys |= 0x10;
+ Cave[x][y] = Ykey_5_blank;
+ goto key_walk;
+
+ case Xkey_6:
+ ply->keys |= 0x20;
+ Cave[x][y] = Ykey_6_blank;
+ goto key_walk;
+
+ case Xkey_7:
+ ply->keys |= 0x40;
+ Cave[x][y] = Ykey_7_blank;
+ goto key_walk;
+
+ case Xkey_8:
+ ply->keys |= 0x80;
+ Cave[x][y] = Ykey_8_blank;
+ goto key_walk;
+
+ key_walk:
+
+ Next[x][y] = Zplayer;
+ play_element_sound(x, y, SOUND_collect, element);
+ lev.score += lev.key_score;
+ ply->anim = PLY_walk_n + anim;
+ ply->x = x;
+ ply->y = y;
+ break;
+
+ case Xlenses:
+ Cave[x][y] = Ylenses_blank;
+ Next[x][y] = Zplayer;
+ play_element_sound(x, y, SOUND_collect, element);
+ lev.score += lev.lenses_score;
+ lev.lenses_cnt = lev.lenses_time;
+ ply->anim = PLY_walk_n + anim;
+ ply->x = x;
+ ply->y = y;
+ break;
+
+ case Xmagnify:
+ Cave[x][y] = Ymagnify_blank;
+ Next[x][y] = Zplayer;
+ play_element_sound(x, y, SOUND_collect, element);
+ lev.score += lev.magnify_score;
+ lev.magnify_cnt = lev.magnify_time;
+ ply->anim = PLY_walk_n + anim;
+ ply->x = x;
+ ply->y = y;
+ break;
+
+ case Xstone:
+ if (dy)
+ break;
+
+ switch(Cave[x+dx][y])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ if (Cave[x+dx+1][y-1] == Xblank)
+ Cave[x+dx+1][y-1] = Xacid_splash_e;
+ if (Cave[x+dx-1][y-1] == Xblank)
+ Cave[x+dx-1][y-1] = Xacid_splash_w;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ goto stone_walk;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x+dx][y] = dx > 0 ? Ystone_e : Ystone_w;
+ Next[x+dx][y] = Xstone_pause;
+
+ stone_walk:
+
+ Cave[x][y] = dx > 0 ? Ystone_eB : Ystone_wB;
+ Next[x][y] = Zplayer;
+ play_element_sound(x, y, SOUND_roll, Xstone);
+ ply->x = x;
+ }
+
+ ply->anim = PLY_push_n + anim;
+ break;
+
+ case Xbomb:
+ if (dy)
+ break;
+
+ switch(Cave[x+dx][y])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ if (Cave[x+dx+1][y-1] == Xblank)
+ Cave[x+dx+1][y-1] = Xacid_splash_e;
+ if (Cave[x+dx-1][y-1] == Xblank)
+ Cave[x+dx-1][y-1] = Xacid_splash_w;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ goto bomb_walk;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x+dx][y] = dx > 0 ? Ybomb_e : Ybomb_w;
+ Next[x+dx][y] = Xbomb_pause;
+
+ bomb_walk:
+
+ Cave[x][y] = dx > 0 ? Ybomb_eB : Ybomb_wB;
+ Next[x][y] = Zplayer;
+ play_element_sound(x, y, SOUND_roll, Xbomb);
+ ply->x = x;
+ }
+
+ ply->anim = PLY_push_n + anim;
+ break;
+
+ case Xnut:
+ if (dy)
+ break;
+
+ switch(Cave[x+dx][y])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ if (Cave[x+dx+1][y-1] == Xblank)
+ Cave[x+dx+1][y-1] = Xacid_splash_e;
+ if (Cave[x+dx-1][y-1] == Xblank)
+ Cave[x+dx-1][y-1] = Xacid_splash_w;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ goto nut_walk;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x+dx][y] = dx > 0 ? Ynut_e : Ynut_w;
+ Next[x+dx][y] = Xnut_pause;
+
+ nut_walk:
+
+ Cave[x][y] = dx > 0 ? Ynut_eB : Ynut_wB;
+ Next[x][y] = Zplayer;
+ play_element_sound(x, y, SOUND_roll, Xnut);
+ ply->x = x;
+ }
+
+ ply->anim = PLY_push_n + anim;
+ break;
+
+ case Xspring:
+ if (dy)
+ break;
+
+ switch(Cave[x+dx][y])
+ {
+ case Xalien:
+ case Xalien_pause:
+ Cave[x][y] = dx > 0 ? Yspring_alien_eB : Yspring_alien_wB;
+ Cave[x+dx][y] = dx > 0 ? Yspring_alien_e : Yspring_alien_w;
+ Next[x][y] = Zplayer;
+ Next[x+dx][y] = dx > 0 ? Xspring_e : Xspring_w;
+ play_element_sound(x, y, SOUND_slurp, Xalien);
+ lev.score += lev.slurp_score;
+ ply->x = x;
+ break;
+
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ if (Cave[x+dx+1][y-1] == Xblank)
+ Cave[x+dx+1][y-1] = Xacid_splash_e;
+ if (Cave[x+dx-1][y-1] == Xblank)
+ Cave[x+dx-1][y-1] = Xacid_splash_w;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ goto spring_walk;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x+dx][y] = dx > 0 ? Yspring_e : Yspring_w;
+ Next[x+dx][y] = dx > 0 ? Xspring_e : Xspring_w;
+
+ spring_walk:
+ Cave[x][y] = dx > 0 ? Yspring_eB : Yspring_wB;
+ Next[x][y] = Zplayer;
+ play_element_sound(x, y, SOUND_roll, Xspring);
+ ply->x = x;
+ }
+
+ ply->anim = PLY_push_n + anim;
+ break;
+
+ case Xspring_pause:
+ case Xstone_pause:
+ case Xbomb_pause:
+ case Xnut_pause:
+ case Xsand_stonein_1:
+ case Xsand_stonein_2:
+ case Xsand_stonein_3:
+ case Xsand_stonein_4:
+ if (dy)
+ break;
+
+ ply->anim = PLY_push_n + anim;
+ break;
+
+ case Xballoon:
+ switch(Cave[x+dx][y+dy])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ if (Cave[x+dx+1][y+dy-1] == Xblank)
+ Cave[x+dx+1][y+dy-1] = Xacid_splash_e;
+ if (Cave[x+dx-1][y+dy-1] == Xblank)
+ Cave[x+dx-1][y+dy-1] = Xacid_splash_w;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ goto balloon_walk;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x+dx][y+dy] = (dy ? (dy < 0 ? Yballoon_n : Yballoon_s) :
+ (dx > 0 ? Yballoon_e : Yballoon_w));
+ Next[x+dx][y+dy] = Xballoon;
+
+ balloon_walk:
+ Cave[x][y] = (dy ? (dy < 0 ? Yballoon_nB : Yballoon_sB) :
+ (dx > 0 ? Yballoon_eB : Yballoon_wB));
+ Next[x][y] = Zplayer;
+ play_element_sound(x, y, SOUND_push, Xballoon);
+ ply->x = x;
+ ply->y = y;
+ }
+
+ ply->anim = PLY_push_n + anim;
+ break;
+
+ case Xandroid:
+ case Xandroid_1_n:
+ case Xandroid_2_n:
+ case Xandroid_1_e:
+ case Xandroid_2_e:
+ case Xandroid_1_s:
+ case Xandroid_2_s:
+ case Xandroid_1_w:
+ case Xandroid_2_w:
+ switch(Cave[x+dx][y+dy])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ if (Cave[x+dx+1][y+dy-1] == Xblank)
+ Cave[x+dx+1][y+dy-1] = Xacid_splash_e;
+ if (Cave[x+dx-1][y+dy-1] == Xblank)
+ Cave[x+dx-1][y+dy-1] = Xacid_splash_w;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ goto android_walk;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x+dx][y+dy] = (dy ? (dy < 0 ? Yandroid_n : Yandroid_s) :
+ (dx > 0 ? Yandroid_e : Yandroid_w));
+ Next[x+dx][y+dy] = (dy ? (dy < 0 ? Xandroid_2_n : Xandroid_2_s) :
+ (dx > 0 ? Xandroid_2_e : Xandroid_2_w));
+
+ android_walk:
+ Cave[x][y] = (dy ? (dy < 0 ? Yandroid_nB : Yandroid_sB) :
+ (dx > 0 ? Yandroid_eB : Yandroid_wB));
+ Next[x][y] = Zplayer;
+ play_element_sound(x, y, SOUND_push, Xandroid);
+ ply->x = x;
+ ply->y = y;
+ }
+
+ ply->anim = PLY_push_n + anim;
+ break;
+
+ case Xdoor_1:
+ case Xfake_door_1:
+ if (ply->keys & 0x01)
+ goto door_walk;
+ else
+ break;
+
+ case Xdoor_2:
+ case Xfake_door_2:
+ if (ply->keys & 0x02)
+ goto door_walk;
+ else
+ break;
+
+ case Xdoor_3:
+ case Xfake_door_3:
+ if (ply->keys & 0x04)
+ goto door_walk;
+ else
+ break;
+
+ case Xdoor_4:
+ case Xfake_door_4:
+ if (ply->keys & 0x08)
+ goto door_walk;
+ else
+ break;
+
+ case Xdoor_5:
+ case Xfake_door_5:
+ if (ply->keys & 0x10)
+ goto door_walk;
+ else
+ break;
+
+ case Xdoor_6:
+ case Xfake_door_6:
+ if (ply->keys & 0x20)
+ goto door_walk;
+ else
+ break;
+
+ case Xdoor_7:
+ case Xfake_door_7:
+ if (ply->keys & 0x40)
+ goto door_walk;
+ else
+ break;
+
+ case Xdoor_8:
+ case Xfake_door_8:
+ if (ply->keys & 0x80)
+ goto door_walk;
+ else
+ break;
+
+ door_walk:
+ if (!tab_blank[Cave[x+dx][y+dy]])
+ break;
+
+ Cave[x+dx][y+dy] = Zplayer;
+ Next[x+dx][y+dy] = Zplayer;
+ play_element_sound(x, y, SOUND_door, element);
+ ply->anim = PLY_walk_n + anim;
+ ply->x = x + dx;
+ ply->y = y + dy;
+ break;
+
+ case Xwheel:
+ play_element_sound(x, y, SOUND_press, element);
+ lev.wheel_cnt = lev.wheel_time;
+ lev.wheel_x = x;
+ lev.wheel_y = y;
+ break;
+
+ case Xwind_n:
+ lev.wind_direction = 0;
+ goto wind_walk;
+
+ case Xwind_e:
+ lev.wind_direction = 1;
+ goto wind_walk;
+
+ case Xwind_s:
+ lev.wind_direction = 2;
+ goto wind_walk;
+
+ case Xwind_w:
+ lev.wind_direction = 3;
+ goto wind_walk;
+
+ case Xwind_any:
+ lev.wind_direction = dy ? (dy < 0 ? 0 : 2) : (dx > 0 ? 1 : 3);
+ goto wind_walk;
+
+ wind_walk:
+ play_element_sound(x, y, SOUND_press, element);
+ lev.wind_cnt = lev.wind_time;
+ break;
+
+ case Xwind_stop:
+ play_element_sound(x, y, SOUND_press, element);
+ lev.wind_cnt = 0;
+ break;
+
+ case Xswitch:
+ play_element_sound(x, y, SOUND_press, element);
+ lev.ball_cnt = lev.ball_time;
+ lev.ball_state = !lev.ball_state;
+ break;
+
+ case Xplant:
+ Cave[x][y] = Yplant;
+ Next[x][y] = Xplant;
+ play_element_sound(x, y, SOUND_blank, Xplant);
+ ply->anim = PLY_walk_n + anim;
+ ply->x = x;
+ ply->y = y;
+ break;
+
+ case Xexit_1:
+ case Xexit_2:
+ case Xexit_3:
+ lev.home--;
+
+ if (lev.home == 0)
+ game_em.level_solved = TRUE;
+
+ ply->anim = PLY_walk_n + anim;
+ ply->x = x;
+ ply->y = y;
+
+ break;
+ }
+
+ if (ply->x == oldx && ply->y == oldy) /* no movement */
+ result = FALSE;
+ }
+ else /* player wants to snap */
+ {
+ int element = Cave[x][y];
+
+ switch(Cave[x][y])
+ {
+ /* fire is pressed */
+
+ case Xgrass:
+ Cave[x][y] = Ygrass_blank;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_dirt, element);
+ ply->anim = PLY_shoot_n + anim;
+ break;
+
+ case Xdirt:
+ Cave[x][y] = Ydirt_blank;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_dirt, element);
+ ply->anim = PLY_shoot_n + anim;
+ break;
+
+ case Xdiamond:
+ case Xdiamond_pause:
+ Cave[x][y] = Ydiamond_blank;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_collect, element);
+ lev.score += lev.diamond_score;
+ lev.required = lev.required < 3 ? 0 : lev.required - 3;
+ game.snapshot.collected_item = TRUE;
+ ply->anim = PLY_walk_n + anim;
+ break;
+
+ case Xemerald:
+ case Xemerald_pause:
+ Cave[x][y] = Yemerald_blank;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_collect, element);
+ lev.score += lev.emerald_score;
+ lev.required = lev.required < 1 ? 0 : lev.required - 1;
+ game.snapshot.collected_item = TRUE;
+ ply->anim = PLY_walk_n + anim;
+ break;
+
+ case Xdynamite:
+ Cave[x][y] = Ydynamite_blank;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_collect, element);
+ lev.score += lev.dynamite_score;
+ ply->dynamite = ply->dynamite > 9998 ? 9999 : ply->dynamite + 1;
+ ply->anim = PLY_walk_n + anim;
+ break;
+
+ case Xkey_1:
+ ply->keys |= 0x01;
+ Cave[x][y] = Ykey_1_blank;
+ goto key_shoot;
+
+ case Xkey_2:
+ ply->keys |= 0x02;
+ Cave[x][y] = Ykey_2_blank;
+ goto key_shoot;
+
+ case Xkey_3:
+ ply->keys |= 0x04;
+ Cave[x][y] = Ykey_3_blank;
+ goto key_shoot;
+
+ case Xkey_4:
+ ply->keys |= 0x08;
+ Cave[x][y] = Ykey_4_blank;
+ goto key_shoot;
+
+ case Xkey_5:
+ ply->keys |= 0x10;
+ Cave[x][y] = Ykey_5_blank;
+ goto key_shoot;
+
+ case Xkey_6:
+ ply->keys |= 0x20;
+ Cave[x][y] = Ykey_6_blank;
+ goto key_shoot;
+
+ case Xkey_7:
+ ply->keys |= 0x40;
+ Cave[x][y] = Ykey_7_blank;
+ goto key_shoot;
+
+ case Xkey_8:
+ ply->keys |= 0x80;
+ Cave[x][y] = Ykey_8_blank;
+ goto key_shoot;
+
+ key_shoot:
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_collect, element);
+ lev.score += lev.key_score;
+ ply->anim = PLY_walk_n + anim;
+ break;
+
+ case Xlenses:
+ Cave[x][y] = Ylenses_blank;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_collect, element);
+ lev.score += lev.lenses_score;
+ lev.lenses_cnt = lev.lenses_time;
+ ply->anim = PLY_walk_n + anim;
+ break;
+
+ case Xmagnify:
+ Cave[x][y] = Ymagnify_blank;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_collect, element);
+ lev.score += lev.magnify_score;
+ lev.magnify_cnt = lev.magnify_time;
+ ply->anim = PLY_walk_n + anim;
+ break;
+
+ default:
+ result = FALSE;
+ }
+ }
+
+ return result;
+}
+
+static void check_player(struct PLAYER *ply)
+{
+ int oldx = ply->x;
+ int oldy = ply->y;
+ int x = oldx;
+ int y = oldy;
+ int dx = 0, dy = 0;
+
+ game_em.last_player_direction[ply->num] = MV_NONE;
+
+ if (ply->joy_w) /* west */
+ {
+ x--;
+ dx = -1;
+ }
+ else if (ply->joy_e) /* east */
+ {
+ x++;
+ dx = 1;
+ }
+
+ if (ply->joy_n) /* north */
+ {
+ y--;
+ dy = -1;
+ }
+ else if (ply->joy_s) /* south */
+ {
+ y++;
+ dy = 1;
+ }
+
+ if (dx || dy)
+ {
+ int oldx = ply->x;
+ int oldy = ply->y;
+ int x = oldx + dx;
+ int y = oldy + dy;
+ boolean players_visible_before_move;
+ boolean players_visible_after_move;
+ boolean can_move;
+
+ players_visible_before_move = checkIfAllPlayersFitToScreen();
+
+ ply->x = x;
+ ply->y = y;
+
+ players_visible_after_move = checkIfAllPlayersFitToScreen();
+
+ /*
+ player is allowed to move only in the following cases:
+ - it is not needed to display all players (not focussed to all players)
+ - all players are (still or again) visible after the move
+ - some players were already outside visible screen area before the move
+ */
+ can_move = (game.centered_player_nr != -1 ||
+ players_visible_after_move ||
+ !players_visible_before_move);
+
+ ply->x = oldx;
+ ply->y = oldy;
+
+ if (!can_move)
+ {
+ ply->joy_n = ply->joy_e = ply->joy_s = ply->joy_w = 0;
+
+ return;
+ }
+ }
+
+ if (dx == 0 && dy == 0)
+ {
+ ply->joy_stick = 0;
+
+ if (ply->joy_drop)
+ {
+ if (++ply->dynamite_cnt == 5 && ply->dynamite)
+ {
+ Cave[x][y] = Xdynamite_1;
+ play_element_sound(x, y, SOUND_dynamite, Xdynamite_1);
+ ply->dynamite--;
+ }
+ }
+ else
+ {
+ ply->dynamite_cnt = 0;
+ }
+
+ RandomEM += 7; /* be a bit more random if the player doesn't move */
+
+ return;
+ }
+
+ ply->joy_stick = 1;
+ ply->joy_n = ply->joy_e = ply->joy_s = ply->joy_w = 0;
+ ply->dynamite_cnt = 0; /* reset dynamite timer if we move */
+ ply->joy_spin = !ply->joy_spin;
+
+ if (ply->joy_snap == 0) /* player wants to move */
+ {
+ boolean moved = FALSE;
+
+ if (ply->last_move_dir & MV_HORIZONTAL)
+ {
+ if (!(moved = player_digfield(ply, 0, dy)))
+ moved = player_digfield(ply, dx, 0);
+ }
+ else
+ {
+ if (!(moved = player_digfield(ply, dx, 0)))
+ moved = player_digfield(ply, 0, dy);
+ }
+
+ if (moved)
+ {
+ if (oldx != ply->x)
+ ply->last_move_dir = (dx < 0 ? MV_LEFT : MV_RIGHT);
+ else if (oldy != ply->y)
+ ply->last_move_dir = (dy < 0 ? MV_UP : MV_DOWN);
+
+ game_em.any_player_moving = TRUE;
+ game_em.last_moving_player = ply->num;
+ game_em.last_player_direction[ply->num] = ply->last_move_dir;
+ }
+ }
+ else /* player wants to snap */
+ {
+ game_em.any_player_snapping = player_digfield(ply, dx, dy);
+ }
+}
+
+static void set_nearest_player_xy(int x, int y, int *dx, int *dy)
+{
+ int distance, distance_shortest = EM_MAX_CAVE_WIDTH + EM_MAX_CAVE_HEIGHT;
+ int i;
+
+ /* default values if no players are alive anymore */
+ *dx = 0;
+ *dy = 0;
+
+ for (i = 0; i < MAX_PLAYERS; i++)
+ {
+ if (!ply[i].alive)
+ continue;
+
+ distance = ABS(ply[i].x - x) + ABS(ply[i].y - y);
+
+ if (distance < distance_shortest)
+ {
+ *dx = ply[i].x;
+ *dy = ply[i].y;
+
+ distance_shortest = distance;
+ }
+ }
+}
+
+static void Lacid_1(int x, int y)
+{
+ Next[x][y] = Xacid_2;
+}
+
+static void Lacid_2(int x, int y)
+{
+ Next[x][y] = Xacid_3;
+}
+
+static void Lacid_3(int x, int y)
+{
+ Next[x][y] = Xacid_4;
+}
+
+static void Lacid_4(int x, int y)
+{
+ Next[x][y] = Xacid_5;
+}
+
+static void Lacid_5(int x, int y)
+{
+ Next[x][y] = Xacid_6;
+}
+
+static void Lacid_6(int x, int y)
+{
+ Next[x][y] = Xacid_7;
+}
+
+static void Lacid_7(int x, int y)
+{
+ Next[x][y] = Xacid_8;
+}
+
+static void Lacid_8(int x, int y)
+{
+ Next[x][y] = Xacid_1;
+}
+
+#ifdef EM_ENGINE_USE_ADDITIONAL_ELEMENTS
+static void Lfake_acid_1(int x, int y)
+{
+ Next[x][y] = Xfake_acid_2;
+}
+
+static void Lfake_acid_2(int x, int y)
+{
+ Next[x][y] = Xfake_acid_3;
+}
+
+static void Lfake_acid_3(int x, int y)
+{
+ Next[x][y] = Xfake_acid_4;
+}
+
+static void Lfake_acid_4(int x, int y)
+{
+ Next[x][y] = Xfake_acid_5;
+}
+
+static void Lfake_acid_5(int x, int y)
+{
+ Next[x][y] = Xfake_acid_6;
+}
+
+static void Lfake_acid_6(int x, int y)
+{
+ Next[x][y] = Xfake_acid_7;
+}
+
+static void Lfake_acid_7(int x, int y)
+{
+ Next[x][y] = Xfake_acid_8;
+}
+
+static void Lfake_acid_8(int x, int y)
+{
+ Next[x][y] = Xfake_acid_1;
+}
+#endif
+
+static void Landroid(int x, int y)
+{
+ int dx, dy, temp;
+
+ if (lev.android_clone_cnt == 0)
+ {
+ if (Cave[x-1][y-1] != Xblank &&
+ Cave[x][y-1] != Xblank &&
+ Cave[x+1][y-1] != Xblank &&
+ Cave[x-1][y] != Xblank &&
+ Cave[x+1][y] != Xblank &&
+ Cave[x-1][y+1] != Xblank &&
+ Cave[x][y+1] != Xblank &&
+ Cave[x+1][y+1] != Xblank)
+ goto android_move;
+
+ switch (RANDOM(8))
+ {
+ /* randomly find an object to clone */
+
+ case 0: /* S,NE,W,NW,SE,E,SW,N */
+ temp = lev.android_array[Cave[x][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x][y-1]]; if (temp != Xblank) break;
+ goto android_move;
+
+ case 1: /* NW,SE,N,S,NE,SW,E,W */
+ temp = lev.android_array[Cave[x-1][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y]]; if (temp != Xblank) break;
+ goto android_move;
+
+ case 2: /* SW,E,S,W,N,NW,SE,NE */
+ temp = lev.android_array[Cave[x-1][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y-1]]; if (temp != Xblank) break;
+ goto android_move;
+
+ case 3: /* N,SE,NE,E,W,S,NW,SW */
+ temp = lev.android_array[Cave[x][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y+1]]; if (temp != Xblank) break;
+ goto android_move;
+
+ case 4: /* SE,NW,E,NE,SW,W,N,S */
+ temp = lev.android_array[Cave[x+1][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x][y+1]]; if (temp != Xblank) break;
+ goto android_move;
+
+ case 5: /* NE,W,SE,SW,S,N,E,NW */
+ temp = lev.android_array[Cave[x+1][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y-1]]; if (temp != Xblank) break;
+ goto android_move;
+
+ case 6: /* E,N,SW,S,NW,NE,SE,W */
+ temp = lev.android_array[Cave[x+1][y]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y]]; if (temp != Xblank) break;
+ goto android_move;
+
+ case 7: /* W,SW,NW,N,E,SE,NE,S */
+ temp = lev.android_array[Cave[x-1][y]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x-1][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y+1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x+1][y-1]]; if (temp != Xblank) break;
+ temp = lev.android_array[Cave[x][y+1]]; if (temp != Xblank) break;
+ goto android_move;
+ }
+
+ Next[x][y] = temp; /* the item we chose to clone */
+ play_element_sound(x, y, SOUND_android_clone, temp);
+
+ switch (RANDOM(8))
+ {
+ /* randomly find a direction to move */
+
+ case 0: /* S,NE,W,NW,SE,E,SW,N */
+ if (Cave[x][y+1] == Xblank) goto android_s;
+ if (Cave[x+1][y-1] == Xblank) goto android_ne;
+ if (Cave[x-1][y] == Xblank) goto android_w;
+ if (Cave[x-1][y-1] == Xblank) goto android_nw;
+ if (Cave[x+1][y+1] == Xblank) goto android_se;
+ if (Cave[x+1][y] == Xblank) goto android_e;
+ if (Cave[x-1][y+1] == Xblank) goto android_sw;
+ if (Cave[x][y-1] == Xblank) goto android_n;
+ goto android_move;
+
+ case 1: /* NW,SE,N,S,NE,SW,E,W */
+ if (Cave[x-1][y-1] == Xblank) goto android_nw;
+ if (Cave[x+1][y+1] == Xblank) goto android_se;
+ if (Cave[x][y-1] == Xblank) goto android_n;
+ if (Cave[x][y+1] == Xblank) goto android_s;
+ if (Cave[x+1][y-1] == Xblank) goto android_ne;
+ if (Cave[x-1][y+1] == Xblank) goto android_sw;
+ if (Cave[x+1][y] == Xblank) goto android_e;
+ if (Cave[x-1][y] == Xblank) goto android_w;
+ goto android_move;
+
+ case 2: /* SW,E,S,W,N,NW,SE,NE */
+ if (Cave[x-1][y+1] == Xblank) goto android_sw;
+ if (Cave[x+1][y] == Xblank) goto android_e;
+ if (Cave[x][y+1] == Xblank) goto android_s;
+ if (Cave[x-1][y] == Xblank) goto android_w;
+ if (Cave[x][y-1] == Xblank) goto android_n;
+ if (Cave[x-1][y-1] == Xblank) goto android_nw;
+ if (Cave[x+1][y+1] == Xblank) goto android_se;
+ if (Cave[x+1][y-1] == Xblank) goto android_ne;
+ goto android_move;
+
+ case 3: /* N,SE,NE,E,W,S,NW,SW */
+ if (Cave[x][y-1] == Xblank) goto android_n;
+ if (Cave[x+1][y+1] == Xblank) goto android_se;
+ if (Cave[x+1][y-1] == Xblank) goto android_ne;
+ if (Cave[x+1][y] == Xblank) goto android_e;
+ if (Cave[x-1][y] == Xblank) goto android_w;
+ if (Cave[x][y+1] == Xblank) goto android_s;
+ if (Cave[x-1][y-1] == Xblank) goto android_nw;
+ if (Cave[x-1][y+1] == Xblank) goto android_sw;
+ goto android_move;
+
+ case 4: /* SE,NW,E,NE,SW,W,N,S */
+ if (Cave[x+1][y+1] == Xblank) goto android_se;
+ if (Cave[x-1][y-1] == Xblank) goto android_nw;
+ if (Cave[x+1][y] == Xblank) goto android_e;
+ if (Cave[x+1][y-1] == Xblank) goto android_ne;
+ if (Cave[x-1][y+1] == Xblank) goto android_sw;
+ if (Cave[x-1][y] == Xblank) goto android_w;
+ if (Cave[x][y-1] == Xblank) goto android_n;
+ if (Cave[x][y+1] == Xblank) goto android_s;
+ goto android_move;
+
+ case 5: /* NE,W,SE,SW,S,N,E,NW */
+ if (Cave[x+1][y-1] == Xblank) goto android_ne;
+ if (Cave[x-1][y] == Xblank) goto android_w;
+ if (Cave[x+1][y+1] == Xblank) goto android_se;
+ if (Cave[x-1][y+1] == Xblank) goto android_sw;
+ if (Cave[x][y+1] == Xblank) goto android_s;
+ if (Cave[x][y-1] == Xblank) goto android_n;
+ if (Cave[x+1][y] == Xblank) goto android_e;
+ if (Cave[x-1][y-1] == Xblank) goto android_nw;
+ goto android_move;
+
+ case 6: /* E,N,SW,S,NW,NE,SE,W */
+ if (Cave[x+1][y] == Xblank) goto android_e;
+ if (Cave[x][y-1] == Xblank) goto android_n;
+ if (Cave[x-1][y+1] == Xblank) goto android_sw;
+ if (Cave[x][y+1] == Xblank) goto android_s;
+ if (Cave[x-1][y-1] == Xblank) goto android_nw;
+ if (Cave[x+1][y-1] == Xblank) goto android_ne;
+ if (Cave[x+1][y+1] == Xblank) goto android_se;
+ if (Cave[x-1][y] == Xblank) goto android_w;
+ goto android_move;
+
+ case 7: /* W,SW,NW,N,E,SE,NE,S */
+ if (Cave[x-1][y] == Xblank) goto android_w;
+ if (Cave[x-1][y+1] == Xblank) goto android_sw;
+ if (Cave[x-1][y-1] == Xblank) goto android_nw;
+ if (Cave[x][y-1] == Xblank) goto android_n;
+ if (Cave[x+1][y] == Xblank) goto android_e;
+ if (Cave[x+1][y+1] == Xblank) goto android_se;
+ if (Cave[x+1][y-1] == Xblank) goto android_ne;
+ if (Cave[x][y+1] == Xblank) goto android_s;
+ goto android_move;
+ }
+ }
+
+ android_move:
+ if (lev.android_move_cnt == 0)
+ {
+ if (Cave[x-1][y-1] == Zplayer ||
+ Cave[x][y-1] == Zplayer ||
+ Cave[x+1][y-1] == Zplayer ||
+ Cave[x-1][y] == Zplayer ||
+ Cave[x+1][y] == Zplayer ||
+ Cave[x-1][y+1] == Zplayer ||
+ Cave[x][y+1] == Zplayer ||
+ Cave[x+1][y+1] == Zplayer)
+ goto android_still;
+
+ set_nearest_player_xy(x, y, &dx, &dy);
+
+ Next[x][y] = Xblank; /* assume we will move */
+ temp = ((x < dx) + 1 - (x > dx)) + ((y < dy) + 1 - (y > dy)) * 3;
+
+ if (RANDOM(2))
+ {
+ switch (temp)
+ {
+ /* attempt clockwise move first if direct path is blocked */
+
+ case 0: /* north west */
+ if (tab_android_move[Cave[x-1][y-1]]) goto android_nw;
+ if (tab_android_move[Cave[x][y-1]]) goto android_n;
+ if (tab_android_move[Cave[x-1][y]]) goto android_w;
+ break;
+
+ case 1: /* north */
+ if (tab_android_move[Cave[x][y-1]]) goto android_n;
+ if (tab_android_move[Cave[x+1][y-1]]) goto android_ne;
+ if (tab_android_move[Cave[x-1][y-1]]) goto android_nw;
+ break;
+
+ case 2: /* north east */
+ if (tab_android_move[Cave[x+1][y-1]]) goto android_ne;
+ if (tab_android_move[Cave[x+1][y]]) goto android_e;
+ if (tab_android_move[Cave[x][y-1]]) goto android_n;
+ break;
+
+ case 3: /* west */
+ if (tab_android_move[Cave[x-1][y]]) goto android_w;
+ if (tab_android_move[Cave[x-1][y-1]]) goto android_nw;
+ if (tab_android_move[Cave[x-1][y+1]]) goto android_sw;
+ break;
+
+ case 4: /* nowhere */
+ break;
+
+ case 5: /* east */
+ if (tab_android_move[Cave[x+1][y]]) goto android_e;
+ if (tab_android_move[Cave[x+1][y+1]]) goto android_se;
+ if (tab_android_move[Cave[x+1][y-1]]) goto android_ne;
+ break;
+
+ case 6: /* south west */
+ if (tab_android_move[Cave[x-1][y+1]]) goto android_sw;
+ if (tab_android_move[Cave[x-1][y]]) goto android_w;
+ if (tab_android_move[Cave[x][y+1]]) goto android_s;
+ break;
+
+ case 7: /* south */
+ if (tab_android_move[Cave[x][y+1]]) goto android_s;
+ if (tab_android_move[Cave[x-1][y+1]]) goto android_sw;
+ if (tab_android_move[Cave[x+1][y+1]]) goto android_se;
+ break;
+
+ case 8: /* south east */
+ if (tab_android_move[Cave[x+1][y+1]]) goto android_se;
+ if (tab_android_move[Cave[x][y+1]]) goto android_s;
+ if (tab_android_move[Cave[x+1][y]]) goto android_e;
+ break;
+ }
+ }
+ else
+ {
+ switch (temp)
+ {
+ /* attempt counterclockwise move first if direct path is blocked */
+
+ case 0: /* north west */
+ if (tab_android_move[Cave[x-1][y-1]]) goto android_nw;
+ if (tab_android_move[Cave[x-1][y]]) goto android_w;
+ if (tab_android_move[Cave[x][y-1]]) goto android_n;
+ break;
+
+ case 1: /* north */
+ if (tab_android_move[Cave[x][y-1]]) goto android_n;
+ if (tab_android_move[Cave[x-1][y-1]]) goto android_nw;
+ if (tab_android_move[Cave[x+1][y-1]]) goto android_ne;
+ break;
+
+ case 2: /* north east */
+ if (tab_android_move[Cave[x+1][y-1]]) goto android_ne;
+ if (tab_android_move[Cave[x][y-1]]) goto android_n;
+ if (tab_android_move[Cave[x+1][y]]) goto android_e;
+ break;
+
+ case 3: /* west */
+ if (tab_android_move[Cave[x-1][y]]) goto android_w;
+ if (tab_android_move[Cave[x-1][y+1]]) goto android_sw;
+ if (tab_android_move[Cave[x-1][y-1]]) goto android_nw;
+ break;
+
+ case 4: /* nowhere */
+ break;
+
+ case 5: /* east */
+ if (tab_android_move[Cave[x+1][y]]) goto android_e;
+ if (tab_android_move[Cave[x+1][y-1]]) goto android_ne;
+ if (tab_android_move[Cave[x+1][y+1]]) goto android_se;
+ break;
+
+ case 6: /* south west */
+ if (tab_android_move[Cave[x-1][y+1]]) goto android_sw;
+ if (tab_android_move[Cave[x][y+1]]) goto android_s;
+ if (tab_android_move[Cave[x-1][y]]) goto android_w;
+ break;
+
+ case 7: /* south */
+ if (tab_android_move[Cave[x][y+1]]) goto android_s;
+ if (tab_android_move[Cave[x+1][y+1]]) goto android_se;
+ if (tab_android_move[Cave[x-1][y+1]]) goto android_sw;
+ break;
+
+ case 8: /* south east */
+ if (tab_android_move[Cave[x+1][y+1]]) goto android_se;
+ if (tab_android_move[Cave[x+1][y]]) goto android_e;
+ if (tab_android_move[Cave[x][y+1]]) goto android_s;
+ break;
+ }
+ }
+ }
+
+ android_still:
+ Next[x][y] = Xandroid;
+ return;
+
+ android_n:
+ Cave[x][y] = Yandroid_nB;
+ Cave[x][y-1] = Yandroid_n;
+ Next[x][y-1] = Xandroid;
+ play_element_sound(x, y, SOUND_android_move, Xandroid);
+ return;
+
+ android_ne:
+ Cave[x][y] = Yandroid_neB;
+ Cave[x+1][y-1] = Yandroid_ne;
+ Next[x+1][y-1] = Xandroid;
+ play_element_sound(x, y, SOUND_android_move, Xandroid);
+ return;
+
+ android_e:
+ Cave[x][y] = Yandroid_eB;
+ Cave[x+1][y] = Yandroid_e;
+ Next[x+1][y] = Xandroid;
+ play_element_sound(x, y, SOUND_android_move, Xandroid);
+ return;
+
+ android_se:
+ Cave[x][y] = Yandroid_seB;
+ Cave[x+1][y+1] = Yandroid_se;
+ Next[x+1][y+1] = Xandroid;
+ play_element_sound(x, y, SOUND_android_move, Xandroid);
+ return;
+
+ android_s:
+ Cave[x][y] = Yandroid_sB;
+ Cave[x][y+1] = Yandroid_s;
+ Next[x][y+1] = Xandroid;
+ play_element_sound(x, y, SOUND_android_move, Xandroid);
+ return;
+
+ android_sw:
+ Cave[x][y] = Yandroid_swB;
+ Cave[x-1][y+1] = Yandroid_sw;
+ Next[x-1][y+1] = Xandroid;
+ play_element_sound(x, y, SOUND_android_move, Xandroid);
+ return;
+
+ android_w:
+ Cave[x][y] = Yandroid_wB;
+ Cave[x-1][y] = Yandroid_w;
+ Next[x-1][y] = Xandroid;
+ play_element_sound(x, y, SOUND_android_move, Xandroid);
+ return;
+
+ android_nw:
+ Cave[x][y] = Yandroid_nwB;
+ Cave[x-1][y-1] = Yandroid_nw;
+ Next[x-1][y-1] = Xandroid;
+ play_element_sound(x, y, SOUND_android_move, Xandroid);
+ return;
+}
+
+static void Landroid_1_n(int x, int y)
+{
+ switch (Cave[x][y-1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yandroid_nB;
+ if (Cave[x+1][y-2] == Xblank)
+ Cave[x+1][y-2] = Xacid_splash_e;
+ if (Cave[x-1][y-2] == Xblank)
+ Cave[x-1][y-2] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Yandroid_nB;
+ Cave[x][y-1] = Yandroid_n;
+ Next[x][y] = Xblank;
+ Next[x][y-1] = Xandroid;
+ play_element_sound(x, y, SOUND_android_move, Xandroid_1_n);
+ return;
+
+ default:
+ Landroid(x, y);
+ return;
+ }
+}
+
+static void Landroid_2_n(int x, int y)
+{
+ switch (Cave[x][y-1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yandroid_nB;
+ if (Cave[x+1][y-2] == Xblank)
+ Cave[x+1][y-2] = Xacid_splash_e;
+ if (Cave[x-1][y-2] == Xblank)
+ Cave[x-1][y-2] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Yandroid_nB;
+ Cave[x][y-1] = Yandroid_n;
+ Next[x][y] = Xblank;
+ Next[x][y-1] = Xandroid_1_n;
+ play_element_sound(x, y, SOUND_android_move, Xandroid_2_n);
+ return;
+
+ default:
+ Landroid(x, y);
+ return;
+ }
+}
+
+static void Landroid_1_e(int x, int y)
+{
+ switch (Cave[x+1][y])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yandroid_eB;
+ if (Cave[x+2][y-1] == Xblank)
+ Cave[x+2][y-1] = Xacid_splash_e;
+ if (Cave[x][y-1] == Xblank)
+ Cave[x][y-1] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Yandroid_eB;
+ Cave[x+1][y] = Yandroid_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xandroid;
+ play_element_sound(x, y, SOUND_android_move, Xandroid_1_e);
+ return;
+
+ default:
+ Landroid(x, y);
+ return;
+ }
+}
+
+static void Landroid_2_e(int x, int y)
+{
+ switch (Cave[x+1][y])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yandroid_eB;
+ if (Cave[x+2][y-1] == Xblank)
+ Cave[x+2][y-1] = Xacid_splash_e;
+ if (Cave[x][y-1] == Xblank)
+ Cave[x][y-1] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Yandroid_eB;
+ Cave[x+1][y] = Yandroid_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xandroid_1_e;
+ play_element_sound(x, y, SOUND_android_move, Xandroid_2_e);
+ return;
+
+ default:
+ Landroid(x, y);
+ return;
+ }
+}
+
+static void Landroid_1_s(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yandroid_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Yandroid_sB;
+ Cave[x][y+1] = Yandroid_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xandroid;
+ play_element_sound(x, y, SOUND_android_move, Xandroid_1_s);
+ return;
+
+ default:
+ Landroid(x, y);
+ return;
+ }
+}
+
+static void Landroid_2_s(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yandroid_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Yandroid_sB;
+ Cave[x][y+1] = Yandroid_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xandroid_1_s;
+ play_element_sound(x, y, SOUND_android_move, Xandroid_2_s);
+ return;
+
+ default:
+ Landroid(x, y);
+ return;
+ }
+}
+
+static void Landroid_1_w(int x, int y)
+{
+ switch (Cave[x-1][y])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yandroid_wB;
+ if (Cave[x][y-1] == Xblank)
+ Cave[x][y-1] = Xacid_splash_e;
+ if (Cave[x-2][y-1] == Xblank)
+ Cave[x-2][y-1] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Yandroid_wB;
+ Cave[x-1][y] = Yandroid_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xandroid;
+ play_element_sound(x, y, SOUND_android_move, Xandroid_1_w);
+ return;
+
+ default:
+ Landroid(x, y);
+ return;
+ }
+}
+
+static void Landroid_2_w(int x, int y)
+{
+ switch (Cave[x-1][y])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yandroid_wB;
+ if (Cave[x][y-1] == Xblank)
+ Cave[x][y-1] = Xacid_splash_e;
+ if (Cave[x-2][y-1] == Xblank)
+ Cave[x-2][y-1] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Yandroid_wB;
+ Cave[x-1][y] = Yandroid_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xandroid_1_w;
+ play_element_sound(x, y, SOUND_android_move, Xandroid_1_w);
+ return;
+
+ default:
+ Landroid(x, y);
+ return;
+ }
+}
+
+static void Leater_n(int x, int y)
+{
+ if (Cave[x+1][y] == Xdiamond)
+ {
+ Cave[x+1][y] = Ydiamond_blank;
+ Next[x+1][y] = Xblank;
+ play_element_sound(x, y, SOUND_eater_eat, Xeater_n);
+ return;
+ }
+
+ if (Cave[x][y+1] == Xdiamond)
+ {
+ Cave[x][y+1] = Ydiamond_blank;
+ Next[x][y+1] = Xblank;
+ play_element_sound(x, y, SOUND_eater_eat, Xeater_n);
+ return;
+ }
+
+ if (Cave[x-1][y] == Xdiamond)
+ {
+ Cave[x-1][y] = Ydiamond_blank;
+ Next[x-1][y] = Xblank;
+ play_element_sound(x, y, SOUND_eater_eat, Xeater_n);
+ return;
+ }
+
+ if (Cave[x][y-1] == Xdiamond)
+ {
+ Cave[x][y-1] = Ydiamond_blank;
+ Next[x][y-1] = Xblank;
+ play_element_sound(x, y, SOUND_eater_eat, Xeater_n);
+ return;
+ }
+
+ switch (Cave[x][y-1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yeater_nB;
+ if (Cave[x+1][y-2] == Xblank)
+ Cave[x+1][y-2] = Xacid_splash_e;
+ if (Cave[x-1][y-2] == Xblank)
+ Cave[x-1][y-2] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Zplayer:
+ Cave[x][y] = Yeater_nB;
+ Cave[x][y-1] = Yeater_n;
+ Next[x][y] = Xblank;
+ Next[x][y-1] = Xeater_n;
+ return;
+
+ default:
+ Next[x][y] = RANDOM(2) ? Xeater_e : Xeater_w;
+ play_element_sound(x, y, SOUND_eater, Xeater_n);
+ return;
+ }
+}
+
+static void Leater_e(int x, int y)
+{
+ if (Cave[x][y+1] == Xdiamond)
+ {
+ Cave[x][y+1] = Ydiamond_blank;
+ Next[x][y+1] = Xblank;
+ play_element_sound(x, y, SOUND_eater_eat, Xeater_e);
+ return;
+ }
+
+ if (Cave[x-1][y] == Xdiamond)
+ {
+ Cave[x-1][y] = Ydiamond_blank;
+ Next[x-1][y] = Xblank;
+ play_element_sound(x, y, SOUND_eater_eat, Xeater_e);
+ return;
+ }
+
+ if (Cave[x][y-1] == Xdiamond)
+ {
+ Cave[x][y-1] = Ydiamond_blank;
+ Next[x][y-1] = Xblank;
+ play_element_sound(x, y, SOUND_eater_eat, Xeater_e);
+ return;
+ }
+
+ if (Cave[x+1][y] == Xdiamond)
+ {
+ Cave[x+1][y] = Ydiamond_blank;
+ Next[x+1][y] = Xblank;
+ play_element_sound(x, y, SOUND_eater_eat, Xeater_e);
+ return;
+ }
+
+ switch (Cave[x+1][y])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yeater_eB;
+ if (Cave[x+2][y-1] == Xblank)
+ Cave[x+2][y-1] = Xacid_splash_e;
+ if (Cave[x][y-1] == Xblank)
+ Cave[x][y-1] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Zplayer:
+ Cave[x][y] = Yeater_eB;
+ Cave[x+1][y] = Yeater_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xeater_e;
+ return;
+
+ default:
+ Next[x][y] = RANDOM(2) ? Xeater_n : Xeater_s;
+ play_element_sound(x, y, SOUND_eater, Xeater_e);
+ return;
+ }
+}
+
+static void Leater_s(int x, int y)
+{
+ if (Cave[x-1][y] == Xdiamond)
+ {
+ Cave[x-1][y] = Ydiamond_blank;
+ Next[x-1][y] = Xblank;
+ play_element_sound(x, y, SOUND_eater_eat, Xeater_s);
+ return;
+ }
+
+ if (Cave[x][y-1] == Xdiamond)
+ {
+ Cave[x][y-1] = Ydiamond_blank;
+ Next[x][y-1] = Xblank;
+ play_element_sound(x, y, SOUND_eater_eat, Xeater_s);
+ return;
+ }
+
+ if (Cave[x+1][y] == Xdiamond)
+ {
+ Cave[x+1][y] = Ydiamond_blank;
+ Next[x+1][y] = Xblank;
+ play_element_sound(x, y, SOUND_eater_eat, Xeater_s);
+ return;
+ }
+
+ if (Cave[x][y+1] == Xdiamond)
+ {
+ Cave[x][y+1] = Ydiamond_blank;
+ Next[x][y+1] = Xblank;
+ play_element_sound(x, y, SOUND_eater_eat, Xeater_s);
+ return;
+ }
+
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yeater_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Zplayer:
+ Cave[x][y] = Yeater_sB;
+ Cave[x][y+1] = Yeater_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xeater_s;
+ return;
+
+ default:
+ Next[x][y] = RANDOM(2) ? Xeater_e : Xeater_w;
+ play_element_sound(x, y, SOUND_eater, Xeater_s);
+ return;
+ }
+}
+
+static void Leater_w(int x, int y)
+{
+ if (Cave[x][y-1] == Xdiamond)
+ {
+ Cave[x][y-1] = Ydiamond_blank;
+ Next[x][y-1] = Xblank;
+ play_element_sound(x, y, SOUND_eater_eat, Xeater_w);
+ return;
+ }
+
+ if (Cave[x+1][y] == Xdiamond)
+ {
+ Cave[x+1][y] = Ydiamond_blank;
+ Next[x+1][y] = Xblank;
+ play_element_sound(x, y, SOUND_eater_eat, Xeater_w);
+ return;
+ }
+
+ if (Cave[x][y+1] == Xdiamond)
+ {
+ Cave[x][y+1] = Ydiamond_blank;
+ Next[x][y+1] = Xblank;
+ play_element_sound(x, y, SOUND_eater_eat, Xeater_w);
+ return;
+ }
+
+ if (Cave[x-1][y] == Xdiamond)
+ {
+ Cave[x-1][y] = Ydiamond_blank;
+ Next[x-1][y] = Xblank;
+ play_element_sound(x, y, SOUND_eater_eat, Xeater_w);
+ return;
+ }
+
+ switch (Cave[x-1][y])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yeater_wB;
+ if (Cave[x][y-1] == Xblank)
+ Cave[x][y-1] = Xacid_splash_e;
+ if (Cave[x-2][y-1] == Xblank)
+ Cave[x-2][y-1] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Zplayer:
+ Cave[x][y] = Yeater_wB;
+ Cave[x-1][y] = Yeater_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xeater_w;
+ return;
+
+ default:
+ Next[x][y] = RANDOM(2) ? Xeater_n : Xeater_s;
+ play_element_sound(x, y, SOUND_eater, Xeater_w);
+ return;
+ }
+}
+
+static void Lalien(int x, int y)
+{
+ int dx, dy;
+
+ if (lev.wheel_cnt)
+ {
+ dx = lev.wheel_x;
+ dy = lev.wheel_y;
+ }
+ else
+ {
+ set_nearest_player_xy(x, y, &dx, &dy);
+ }
+
+ if (RANDOM(2))
+ {
+ if (y > dy)
+ {
+ switch (Cave[x][y-1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yalien_nB;
+ if (Cave[x+1][y-2] == Xblank)
+ Cave[x+1][y-2] = Xacid_splash_e;
+ if (Cave[x-1][y-2] == Xblank)
+ Cave[x-1][y-2] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Zplayer:
+ Cave[x][y] = Yalien_nB;
+ Cave[x][y-1] = Yalien_n;
+ Next[x][y] = Xblank;
+ Next[x][y-1] = Xalien_pause;
+ play_element_sound(x, y, SOUND_alien, Xalien);
+ return;
+ }
+ }
+ else if (y < dy)
+ {
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yalien_sB;
+ Next[x][y] = Xblank;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Zplayer:
+ Cave[x][y] = Yalien_sB;
+ Cave[x][y+1] = Yalien_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xalien_pause;
+ play_element_sound(x, y, SOUND_alien, Xalien);
+ return;
+ }
+ }
+ }
+ else
+ {
+ if (x < dx)
+ {
+ switch (Cave[x+1][y])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yalien_eB;
+ if (Cave[x+2][y-1] == Xblank)
+ Cave[x+2][y-1] = Xacid_splash_e;
+ if (Cave[x][y-1] == Xblank)
+ Cave[x][y-1] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Zplayer:
+ Cave[x][y] = Yalien_eB;
+ Cave[x+1][y] = Yalien_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xalien_pause;
+ play_element_sound(x, y, SOUND_alien, Xalien);
+ return;
+ }
+ }
+ else if (x > dx)
+ {
+ switch (Cave[x-1][y])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yalien_wB;
+ if (Cave[x][y-1] == Xblank)
+ Cave[x][y-1] = Xacid_splash_e;
+ if (Cave[x-2][y-1] == Xblank)
+ Cave[x-2][y-1] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Zplayer:
+ Cave[x][y] = Yalien_wB;
+ Cave[x-1][y] = Yalien_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xalien_pause;
+ play_element_sound(x, y, SOUND_alien, Xalien);
+ return;
+ }
+ }
+ }
+}
+
+static void Lalien_pause(int x, int y)
+{
+ Next[x][y] = Xalien;
+}
+
+static void Lbug_n(int x, int y)
+{
+ switch (Cave[x][y-1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ybug_nB;
+ if (Cave[x+1][y-2] == Xblank)
+ Cave[x+1][y-2] = Xacid_splash_e;
+ if (Cave[x-1][y-2] == Xblank)
+ Cave[x-1][y-2] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Zplayer:
+ Cave[x][y] = Ybug_nB;
+ Cave[x][y-1] = Ybug_n;
+ Next[x][y] = Xblank;
+ Next[x][y-1] = Xbug_1_n;
+ play_element_sound(x, y, SOUND_bug, Xbug_1_n);
+ return;
+
+ default:
+ Cave[x][y] = Ybug_n_w;
+ Next[x][y] = Xbug_2_w;
+ play_element_sound(x, y, SOUND_bug, Xbug_1_n);
+ return;
+ }
+}
+
+static void Lbug_1_n(int x, int y)
+{
+ if (tab_amoeba[Cave[x][y-1]] ||
+ tab_amoeba[Cave[x+1][y]] ||
+ tab_amoeba[Cave[x][y+1]] ||
+ tab_amoeba[Cave[x-1][y]])
+ {
+ Lboom_bug(x, y);
+
+ return;
+ }
+
+ switch (Cave[x+1][y])
+ {
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ case Zplayer:
+ Cave[x][y] = Ybug_n_e;
+ Next[x][y] = Xbug_2_e;
+ play_element_sound(x, y, SOUND_bug, Xbug_1_n);
+ return;
+
+ default:
+ Lbug_n(x, y);
+ return;
+ }
+}
+
+static void Lbug_2_n(int x, int y)
+{
+ if (tab_amoeba[Cave[x][y-1]] ||
+ tab_amoeba[Cave[x+1][y]] ||
+ tab_amoeba[Cave[x][y+1]] ||
+ tab_amoeba[Cave[x-1][y]])
+ {
+ Lboom_bug(x, y);
+
+ return;
+ }
+
+ Lbug_n(x, y);
+}
+
+static void Lbug_e(int x, int y)
+{
+ switch (Cave[x+1][y])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ybug_eB;
+ if (Cave[x+2][y-1] == Xblank)
+ Cave[x+2][y-1] = Xacid_splash_e;
+ if (Cave[x][y-1] == Xblank)
+ Cave[x][y-1] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Zplayer:
+ Cave[x][y] = Ybug_eB;
+ Cave[x+1][y] = Ybug_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xbug_1_e;
+ play_element_sound(x, y, SOUND_bug, Xbug_1_e);
+ return;
+
+ default:
+ Cave[x][y] = Ybug_e_n;
+ Next[x][y] = Xbug_2_n;
+ play_element_sound(x, y, SOUND_bug, Xbug_1_e);
+ return;
+ }
+}
+
+static void Lbug_1_e(int x, int y)
+{
+ if (tab_amoeba[Cave[x][y-1]] ||
+ tab_amoeba[Cave[x+1][y]] ||
+ tab_amoeba[Cave[x][y+1]] ||
+ tab_amoeba[Cave[x-1][y]])
+ {
+ Lboom_bug(x, y);
+
+ return;
+ }
+
+ switch (Cave[x][y+1])
+ {
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ case Zplayer:
+ Cave[x][y] = Ybug_e_s;
+ Next[x][y] = Xbug_2_s;
+ play_element_sound(x, y, SOUND_bug, Xbug_1_e);
+ return;
+
+ default:
+ Lbug_e(x, y);
+ return;
+ }
+}
+
+static void Lbug_2_e(int x, int y)
+{
+ if (tab_amoeba[Cave[x][y-1]] ||
+ tab_amoeba[Cave[x+1][y]] ||
+ tab_amoeba[Cave[x][y+1]] ||
+ tab_amoeba[Cave[x-1][y]])
+ {
+ Lboom_bug(x, y);
+
+ return;
+ }
+
+ Lbug_e(x, y);
+}
+
+static void Lbug_s(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ybug_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Zplayer:
+ Cave[x][y] = Ybug_sB;
+ Cave[x][y+1] = Ybug_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xbug_1_s;
+ play_element_sound(x, y, SOUND_bug, Xbug_1_s);
+ return;
+
+ default:
+ Cave[x][y] = Ybug_s_e;
+ Next[x][y] = Xbug_2_e;
+ play_element_sound(x, y, SOUND_bug, Xbug_1_s);
+ return;
+ }
+}
+
+static void Lbug_1_s(int x, int y)
+{
+ if (tab_amoeba[Cave[x][y-1]] ||
+ tab_amoeba[Cave[x+1][y]] ||
+ tab_amoeba[Cave[x][y+1]] ||
+ tab_amoeba[Cave[x-1][y]])
+ {
+ Lboom_bug(x, y);
+
+ return;
+ }
+
+ switch (Cave[x-1][y])
+ {
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ case Zplayer:
+ Cave[x][y] = Ybug_s_w;
+ Next[x][y] = Xbug_2_w;
+ play_element_sound(x, y, SOUND_bug, Xbug_1_s);
+ return;
+
+ default:
+ Lbug_s(x, y);
+ return;
+ }
+}
+
+static void Lbug_2_s(int x, int y)
+{
+ if (tab_amoeba[Cave[x][y-1]] ||
+ tab_amoeba[Cave[x+1][y]] ||
+ tab_amoeba[Cave[x][y+1]] ||
+ tab_amoeba[Cave[x-1][y]])
+ {
+ Lboom_bug(x, y);
+
+ return;
+ }
+
+ Lbug_s(x, y);
+}
+
+static void Lbug_w(int x, int y)
+{
+ switch (Cave[x-1][y])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ybug_wB;
+ if (Cave[x][y-1] == Xblank)
+ Cave[x][y-1] = Xacid_splash_e;
+ if (Cave[x-2][y-1] == Xblank)
+ Cave[x-2][y-1] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Zplayer:
+ Cave[x][y] = Ybug_wB;
+ Cave[x-1][y] = Ybug_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xbug_1_w;
+ play_element_sound(x, y, SOUND_bug, Xbug_1_w);
+ return;
+
+ default:
+ Cave[x][y] = Ybug_w_s;
+ Next[x][y] = Xbug_2_s;
+ play_element_sound(x, y, SOUND_bug, Xbug_1_w);
+ return;
+ }
+}
+
+static void Lbug_1_w(int x, int y)
+{
+ if (tab_amoeba[Cave[x][y-1]] ||
+ tab_amoeba[Cave[x+1][y]] ||
+ tab_amoeba[Cave[x][y+1]] ||
+ tab_amoeba[Cave[x-1][y]])
+ {
+ Lboom_bug(x, y);
+
+ return;
+ }
+
+ switch (Cave[x][y-1])
+ {
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ case Zplayer:
+ Cave[x][y] = Ybug_w_n;
+ Next[x][y] = Xbug_2_n;
+ play_element_sound(x, y, SOUND_bug, Xbug_1_w);
+ return;
+
+ default:
+ Lbug_w(x, y);
+ return;
+ }
+}
+
+static void Lbug_2_w(int x, int y)
+{
+ if (tab_amoeba[Cave[x][y-1]] ||
+ tab_amoeba[Cave[x+1][y]] ||
+ tab_amoeba[Cave[x][y+1]] ||
+ tab_amoeba[Cave[x-1][y]])
+ {
+ Lboom_bug(x, y);
+
+ return;
+ }
+
+ Lbug_w(x, y);
+}
+
+static void Ltank_n(int x, int y)
+{
+ switch (Cave[x][y-1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ytank_nB;
+ if (Cave[x+1][y-2] == Xblank)
+ Cave[x+1][y-2] = Xacid_splash_e;
+ if (Cave[x-1][y-2] == Xblank)
+ Cave[x-1][y-2] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Zplayer:
+ Cave[x][y] = Ytank_nB;
+ Cave[x][y-1] = Ytank_n;
+ Next[x][y] = Xblank;
+ Next[x][y-1] = Xtank_1_n;
+ play_element_sound(x, y, SOUND_tank, Xtank_1_n);
+ return;
+
+ default:
+ Cave[x][y] = Ytank_n_e;
+ Next[x][y] = Xtank_2_e;
+ play_element_sound(x, y, SOUND_tank, Xtank_1_n);
+ return;
+ }
+}
+
+static void Ltank_1_n(int x, int y)
+{
+ if (tab_amoeba[Cave[x][y-1]] ||
+ tab_amoeba[Cave[x+1][y]] ||
+ tab_amoeba[Cave[x][y+1]] ||
+ tab_amoeba[Cave[x-1][y]])
+ {
+ Lboom_tank(x, y);
+
+ return;
+ }
+
+ switch (Cave[x-1][y])
+ {
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ case Zplayer:
+ Cave[x][y] = Ytank_n_w;
+ Next[x][y] = Xtank_2_w;
+ play_element_sound(x, y, SOUND_tank, Xtank_1_n);
+ return;
+
+ default:
+ Ltank_n(x, y);
+ return;
+ }
+}
+
+static void Ltank_2_n(int x, int y)
+{
+ if (tab_amoeba[Cave[x][y-1]] ||
+ tab_amoeba[Cave[x+1][y]] ||
+ tab_amoeba[Cave[x][y+1]] ||
+ tab_amoeba[Cave[x-1][y]])
+ {
+ Lboom_tank(x, y);
+
+ return;
+ }
+
+ Ltank_n(x, y);
+}
+
+static void Ltank_e(int x, int y)
+{
+ switch (Cave[x+1][y])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ytank_eB;
+ if (Cave[x+2][y-1] == Xblank)
+ Cave[x+2][y-1] = Xacid_splash_e;
+ if (Cave[x][y-1] == Xblank)
+ Cave[x][y-1] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Zplayer:
+ Cave[x][y] = Ytank_eB;
+ Cave[x+1][y] = Ytank_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xtank_1_e;
+ play_element_sound(x, y, SOUND_tank, Xtank_1_e);
+ return;
+
+ default:
+ Cave[x][y] = Ytank_e_s;
+ Next[x][y] = Xtank_2_s;
+ play_element_sound(x, y, SOUND_tank, Xtank_1_e);
+ return;
+ }
+}
+
+static void Ltank_1_e(int x, int y)
+{
+ if (tab_amoeba[Cave[x][y-1]] ||
+ tab_amoeba[Cave[x+1][y]] ||
+ tab_amoeba[Cave[x][y+1]] ||
+ tab_amoeba[Cave[x-1][y]])
+ {
+ Lboom_tank(x, y);
+
+ return;
+ }
+
+ switch (Cave[x][y-1])
+ {
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ case Zplayer:
+ Cave[x][y] = Ytank_e_n;
+ Next[x][y] = Xtank_2_n;
+ play_element_sound(x, y, SOUND_tank, Xtank_1_e);
+ return;
+
+ default:
+ Ltank_e(x, y);
+ return;
+ }
+}
+
+static void Ltank_2_e(int x, int y)
+{
+ if (tab_amoeba[Cave[x][y-1]] ||
+ tab_amoeba[Cave[x+1][y]] ||
+ tab_amoeba[Cave[x][y+1]] ||
+ tab_amoeba[Cave[x-1][y]])
+ {
+ Lboom_tank(x, y);
+
+ return;
+ }
+
+ Ltank_e(x, y);
+}
+
+static void Ltank_s(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ytank_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Zplayer:
+ Cave[x][y] = Ytank_sB;
+ Cave[x][y+1] = Ytank_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xtank_1_s;
+ play_element_sound(x, y, SOUND_tank, Xtank_1_s);
+ return;
+
+ default:
+ Cave[x][y] = Ytank_s_w;
+ Next[x][y] = Xtank_2_w;
+ play_element_sound(x, y, SOUND_tank, Xtank_1_s);
+ return;
+ }
+}
+
+static void Ltank_1_s(int x, int y)
+{
+ if (tab_amoeba[Cave[x][y-1]] ||
+ tab_amoeba[Cave[x+1][y]] ||
+ tab_amoeba[Cave[x][y+1]] ||
+ tab_amoeba[Cave[x-1][y]])
+ {
+ Lboom_tank(x, y);
+
+ return;
+ }
+
+ switch (Cave[x+1][y])
+ {
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ case Zplayer:
+ Cave[x][y] = Ytank_s_e;
+ Next[x][y] = Xtank_2_e;
+ play_element_sound(x, y, SOUND_tank, Xtank_1_s);
+ return;
+
+ default:
+ Ltank_s(x, y);
+ return;
+ }
+}
+
+static void Ltank_2_s(int x, int y)
+{
+ if (tab_amoeba[Cave[x][y-1]] ||
+ tab_amoeba[Cave[x+1][y]] ||
+ tab_amoeba[Cave[x][y+1]] ||
+ tab_amoeba[Cave[x-1][y]])
+ {
+ Lboom_tank(x, y);
+
+ return;
+ }
+
+ Ltank_s(x, y);
+}
+
+static void Ltank_w(int x, int y)
+{
+ switch (Cave[x-1][y])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ytank_wB;
+ if (Cave[x][y-1] == Xblank)
+ Cave[x][y-1] = Xacid_splash_e;
+ if (Cave[x-2][y-1] == Xblank)
+ Cave[x-2][y-1] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Zplayer:
+ Cave[x][y] = Ytank_wB;
+ Cave[x-1][y] = Ytank_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xtank_1_w;
+ play_element_sound(x, y, SOUND_tank, Xtank_1_w);
+ return;
+
+ default:
+ Cave[x][y] = Ytank_w_n;
+ Next[x][y] = Xtank_2_n;
+ play_element_sound(x, y, SOUND_tank, Xtank_1_w);
+ return;
+ }
+}
+
+static void Ltank_1_w(int x, int y)
+{
+ if (tab_amoeba[Cave[x][y-1]] ||
+ tab_amoeba[Cave[x+1][y]] ||
+ tab_amoeba[Cave[x][y+1]] ||
+ tab_amoeba[Cave[x-1][y]])
+ {
+ Lboom_tank(x, y);
+
+ return;
+ }
+
+ switch (Cave[x][y+1])
+ {
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ case Zplayer:
+ Cave[x][y] = Ytank_w_s;
+ Next[x][y] = Xtank_2_s;
+ play_element_sound(x, y, SOUND_tank, Xtank_1_w);
+ return;
+
+ default:
+ Ltank_w(x, y);
+ return;
+ }
+}
+
+static void Ltank_2_w(int x, int y)
+{
+ if (tab_amoeba[Cave[x][y-1]] ||
+ tab_amoeba[Cave[x+1][y]] ||
+ tab_amoeba[Cave[x][y+1]] ||
+ tab_amoeba[Cave[x-1][y]])
+ {
+ Lboom_tank(x, y);
+
+ return;
+ }
+
+ Ltank_w(x, y);
+}
+
+static void Lemerald(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yemerald_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Yemerald_sB;
+ Cave[x][y+1] = Yemerald_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xemerald_fall;
+ return;
+
+ case Xspring:
+ case Xspring_pause:
+ case Xspring_e:
+ case Xspring_w:
+ case Xandroid:
+ case Xandroid_1_n:
+ case Xandroid_2_n:
+ case Xandroid_1_e:
+ case Xandroid_2_e:
+ case Xandroid_1_s:
+ case Xandroid_2_s:
+ case Xandroid_1_w:
+ case Xandroid_2_w:
+ case Xstone:
+ case Xstone_pause:
+ case Xemerald:
+ case Xemerald_pause:
+ case Xdiamond:
+ case Xdiamond_pause:
+ case Xbomb:
+ case Xbomb_pause:
+ case Xballoon:
+ case Xacid_ne:
+ case Xacid_nw:
+ case Xball_1:
+ case Xball_2:
+ case Xnut:
+ case Xnut_pause:
+ case Xslidewall_ns:
+ case Xslidewall_ew:
+ case Xwonderwall:
+ case Xkey_1:
+ case Xkey_2:
+ case Xkey_3:
+ case Xkey_4:
+ case Xkey_5:
+ case Xkey_6:
+ case Xkey_7:
+ case Xkey_8:
+ case Xbumper:
+ case Xswitch:
+ case Xsteel_1:
+ case Xsteel_2:
+ case Xsteel_3:
+ case Xsteel_4:
+ case Xwall_1:
+ case Xwall_2:
+ case Xwall_3:
+ case Xwall_4:
+ case Xroundwall_1:
+ case Xroundwall_2:
+ case Xroundwall_3:
+ case Xroundwall_4:
+ if (RANDOM(2))
+ {
+ if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
+ {
+ Cave[x][y] = Yemerald_eB;
+ Cave[x+1][y] = Yemerald_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xemerald_pause;
+ return;
+ }
+
+ if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
+ {
+ Cave[x][y] = Yemerald_wB;
+ Cave[x-1][y] = Yemerald_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xemerald_pause;
+ return;
+ }
+ }
+ else
+ {
+ if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
+ {
+ Cave[x][y] = Yemerald_wB;
+ Cave[x-1][y] = Yemerald_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xemerald_pause;
+ return;
+ }
+
+ if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
+ {
+ Cave[x][y] = Yemerald_eB;
+ Cave[x+1][y] = Yemerald_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xemerald_pause;
+ return;
+ }
+ }
+
+ default:
+ if (++lev.shine_cnt > 50)
+ {
+ lev.shine_cnt = RANDOM(8);
+ Cave[x][y] = Xemerald_shine;
+ }
+
+ return;
+ }
+}
+
+static void Lemerald_pause(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yemerald_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Yemerald_sB;
+ Cave[x][y+1] = Yemerald_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xemerald_fall;
+ return;
+
+ default:
+ Cave[x][y] = Xemerald;
+ Next[x][y] = Xemerald;
+ return;
+ }
+}
+
+static void Lemerald_fall(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yemerald_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Zplayer:
+ Cave[x][y] = Yemerald_sB;
+ Cave[x][y+1] = Yemerald_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xemerald_fall;
+ return;
+
+ case Xwonderwall:
+ if (lev.wonderwall_time)
+ {
+ lev.wonderwall_state = 1;
+ Cave[x][y] = Yemerald_sB;
+ if (tab_blank[Cave[x][y+2]])
+ {
+ Cave[x][y+2] = Ydiamond_s;
+ Next[x][y+2] = Xdiamond_fall;
+ }
+
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_wonderfall, Xwonderwall);
+ return;
+ }
+
+ default:
+ Cave[x][y] = Xemerald;
+ Next[x][y] = Xemerald;
+ play_element_sound(x, y, SOUND_diamond, Xemerald);
+ return;
+ }
+}
+
+static void Ldiamond(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ydiamond_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Ydiamond_sB;
+ Cave[x][y+1] = Ydiamond_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xdiamond_fall;
+ return;
+
+ case Xspring:
+ case Xspring_pause:
+ case Xspring_e:
+ case Xspring_w:
+ case Xandroid:
+ case Xandroid_1_n:
+ case Xandroid_2_n:
+ case Xandroid_1_e:
+ case Xandroid_2_e:
+ case Xandroid_1_s:
+ case Xandroid_2_s:
+ case Xandroid_1_w:
+ case Xandroid_2_w:
+ case Xstone:
+ case Xstone_pause:
+ case Xemerald:
+ case Xemerald_pause:
+ case Xdiamond:
+ case Xdiamond_pause:
+ case Xbomb:
+ case Xbomb_pause:
+ case Xballoon:
+ case Xacid_ne:
+ case Xacid_nw:
+ case Xball_1:
+ case Xball_2:
+ case Xnut:
+ case Xnut_pause:
+ case Xslidewall_ns:
+ case Xslidewall_ew:
+ case Xwonderwall:
+ case Xkey_1:
+ case Xkey_2:
+ case Xkey_3:
+ case Xkey_4:
+ case Xkey_5:
+ case Xkey_6:
+ case Xkey_7:
+ case Xkey_8:
+ case Xbumper:
+ case Xswitch:
+ case Xsteel_1:
+ case Xsteel_2:
+ case Xsteel_3:
+ case Xsteel_4:
+ case Xwall_1:
+ case Xwall_2:
+ case Xwall_3:
+ case Xwall_4:
+ case Xroundwall_1:
+ case Xroundwall_2:
+ case Xroundwall_3:
+ case Xroundwall_4:
+ if (RANDOM(2))
+ {
+ if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
+ {
+ Cave[x][y] = Ydiamond_eB;
+ Cave[x+1][y] = Ydiamond_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xdiamond_pause;
+ return;
+ }
+
+ if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
+ {
+ Cave[x][y] = Ydiamond_wB;
+ Cave[x-1][y] = Ydiamond_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xdiamond_pause;
+ return;
+ }
+ }
+ else
+ {
+ if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
+ {
+ Cave[x][y] = Ydiamond_wB;
+ Cave[x-1][y] = Ydiamond_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xdiamond_pause;
+ return;
+ }
+
+ if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
+ {
+ Cave[x][y] = Ydiamond_eB;
+ Cave[x+1][y] = Ydiamond_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xdiamond_pause;
+ return;
+ }
+ }
+
+ default:
+ if (++lev.shine_cnt > 50)
+ {
+ lev.shine_cnt = RANDOM(8);
+ Cave[x][y] = Xdiamond_shine;
+ }
+
+ return;
+ }
+}
+
+static void Ldiamond_pause(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ydiamond_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Ydiamond_sB;
+ Cave[x][y+1] = Ydiamond_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xdiamond_fall;
+ return;
+
+ default:
+ Cave[x][y] = Xdiamond;
+ Next[x][y] = Xdiamond;
+ return;
+ }
+}
+
+static void Ldiamond_fall(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ydiamond_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Zplayer:
+ Cave[x][y] = Ydiamond_sB;
+ Cave[x][y+1] = Ydiamond_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xdiamond_fall;
+ return;
+
+ case Xwonderwall:
+ if (lev.wonderwall_time)
+ {
+ lev.wonderwall_state = 1;
+ Cave[x][y] = Ydiamond_sB;
+ if (tab_blank[Cave[x][y+2]])
+ {
+ Cave[x][y+2] = Ystone_s;
+ Next[x][y+2] = Xstone_fall;
+ }
+
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_wonderfall, Xwonderwall);
+ return;
+ }
+
+ default:
+ Cave[x][y] = Xdiamond;
+ Next[x][y] = Xdiamond;
+ play_element_sound(x, y, SOUND_diamond, Xdiamond);
+ return;
+ }
+}
+
+static void Lstone(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ystone_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+#ifdef EM_ENGINE_USE_ADDITIONAL_ELEMENTS
+ case Xfake_acid_1:
+ case Xfake_acid_2:
+ case Xfake_acid_3:
+ case Xfake_acid_4:
+ case Xfake_acid_5:
+ case Xfake_acid_6:
+ case Xfake_acid_7:
+ case Xfake_acid_8:
+#endif
+ Cave[x][y] = Ystone_sB;
+ Cave[x][y+1] = Ystone_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xstone_fall;
+ return;
+
+ case Xsand:
+ Cave[x][y] = Xsand_stonein_1;
+ Cave[x][y+1] = Xsand_sandstone_1;
+ Next[x][y] = Xsand_stonein_2;
+ Next[x][y+1] = Xsand_sandstone_2;
+ return;
+
+ case Xspring:
+ case Xspring_pause:
+ case Xspring_e:
+ case Xspring_w:
+ case Xandroid:
+ case Xandroid_1_n:
+ case Xandroid_2_n:
+ case Xandroid_1_e:
+ case Xandroid_2_e:
+ case Xandroid_1_s:
+ case Xandroid_2_s:
+ case Xandroid_1_w:
+ case Xandroid_2_w:
+ case Xstone:
+ case Xstone_pause:
+ case Xemerald:
+ case Xemerald_pause:
+ case Xdiamond:
+ case Xdiamond_pause:
+ case Xbomb:
+ case Xbomb_pause:
+ case Xballoon:
+ case Xacid_ne:
+ case Xacid_nw:
+ case Xball_1:
+ case Xball_2:
+ case Xnut:
+ case Xnut_pause:
+ case Xslidewall_ns:
+ case Xslidewall_ew:
+ case Xkey_1:
+ case Xkey_2:
+ case Xkey_3:
+ case Xkey_4:
+ case Xkey_5:
+ case Xkey_6:
+ case Xkey_7:
+ case Xkey_8:
+ case Xbumper:
+ case Xswitch:
+ case Xlenses:
+ case Xmagnify:
+ case Xroundwall_1:
+ case Xroundwall_2:
+ case Xroundwall_3:
+ case Xroundwall_4:
+ if (RANDOM(2))
+ {
+ if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
+ {
+ Cave[x][y] = Ystone_eB;
+ Cave[x+1][y] = Ystone_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xstone_pause;
+ return;
+ }
+
+ if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
+ {
+ Cave[x][y] = Ystone_wB;
+ Cave[x-1][y] = Ystone_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xstone_pause;
+ return;
+ }
+ }
+ else
+ {
+ if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
+ {
+ Cave[x][y] = Ystone_wB;
+ Cave[x-1][y] = Ystone_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xstone_pause;
+ return;
+ }
+
+ if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
+ {
+ Cave[x][y] = Ystone_eB;
+ Cave[x+1][y] = Ystone_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xstone_pause;
+ return;
+ }
+ }
+ }
+}
+
+static void Lstone_pause(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ystone_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+#ifdef EM_ENGINE_USE_ADDITIONAL_ELEMENTS
+ case Xfake_acid_1:
+ case Xfake_acid_2:
+ case Xfake_acid_3:
+ case Xfake_acid_4:
+ case Xfake_acid_5:
+ case Xfake_acid_6:
+ case Xfake_acid_7:
+ case Xfake_acid_8:
+#endif
+ Cave[x][y] = Ystone_sB;
+ Cave[x][y+1] = Ystone_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xstone_fall;
+ return;
+
+ default:
+ Cave[x][y] = Xstone;
+ Next[x][y] = Xstone;
+ return;
+ }
+}
+
+static void Lstone_fall(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ystone_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Zplayer:
+#ifdef EM_ENGINE_USE_ADDITIONAL_ELEMENTS
+ case Xfake_acid_1:
+ case Xfake_acid_2:
+ case Xfake_acid_3:
+ case Xfake_acid_4:
+ case Xfake_acid_5:
+ case Xfake_acid_6:
+ case Xfake_acid_7:
+ case Xfake_acid_8:
+#endif
+ Cave[x][y] = Ystone_sB;
+ Cave[x][y+1] = Ystone_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xstone_fall;
+ return;
+
+ case Xnut:
+ case Xnut_pause:
+ Cave[x][y+1] = Ynut_stone;
+ Next[x][y] = Xstone;
+ Next[x][y+1] = Xemerald;
+ play_element_sound(x, y, SOUND_crack, Xnut);
+ score += lev.nut_score;
+ return;
+
+ case Xbug_1_n:
+ case Xbug_1_e:
+ case Xbug_1_s:
+ case Xbug_1_w:
+ case Xbug_2_n:
+ case Xbug_2_e:
+ case Xbug_2_s:
+ case Xbug_2_w:
+ Cave[x][y] = Ystone_sB;
+ Cave[x][y+1] = Ybug_stone;
+ Next[x][y+1] = Znormal;
+ Boom[x-1][y] = Xemerald;
+ Boom[x][y] = Xemerald;
+ Boom[x+1][y] = Xemerald;
+ Boom[x-1][y+1] = Xemerald;
+ Boom[x][y+1] = Xdiamond;
+ Boom[x+1][y+1] = Xemerald;
+ Boom[x-1][y+2] = Xemerald;
+ Boom[x][y+2] = Xemerald;
+ Boom[x+1][y+2] = Xemerald;
+#if PLAY_ELEMENT_SOUND
+ play_element_sound(x, y, SOUND_boom, Xstone_fall);
+#endif
+ score += lev.bug_score;
+ return;
+
+ case Xtank_1_n:
+ case Xtank_1_e:
+ case Xtank_1_s:
+ case Xtank_1_w:
+ case Xtank_2_n:
+ case Xtank_2_e:
+ case Xtank_2_s:
+ case Xtank_2_w:
+ Cave[x][y] = Ystone_sB;
+ Cave[x][y+1] = Ytank_stone;
+ Next[x][y+1] = Znormal;
+ Boom[x-1][y] = Xblank;
+ Boom[x][y] = Xblank;
+ Boom[x+1][y] = Xblank;
+ Boom[x-1][y+1] = Xblank;
+ Boom[x][y+1] = Xblank;
+ Boom[x+1][y+1] = Xblank;
+ Boom[x-1][y+2] = Xblank;
+ Boom[x][y+2] = Xblank;
+ Boom[x+1][y+2] = Xblank;
+#if PLAY_ELEMENT_SOUND
+ play_element_sound(x, y, SOUND_boom, Xstone_fall);
+#endif
+ score += lev.tank_score;
+ return;
+
+ case Xspring:
+ if (RANDOM(2))
+ {
+ switch (Cave[x+1][y+1])
+ {
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xalien:
+ case Xalien_pause:
+ Cave[x][y+1] = Xspring_e;
+ break;
+
+ default:
+ Cave[x][y+1] = Xspring_w;
+ break;
+ }
+ }
+ else
+ {
+ switch (Cave[x-1][y+1])
+ {
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xalien:
+ case Xalien_pause:
+ Cave[x][y+1] = Xspring_w;
+ break;
+ default:
+ Cave[x][y+1] = Xspring_e;
+ break;
+ }
+ }
+
+ Next[x][y] = Xstone;
+ return;
+
+ case Xeater_n:
+ case Xeater_e:
+ case Xeater_s:
+ case Xeater_w:
+ Cave[x][y] = Ystone_sB;
+ Cave[x][y+1] = Yeater_stone;
+ Next[x][y+1] = Znormal;
+ Boom[x-1][y] = lev.eater_array[lev.eater_pos][0];
+ Boom[x][y] = lev.eater_array[lev.eater_pos][1];
+ Boom[x+1][y] = lev.eater_array[lev.eater_pos][2];
+ Boom[x-1][y+1] = lev.eater_array[lev.eater_pos][3];
+ Boom[x][y+1] = lev.eater_array[lev.eater_pos][4];
+ Boom[x+1][y+1] = lev.eater_array[lev.eater_pos][5];
+ Boom[x-1][y+2] = lev.eater_array[lev.eater_pos][6];
+ Boom[x][y+2] = lev.eater_array[lev.eater_pos][7];
+ Boom[x+1][y+2] = lev.eater_array[lev.eater_pos][8];
+#if PLAY_ELEMENT_SOUND
+ play_element_sound(x, y, SOUND_boom, Xstone_fall);
+#endif
+ lev.eater_pos = (lev.eater_pos + 1) & 7;
+ score += lev.eater_score;
+ return;
+
+ case Xalien:
+ case Xalien_pause:
+ Cave[x][y] = Ystone_sB;
+ Cave[x][y+1] = Yalien_stone;
+ Next[x][y+1] = Znormal;
+ Boom[x-1][y] = Xblank;
+ Boom[x][y] = Xblank;
+ Boom[x+1][y] = Xblank;
+ Boom[x-1][y+1] = Xblank;
+ Boom[x][y+1] = Xblank;
+ Boom[x+1][y+1] = Xblank;
+ Boom[x-1][y+2] = Xblank;
+ Boom[x][y+2] = Xblank;
+ Boom[x+1][y+2] = Xblank;
+#if PLAY_ELEMENT_SOUND
+ play_element_sound(x, y, SOUND_boom, Xstone_fall);
+#endif
+ score += lev.alien_score;
+ return;
+
+ case Xdiamond:
+ case Xdiamond_pause:
+ switch (Cave[x][y+2])
+ {
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Zplayer:
+ case Xbug_1_n:
+ case Xbug_1_e:
+ case Xbug_1_s:
+ case Xbug_1_w:
+ case Xbug_2_n:
+ case Xbug_2_e:
+ case Xbug_2_s:
+ case Xbug_2_w:
+ case Xtank_1_n:
+ case Xtank_1_e:
+ case Xtank_1_s:
+ case Xtank_1_w:
+ case Xtank_2_n:
+ case Xtank_2_e:
+ case Xtank_2_s:
+ case Xtank_2_w:
+ case Xspring_fall:
+ case Xandroid:
+ case Xandroid_1_n:
+ case Xandroid_2_n:
+ case Xandroid_1_e:
+ case Xandroid_2_e:
+ case Xandroid_1_s:
+ case Xandroid_2_s:
+ case Xandroid_1_w:
+ case Xandroid_2_w:
+ case Xstone_fall:
+ case Xemerald_fall:
+ case Xdiamond_fall:
+ case Xbomb_fall:
+ case Xacid_s:
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ case Xnut_fall:
+ case Xplant:
+ case Yplant:
+ Next[x][y] = Xstone;
+ play_element_sound(x, y, SOUND_stone, Xstone);
+ return;
+ }
+
+ Cave[x][y] = Ystone_sB;
+ Cave[x][y+1] = Ydiamond_stone;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xstone_pause;
+ play_element_sound(x, y, SOUND_squash, Xdiamond);
+ return;
+
+ case Xbomb:
+ case Xbomb_pause:
+ Cave[x][y+1] = Ybomb_blank;
+ Next[x][y+1] = Znormal;
+ Boom[x-1][y] = Xblank;
+ Boom[x][y] = Xblank;
+ Boom[x+1][y] = Xblank;
+ Boom[x-1][y+1] = Xblank;
+ Boom[x][y+1] = Xblank;
+ Boom[x+1][y+1] = Xblank;
+ Boom[x-1][y+2] = Xblank;
+ Boom[x][y+2] = Xblank;
+ Boom[x+1][y+2] = Xblank;
+#if PLAY_ELEMENT_SOUND
+ play_element_sound(x, y, SOUND_boom, Xstone_fall);
+#endif
+ return;
+
+ case Xwonderwall:
+ if (lev.wonderwall_time)
+ {
+ lev.wonderwall_state = 1;
+ Cave[x][y] = Ystone_sB;
+
+ if (tab_blank[Cave[x][y+2]])
+ {
+ Cave[x][y+2] = Yemerald_s;
+ Next[x][y+2] = Xemerald_fall;
+ }
+
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_wonderfall, Xwonderwall);
+ return;
+ }
+
+ default:
+ Cave[x][y] = Xstone;
+ Next[x][y] = Xstone;
+ play_element_sound(x, y, SOUND_stone, Xstone);
+ return;
+ }
+}
+
+static void Lbomb(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ybomb_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Ybomb_sB;
+ Cave[x][y+1] = Ybomb_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xbomb_fall;
+ return;
+
+ case Xspring:
+ case Xspring_pause:
+ case Xspring_e:
+ case Xspring_w:
+ case Xandroid:
+ case Xandroid_1_n:
+ case Xandroid_2_n:
+ case Xandroid_1_e:
+ case Xandroid_2_e:
+ case Xandroid_1_s:
+ case Xandroid_2_s:
+ case Xandroid_1_w:
+ case Xandroid_2_w:
+ case Xstone:
+ case Xstone_pause:
+ case Xemerald:
+ case Xemerald_pause:
+ case Xdiamond:
+ case Xdiamond_pause:
+ case Xbomb:
+ case Xbomb_pause:
+ case Xballoon:
+ case Xacid_ne:
+ case Xacid_nw:
+ case Xball_1:
+ case Xball_2:
+ case Xnut:
+ case Xnut_pause:
+ case Xslidewall_ns:
+ case Xslidewall_ew:
+ case Xkey_1:
+ case Xkey_2:
+ case Xkey_3:
+ case Xkey_4:
+ case Xkey_5:
+ case Xkey_6:
+ case Xkey_7:
+ case Xkey_8:
+ case Xbumper:
+ case Xswitch:
+ case Xroundwall_1:
+ case Xroundwall_2:
+ case Xroundwall_3:
+ case Xroundwall_4:
+ if (RANDOM(2))
+ {
+ if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
+ {
+ Cave[x][y] = Ybomb_eB;
+ Cave[x+1][y] = Ybomb_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xbomb_pause;
+ return;
+ }
+
+ if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
+ {
+ Cave[x][y] = Ybomb_wB;
+ Cave[x-1][y] = Ybomb_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xbomb_pause;
+ return;
+ }
+ }
+ else
+ {
+ if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
+ {
+ Cave[x][y] = Ybomb_wB;
+ Cave[x-1][y] = Ybomb_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xbomb_pause;
+ return;
+ }
+
+ if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
+ {
+ Cave[x][y] = Ybomb_eB;
+ Cave[x+1][y] = Ybomb_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xbomb_pause;
+ return;
+ }
+ }
+ }
+}
+
+static void Lbomb_pause(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ybomb_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Ybomb_sB;
+ Cave[x][y+1] = Ybomb_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xbomb_fall;
+ return;
+
+ default:
+ Cave[x][y] = Xbomb;
+ Next[x][y] = Xbomb;
+ return;
+ }
+}
+
+static void Lbomb_fall(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ybomb_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Ybomb_sB;
+ Cave[x][y+1] = Ybomb_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xbomb_fall;
+ return;
+
+ default:
+ Cave[x][y] = Ybomb_blank;
+ Next[x][y] = Znormal;
+ Boom[x-1][y-1] = Xblank;
+ Boom[x][y-1] = Xblank;
+ Boom[x+1][y-1] = Xblank;
+ Boom[x-1][y] = Xblank;
+ Boom[x][y] = Xblank;
+ Boom[x+1][y] = Xblank;
+ Boom[x-1][y+1] = Xblank;
+ Boom[x][y+1] = Xblank;
+ Boom[x+1][y+1] = Xblank;
+#if PLAY_ELEMENT_SOUND
+ play_element_sound(x, y, SOUND_boom, Xbomb_fall);
+#endif
+ return;
+ }
+}
+
+static void Lnut(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ynut_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Ynut_sB;
+ Cave[x][y+1] = Ynut_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xnut_fall;
+ return;
+
+ case Xspring:
+ case Xspring_pause:
+ case Xspring_e:
+ case Xspring_w:
+ case Xandroid:
+ case Xandroid_1_n:
+ case Xandroid_2_n:
+ case Xandroid_1_e:
+ case Xandroid_2_e:
+ case Xandroid_1_s:
+ case Xandroid_2_s:
+ case Xandroid_1_w:
+ case Xandroid_2_w:
+ case Xstone:
+ case Xstone_pause:
+ case Xemerald:
+ case Xemerald_pause:
+ case Xdiamond:
+ case Xdiamond_pause:
+ case Xbomb:
+ case Xbomb_pause:
+ case Xballoon:
+ case Xacid_ne:
+ case Xacid_nw:
+ case Xball_1:
+ case Xball_2:
+ case Xnut:
+ case Xnut_pause:
+ case Xslidewall_ns:
+ case Xslidewall_ew:
+ case Xkey_1:
+ case Xkey_2:
+ case Xkey_3:
+ case Xkey_4:
+ case Xkey_5:
+ case Xkey_6:
+ case Xkey_7:
+ case Xkey_8:
+ case Xbumper:
+ case Xswitch:
+ case Xroundwall_1:
+ case Xroundwall_2:
+ case Xroundwall_3:
+ case Xroundwall_4:
+ if (RANDOM(2))
+ {
+ if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
+ {
+ Cave[x][y] = Ynut_eB;
+ Cave[x+1][y] = Ynut_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xnut_pause;
+ return;
+ }
+
+ if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
+ {
+ Cave[x][y] = Ynut_wB;
+ Cave[x-1][y] = Ynut_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xnut_pause;
+ return;
+ }
+ }
+ else
+ {
+ if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
+ {
+ Cave[x][y] = Ynut_wB;
+ Cave[x-1][y] = Ynut_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xnut_pause;
+ return;
+ }
+
+ if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
+ {
+ Cave[x][y] = Ynut_eB;
+ Cave[x+1][y] = Ynut_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xnut_pause;
+ return;
+ }
+ }
+ }
+}
+
+static void Lnut_pause(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ynut_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Ynut_sB;
+ Cave[x][y+1] = Ynut_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xnut_fall;
+ return;
+
+ default:
+ Cave[x][y] = Xnut;
+ Next[x][y] = Xnut;
+ return;
+ }
+}
+
+static void Lnut_fall(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ynut_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Zplayer:
+ Cave[x][y] = Ynut_sB;
+ Cave[x][y+1] = Ynut_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xnut_fall;
+ return;
+
+ default:
+ Cave[x][y] = Xnut;
+ Next[x][y] = Xnut;
+ play_element_sound(x, y, SOUND_nut, Xnut);
+ return;
+ }
+}
+
+static void Lspring(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yspring_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ Cave[x][y] = Yspring_sB;
+ Cave[x][y+1] = Yspring_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xspring_fall;
+ return;
+
+ case Xspring:
+ case Xspring_pause:
+ case Xspring_e:
+ case Xspring_w:
+ case Xandroid:
+ case Xandroid_1_n:
+ case Xandroid_2_n:
+ case Xandroid_1_e:
+ case Xandroid_2_e:
+ case Xandroid_1_s:
+ case Xandroid_2_s:
+ case Xandroid_1_w:
+ case Xandroid_2_w:
+ case Xstone:
+ case Xstone_pause:
+ case Xemerald:
+ case Xemerald_pause:
+ case Xdiamond:
+ case Xdiamond_pause:
+ case Xbomb:
+ case Xbomb_pause:
+ case Xballoon:
+ case Xacid_ne:
+ case Xacid_nw:
+ case Xball_1:
+ case Xball_2:
+ case Xnut:
+ case Xnut_pause:
+ case Xslidewall_ns:
+ case Xslidewall_ew:
+ case Xkey_1:
+ case Xkey_2:
+ case Xkey_3:
+ case Xkey_4:
+ case Xkey_5:
+ case Xkey_6:
+ case Xkey_7:
+ case Xkey_8:
+ case Xbumper:
+ case Xswitch:
+ case Xroundwall_1:
+ case Xroundwall_2:
+ case Xroundwall_3:
+ case Xroundwall_4:
+ if (RANDOM(2))
+ {
+ if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
+ {
+ Cave[x][y] = Yspring_eB;
+ Cave[x+1][y] = Yspring_e;
+ if (Cave[x][y+1] == Xbumper)
+ Cave[x][y+1] = XbumperB;
+ Next[x][y] = Xblank;
+
+#ifdef SPRING_ROLL
+ Next[x+1][y] = Xspring_e;
+#else
+ Next[x+1][y] = Xspring_pause;
+#endif
+ return;
+ }
+
+ if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
+ {
+ Cave[x][y] = Yspring_wB;
+ Cave[x-1][y] = Yspring_w;
+ if (Cave[x][y+1] == Xbumper)
+ Cave[x][y+1] = XbumperB;
+ Next[x][y] = Xblank;
+
+#ifdef SPRING_ROLL
+ Next[x-1][y] = Xspring_w;
+#else
+ Next[x-1][y] = Xspring_pause;
+#endif
+ return;
+ }
+ }
+ else
+ {
+ if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
+ {
+ Cave[x][y] = Yspring_wB;
+ Cave[x-1][y] = Yspring_w;
+ if (Cave[x][y+1] == Xbumper)
+ Cave[x][y+1] = XbumperB;
+ Next[x][y] = Xblank;
+
+#ifdef SPRING_ROLL
+ Next[x-1][y] = Xspring_w;
+#else
+ Next[x-1][y] = Xspring_pause;
+#endif
+ return;
+ }
+
+ if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
+ {
+ Cave[x][y] = Yspring_eB;
+ Cave[x+1][y] = Yspring_e;
+ if (Cave[x][y+1] == Xbumper)
+ Cave[x][y+1] = XbumperB;
+ Next[x][y] = Xblank;
+
+#ifdef SPRING_ROLL
+ Next[x+1][y] = Xspring_e;
+#else
+ Next[x+1][y] = Xspring_pause;
+#endif
+ return;
+ }
+ }
+ }
+}
+
+static void Lspring_pause(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yspring_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Yspring_sB;
+ Cave[x][y+1] = Yspring_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xspring_fall;
+ return;
+
+ default:
+ Cave[x][y] = Xspring;
+ Next[x][y] = Xspring;
+ return;
+ }
+}
+
+static void Lspring_e(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yspring_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Yspring_sB;
+ Cave[x][y+1] = Yspring_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xspring_fall;
+ return;
+
+ case Xbumper:
+ Cave[x][y+1] = XbumperB;
+ }
+
+ switch (Cave[x+1][y])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yspring_eB;
+ if (Cave[x+2][y-1] == Xblank)
+ Cave[x+2][y-1] = Xacid_splash_e;
+ if (Cave[x][y-1] == Xblank)
+ Cave[x][y-1] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Yalien_nB:
+ case Yalien_eB:
+ case Yalien_sB:
+ case Yalien_wB:
+ Cave[x][y] = Yspring_eB;
+ Cave[x+1][y] = Yspring_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xspring_e;
+ return;
+
+ case Xalien:
+ case Xalien_pause:
+ case Yalien_n:
+ case Yalien_e:
+ case Yalien_s:
+ case Yalien_w:
+ Cave[x][y] = Yspring_alien_eB;
+ Cave[x+1][y] = Yspring_alien_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xspring_e;
+ play_element_sound(x, y, SOUND_slurp, Xalien);
+ score += lev.slurp_score;
+ return;
+
+ case Xbumper:
+ case XbumperB:
+ Cave[x+1][y] = XbumperB;
+ Next[x][y] = Xspring_w;
+ play_element_sound(x, y, SOUND_spring, Xspring);
+ return;
+
+ default:
+ Cave[x][y] = Xspring;
+ Next[x][y] = Xspring;
+ play_element_sound(x, y, SOUND_spring, Xspring);
+ return;
+ }
+}
+
+static void Lspring_w(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yspring_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Yspring_sB;
+ Cave[x][y+1] = Yspring_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xspring_fall;
+ return;
+
+ case Xbumper:
+ Cave[x][y+1] = XbumperB;
+ }
+
+ switch (Cave[x-1][y])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yspring_wB;
+ if (Cave[x][y-1] == Xblank)
+ Cave[x][y-1] = Xacid_splash_e;
+ if (Cave[x-2][y-1] == Xblank)
+ Cave[x-2][y-1] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Yalien_nB:
+ case Yalien_eB:
+ case Yalien_sB:
+ case Yalien_wB:
+ Cave[x][y] = Yspring_wB;
+ Cave[x-1][y] = Yspring_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xspring_w;
+ return;
+
+ case Xalien:
+ case Xalien_pause:
+ case Yalien_n:
+ case Yalien_e:
+ case Yalien_s:
+ case Yalien_w:
+ Cave[x][y] = Yspring_alien_wB;
+ Cave[x-1][y] = Yspring_alien_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xspring_w;
+ play_element_sound(x, y, SOUND_slurp, Xalien);
+ score += lev.slurp_score;
+ return;
+
+ case Xbumper:
+ case XbumperB:
+ Cave[x-1][y] = XbumperB;
+ Next[x][y] = Xspring_e;
+ play_element_sound(x, y, SOUND_spring, Xspring);
+ return;
+
+ default:
+ Cave[x][y] = Xspring;
+ Next[x][y] = Xspring;
+ play_element_sound(x, y, SOUND_spring, Xspring);
+ return;
+ }
+}
+
+static void Lspring_fall(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yspring_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Zplayer:
+ Cave[x][y] = Yspring_sB;
+ Cave[x][y+1] = Yspring_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xspring_fall;
+ return;
+
+ case Xbomb:
+ case Xbomb_pause:
+ Cave[x][y+1] = Ybomb_blank;
+ Next[x][y+1] = Znormal;
+ Boom[x-1][y] = Xblank;
+ Boom[x][y] = Xblank;
+ Boom[x+1][y] = Xblank;
+ Boom[x-1][y+1] = Xblank;
+ Boom[x][y+1] = Xblank;
+ Boom[x+1][y+1] = Xblank;
+ Boom[x-1][y+2] = Xblank;
+ Boom[x][y+2] = Xblank;
+ Boom[x+1][y+2] = Xblank;
+#if PLAY_ELEMENT_SOUND
+ play_element_sound(x, y, SOUND_boom, Xspring_fall);
+#endif
+ return;
+
+ case Xbug_1_n:
+ case Xbug_1_e:
+ case Xbug_1_s:
+ case Xbug_1_w:
+ case Xbug_2_n:
+ case Xbug_2_e:
+ case Xbug_2_s:
+ case Xbug_2_w:
+ Cave[x][y] = Yspring_sB;
+ Cave[x][y+1] = Ybug_spring;
+ Next[x][y+1] = Znormal;
+ Boom[x-1][y] = Xemerald;
+ Boom[x][y] = Xemerald;
+ Boom[x+1][y] = Xemerald;
+ Boom[x-1][y+1] = Xemerald;
+ Boom[x][y+1] = Xdiamond;
+ Boom[x+1][y+1] = Xemerald;
+ Boom[x-1][y+2] = Xemerald;
+ Boom[x][y+2] = Xemerald;
+ Boom[x+1][y+2] = Xemerald;
+#if PLAY_ELEMENT_SOUND
+ play_element_sound(x, y, SOUND_boom, Xspring_fall);
+#endif
+ score += lev.bug_score;
+ return;
+
+ case Xtank_1_n:
+ case Xtank_1_e:
+ case Xtank_1_s:
+ case Xtank_1_w:
+ case Xtank_2_n:
+ case Xtank_2_e:
+ case Xtank_2_s:
+ case Xtank_2_w:
+ Cave[x][y] = Yspring_sB;
+ Cave[x][y+1] = Ytank_spring;
+ Next[x][y+1] = Znormal;
+ Boom[x-1][y] = Xblank;
+ Boom[x][y] = Xblank;
+ Boom[x+1][y] = Xblank;
+ Boom[x-1][y+1] = Xblank;
+ Boom[x][y+1] = Xblank;
+ Boom[x+1][y+1] = Xblank;
+ Boom[x-1][y+2] = Xblank;
+ Boom[x][y+2] = Xblank;
+ Boom[x+1][y+2] = Xblank;
+#if PLAY_ELEMENT_SOUND
+ play_element_sound(x, y, SOUND_boom, Xspring_fall);
+#endif
+ score += lev.tank_score;
+ return;
+
+ case Xeater_n:
+ case Xeater_e:
+ case Xeater_s:
+ case Xeater_w:
+ Cave[x][y] = Yspring_sB;
+ Cave[x][y+1] = Yeater_spring;
+ Next[x][y+1] = Znormal;
+ Boom[x-1][y] = lev.eater_array[lev.eater_pos][0];
+ Boom[x][y] = lev.eater_array[lev.eater_pos][1];
+ Boom[x+1][y] = lev.eater_array[lev.eater_pos][2];
+ Boom[x-1][y+1] = lev.eater_array[lev.eater_pos][3];
+ Boom[x][y+1] = lev.eater_array[lev.eater_pos][4];
+ Boom[x+1][y+1] = lev.eater_array[lev.eater_pos][5];
+ Boom[x-1][y+2] = lev.eater_array[lev.eater_pos][6];
+ Boom[x][y+2] = lev.eater_array[lev.eater_pos][7];
+ Boom[x+1][y+2] = lev.eater_array[lev.eater_pos][8];
+#if PLAY_ELEMENT_SOUND
+ play_element_sound(x, y, SOUND_boom, Xspring_fall);
+#endif
+ lev.eater_pos = (lev.eater_pos + 1) & 7;
+ score += lev.eater_score;
+ return;
+
+ case Xalien:
+ case Xalien_pause:
+ Cave[x][y] = Yspring_sB;
+ Cave[x][y+1] = Yalien_spring;
+ Next[x][y+1] = Znormal;
+ Boom[x-1][y] = Xblank;
+ Boom[x][y] = Xblank;
+ Boom[x+1][y] = Xblank;
+ Boom[x-1][y+1] = Xblank;
+ Boom[x][y+1] = Xblank;
+ Boom[x+1][y+1] = Xblank;
+ Boom[x-1][y+2] = Xblank;
+ Boom[x][y+2] = Xblank;
+ Boom[x+1][y+2] = Xblank;
+#if PLAY_ELEMENT_SOUND
+ play_element_sound(x, y, SOUND_boom, Xspring_fall);
+#endif
+ score += lev.alien_score;
+ return;
+
+ default:
+ Cave[x][y] = Xspring;
+ Next[x][y] = Xspring;
+ play_element_sound(x, y, SOUND_spring, Xspring);
+ return;
+ }
+}
+
+static void Lpush_emerald_e(int x, int y)
+{
+ switch (Cave[x+1][y])
+ {
+ case Zborder:
+ case Znormal:
+ case Zdynamite:
+ case Xboom_bug:
+ case Xboom_bomb:
+ case Xboom_android:
+ case Xboom_1:
+ case Zplayer:
+ Cave[x][y] = Xemerald;
+ Next[x][y] = Xemerald;
+ return;
+
+ default:
+ Cave[x][y] = Yemerald_eB;
+ Cave[x+1][y] = Yemerald_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xemerald_pause;
+ return;
+ }
+}
+
+static void Lpush_emerald_w(int x, int y)
+{
+ switch (Cave[x-1][y])
+ {
+ case Zborder:
+ case Znormal:
+ case Zdynamite:
+ case Xboom_bug:
+ case Xboom_bomb:
+ case Xboom_android:
+ case Xboom_1:
+ case Zplayer:
+ Cave[x][y] = Xemerald;
+ Next[x][y] = Xemerald;
+ return;
+
+ default:
+ Cave[x][y] = Yemerald_wB;
+ Cave[x-1][y] = Yemerald_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xemerald_pause;
+ return;
+ }
+}
+
+static void Lpush_diamond_e(int x, int y)
+{
+ switch (Cave[x+1][y])
+ {
+ case Zborder:
+ case Znormal:
+ case Zdynamite:
+ case Xboom_bug:
+ case Xboom_bomb:
+ case Xboom_android:
+ case Xboom_1:
+ case Zplayer:
+ Cave[x][y] = Xdiamond;
+ Next[x][y] = Xdiamond;
+ return;
+
+ default:
+ Cave[x][y] = Ydiamond_eB;
+ Cave[x+1][y] = Ydiamond_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xdiamond_pause;
+ return;
+ }
+}
+
+static void Lpush_diamond_w(int x, int y)
+{
+ switch (Cave[x-1][y])
+ {
+ case Zborder:
+ case Znormal:
+ case Zdynamite:
+ case Xboom_bug:
+ case Xboom_bomb:
+ case Xboom_android:
+ case Xboom_1:
+ case Zplayer:
+ Cave[x][y] = Xdiamond;
+ Next[x][y] = Xdiamond;
+ return;
+
+ default:
+ Cave[x][y] = Ydiamond_wB;
+ Cave[x-1][y] = Ydiamond_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xdiamond_pause;
+ return;
+ }
+}
+
+static void Lpush_stone_e(int x, int y)
+{
+ switch (Cave[x+1][y])
+ {
+ case Zborder:
+ case Znormal:
+ case Zdynamite:
+ case Xboom_bug:
+ case Xboom_bomb:
+ case Xboom_android:
+ case Xboom_1:
+ case Zplayer:
+ Cave[x][y] = Xstone;
+ Next[x][y] = Xstone;
+ return;
+
+ default:
+ Cave[x][y] = Ystone_eB;
+ Cave[x+1][y] = Ystone_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xstone_pause;
+ return;
+ }
+}
+
+static void Lpush_stone_w(int x, int y)
+{
+ switch (Cave[x-1][y])
+ {
+ case Zborder:
+ case Znormal:
+ case Zdynamite:
+ case Xboom_bug:
+ case Xboom_bomb:
+ case Xboom_android:
+ case Xboom_1:
+ case Zplayer:
+ Cave[x][y] = Xstone;
+ Next[x][y] = Xstone;
+ return;
+
+ default:
+ Cave[x][y] = Ystone_wB;
+ Cave[x-1][y] = Ystone_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xstone_pause;
+ return;
+ }
+}
+
+static void Lpush_bomb_e(int x, int y)
+{
+ switch (Cave[x+1][y])
+ {
+ case Zborder:
+ case Znormal:
+ case Zdynamite:
+ case Xboom_bug:
+ case Xboom_bomb:
+ case Xboom_android:
+ case Xboom_1:
+ case Zplayer:
+ Cave[x][y] = Xbomb;
+ Next[x][y] = Xbomb;
+ return;
+
+ default:
+ Cave[x][y] = Ybomb_eB;
+ Cave[x+1][y] = Ybomb_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xbomb_pause;
+ return;
+ }
+}
+
+static void Lpush_bomb_w(int x, int y)
+{
+ switch (Cave[x-1][y])
+ {
+ case Zborder:
+ case Znormal:
+ case Zdynamite:
+ case Xboom_bug:
+ case Xboom_bomb:
+ case Xboom_android:
+ case Xboom_1:
+ case Zplayer:
+ Cave[x][y] = Xbomb;
+ Next[x][y] = Xbomb;
+ return;
+
+ default:
+ Cave[x][y] = Ybomb_wB;
+ Cave[x-1][y] = Ybomb_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xbomb_pause;
+ return;
+ }
+}
+
+static void Lpush_nut_e(int x, int y)
+{
+ switch (Cave[x+1][y])
+ {
+ case Zborder:
+ case Znormal:
+ case Zdynamite:
+ case Xboom_bug:
+ case Xboom_bomb:
+ case Xboom_android:
+ case Xboom_1:
+ case Zplayer:
+ Cave[x][y] = Xnut;
+ Next[x][y] = Xnut;
+ return;
+
+ default:
+ Cave[x][y] = Ynut_eB;
+ Cave[x+1][y] = Ynut_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xnut_pause;
+ return;
+ }
+}
+
+static void Lpush_nut_w(int x, int y)
+{
+ switch (Cave[x-1][y])
+ {
+ case Zborder:
+ case Znormal:
+ case Zdynamite:
+ case Xboom_bug:
+ case Xboom_bomb:
+ case Xboom_android:
+ case Xboom_1:
+ case Zplayer:
+ Cave[x][y] = Xnut;
+ Next[x][y] = Xnut;
+ return;
+
+ default:
+ Cave[x][y] = Ynut_wB;
+ Cave[x-1][y] = Ynut_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xnut_pause;
+ return;
+ }
+}
+
+static void Lpush_spring_e(int x, int y)
+{
+ switch (Cave[x+1][y])
+ {
+ case Zborder:
+ case Znormal:
+ case Zdynamite:
+ case Xboom_bug:
+ case Xboom_bomb:
+ case Xboom_android:
+ case Xboom_1:
+ case Zplayer:
+ Cave[x][y] = Xspring;
+ Next[x][y] = Xspring;
+ return;
+
+ default:
+ Cave[x][y] = Yspring_eB;
+ Cave[x+1][y] = Yspring_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xspring_e;
+ return;
+ }
+}
+
+static void Lpush_spring_w(int x, int y)
+{
+ switch (Cave[x-1][y])
+ {
+ case Zborder:
+ case Znormal:
+ case Zdynamite:
+ case Xboom_bug:
+ case Xboom_bomb:
+ case Xboom_android:
+ case Xboom_1:
+ case Zplayer:
+ Cave[x][y] = Xspring;
+ Next[x][y] = Xspring;
+ return;
+
+ default:
+ Cave[x][y] = Yspring_wB;
+ Cave[x-1][y] = Yspring_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xspring_w;
+ return;
+ }
+}
+
+static void Ldynamite_1(int x, int y)
+{
+ play_element_sound(x, y, SOUND_tick, Xdynamite_1);
+ Next[x][y] = Xdynamite_2;
+}
+
+static void Ldynamite_2(int x, int y)
+{
+ play_element_sound(x, y, SOUND_tick, Xdynamite_2);
+ Next[x][y] = Xdynamite_3;
+}
+
+static void Ldynamite_3(int x, int y)
+{
+ play_element_sound(x, y, SOUND_tick, Xdynamite_3);
+ Next[x][y] = Xdynamite_4;
+}
+
+static void Ldynamite_4(int x, int y)
+{
+ play_element_sound(x, y, SOUND_tick, Xdynamite_4);
+ Next[x][y] = Zdynamite;
+ Boom[x-1][y-1] = Xblank;
+ Boom[x][y-1] = Xblank;
+ Boom[x+1][y-1] = Xblank;
+ Boom[x-1][y] = Xblank;
+ Boom[x][y] = Xblank;
+ Boom[x+1][y] = Xblank;
+ Boom[x-1][y+1] = Xblank;
+ Boom[x][y+1] = Xblank;
+ Boom[x+1][y+1] = Xblank;
+}
+
+static void Lfake_door_1(int x, int y)
+{
+ if (lev.magnify_cnt)
+ Cave[x][y] = Xdoor_1;
+}
+
+static void Lfake_door_2(int x, int y)
+{
+ if (lev.magnify_cnt)
+ Cave[x][y] = Xdoor_2;
+}
+
+static void Lfake_door_3(int x, int y)
+{
+ if (lev.magnify_cnt)
+ Cave[x][y] = Xdoor_3;
+}
+
+static void Lfake_door_4(int x, int y)
+{
+ if (lev.magnify_cnt)
+ Cave[x][y] = Xdoor_4;
+}
+
+static void Lfake_door_5(int x, int y)
+{
+ if (lev.magnify_cnt)
+ Cave[x][y] = Xdoor_5;
+}
+
+static void Lfake_door_6(int x, int y)
+{
+ if (lev.magnify_cnt)
+ Cave[x][y] = Xdoor_6;
+}
+
+static void Lfake_door_7(int x, int y)
+{
+ if (lev.magnify_cnt)
+ Cave[x][y] = Xdoor_7;
+}
+
+static void Lfake_door_8(int x, int y)
+{
+ if (lev.magnify_cnt)
+ Cave[x][y] = Xdoor_8;
+}
+
+static void Lballoon(int x, int y)
+{
+ if (lev.wind_cnt == 0)
+ return;
+
+ switch (lev.wind_direction)
+ {
+ case 0: /* north */
+ switch (Cave[x][y-1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yballoon_nB;
+ if (Cave[x+1][y-2] == Xblank)
+ Cave[x+1][y-2] = Xacid_splash_e;
+ if (Cave[x-1][y-2] == Xblank)
+ Cave[x-1][y-2] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Yballoon_nB;
+ Cave[x][y-1] = Yballoon_n;
+ Next[x][y] = Xblank;
+ Next[x][y-1] = Xballoon;
+ return;
+ }
+ break;
+
+ case 1: /* east */
+ switch (Cave[x+1][y])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yballoon_eB;
+ if (Cave[x+2][y-1] == Xblank)
+ Cave[x+2][y-1] = Xacid_splash_e;
+ if (Cave[x][y-1] == Xblank)
+ Cave[x][y-1] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Yballoon_eB;
+ Cave[x+1][y] = Yballoon_e;
+ Next[x][y] = Xblank;
+ Next[x+1][y] = Xballoon;
+ return;
+ }
+ break;
+
+ case 2: /* south */
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yballoon_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Yballoon_sB;
+ Cave[x][y+1] = Yballoon_s;
+ Next[x][y] = Xblank;
+ Next[x][y+1] = Xballoon;
+ return;
+ }
+ break;
+
+ case 3: /* west */
+ switch (Cave[x-1][y])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Yballoon_wB;
+ if (Cave[x][y-1] == Xblank)
+ Cave[x][y-1] = Xacid_splash_e;
+ if (Cave[x-2][y-1] == Xblank)
+ Cave[x-2][y-1] = Xacid_splash_w;
+ Next[x][y] = Xblank;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Yballoon_wB;
+ Cave[x-1][y] = Yballoon_w;
+ Next[x][y] = Xblank;
+ Next[x-1][y] = Xballoon;
+ return;
+ }
+ break;
+ }
+}
+
+static void Lball_common(int x, int y)
+{
+ play_element_sound(x, y, SOUND_ball, Xball_1);
+
+ if (lev.ball_random)
+ {
+ switch (RANDOM(8))
+ {
+ case 0:
+ if (lev.ball_array[lev.ball_pos][0] != Xblank &&
+ tab_blank[Cave[x-1][y-1]])
+ {
+ Cave[x-1][y-1] = Yball_blank;
+ Next[x-1][y-1] = lev.ball_array[lev.ball_pos][0];
+ }
+ break;
+
+ case 1:
+ if (lev.ball_array[lev.ball_pos][1] != Xblank &&
+ tab_blank[Cave[x][y-1]])
+ {
+ Cave[x][y-1] = Yball_blank;
+ Next[x][y-1] = lev.ball_array[lev.ball_pos][1];
+ }
+ break;
+
+ case 2:
+ if (lev.ball_array[lev.ball_pos][2] != Xblank &&
+ tab_blank[Cave[x+1][y-1]])
+ {
+ Cave[x+1][y-1] = Yball_blank;
+ Next[x+1][y-1] = lev.ball_array[lev.ball_pos][2];
+ }
+ break;
+
+ case 3:
+ if (lev.ball_array[lev.ball_pos][3] != Xblank &&
+ tab_blank[Cave[x-1][y]])
+ {
+ Cave[x-1][y] = Yball_blank;
+ Next[x-1][y] = lev.ball_array[lev.ball_pos][3];
+ }
+ break;
+
+ case 4:
+ if (lev.ball_array[lev.ball_pos][4] != Xblank &&
+ tab_blank[Cave[x+1][y]])
+ {
+ Cave[x+1][y] = Yball_blank;
+ Next[x+1][y] = lev.ball_array[lev.ball_pos][4];
+ }
+ break;
+
+ case 5:
+ if (lev.ball_array[lev.ball_pos][5] != Xblank &&
+ tab_blank[Cave[x-1][y+1]])
+ {
+ Cave[x-1][y+1] = Yball_blank;
+ Next[x-1][y+1] = lev.ball_array[lev.ball_pos][5];
+ }
+ break;
+
+ case 6:
+ if (lev.ball_array[lev.ball_pos][6] != Xblank &&
+ tab_blank[Cave[x][y+1]])
+ {
+ Cave[x][y+1] = Yball_blank;
+ Next[x][y+1] = lev.ball_array[lev.ball_pos][6];
+ }
+ break;
+
+ case 7:
+ if (lev.ball_array[lev.ball_pos][7] != Xblank &&
+ tab_blank[Cave[x+1][y+1]])
+ {
+ Cave[x+1][y+1] = Yball_blank;
+ Next[x+1][y+1] = lev.ball_array[lev.ball_pos][7];
+ }
+ break;
+ }
+ }
+ else
+ {
+ if (lev.ball_array[lev.ball_pos][0] != Xblank &&
+ tab_blank[Cave[x-1][y-1]])
+ {
+ Cave[x-1][y-1] = Yball_blank;
+ Next[x-1][y-1] = lev.ball_array[lev.ball_pos][0];
+ }
+
+ if (lev.ball_array[lev.ball_pos][1] != Xblank &&
+ tab_blank[Cave[x][y-1]])
+ {
+ Cave[x][y-1] = Yball_blank;
+ Next[x][y-1] = lev.ball_array[lev.ball_pos][1];
+ }
+
+ if (lev.ball_array[lev.ball_pos][2] != Xblank &&
+ tab_blank[Cave[x+1][y-1]])
+ {
+ Cave[x+1][y-1] = Yball_blank;
+ Next[x+1][y-1] = lev.ball_array[lev.ball_pos][2];
+ }
+
+ if (lev.ball_array[lev.ball_pos][3] != Xblank &&
+ tab_blank[Cave[x-1][y]])
+ {
+ Cave[x-1][y] = Yball_blank;
+ Next[x-1][y] = lev.ball_array[lev.ball_pos][3];
+ }
+
+ if (lev.ball_array[lev.ball_pos][4] != Xblank &&
+ tab_blank[Cave[x+1][y]])
+ {
+ Cave[x+1][y] = Yball_blank;
+ Next[x+1][y] = lev.ball_array[lev.ball_pos][4];
+ }
+
+ if (lev.ball_array[lev.ball_pos][5] != Xblank &&
+ tab_blank[Cave[x-1][y+1]])
+ {
+ Cave[x-1][y+1] = Yball_blank;
+ Next[x-1][y+1] = lev.ball_array[lev.ball_pos][5];
+ }
+
+ if (lev.ball_array[lev.ball_pos][6] != Xblank &&
+ tab_blank[Cave[x][y+1]])
+ {
+ Cave[x][y+1] = Yball_blank;
+ Next[x][y+1] = lev.ball_array[lev.ball_pos][6];
+ }
+
+ if (lev.ball_array[lev.ball_pos][7] != Xblank &&
+ tab_blank[Cave[x+1][y+1]])
+ {
+ Cave[x+1][y+1] = Yball_blank;
+ Next[x+1][y+1] = lev.ball_array[lev.ball_pos][7];
+ }
+ }
+
+ lev.ball_pos = (lev.ball_pos + 1) % lev.num_ball_arrays;
+}
+
+static void Lball_1(int x, int y)
+{
+ if (lev.ball_state == 0)
+ return;
+
+ Cave[x][y] = Yball_1;
+ Next[x][y] = Xball_2;
+ if (lev.ball_cnt)
+ return;
+
+ Lball_common(x, y);
+}
+
+static void Lball_2(int x, int y)
+{
+ if (lev.ball_state == 0)
+ return;
+
+ Cave[x][y] = Yball_2;
+ Next[x][y] = Xball_1;
+ if (lev.ball_cnt)
+ return;
+
+ Lball_common(x, y);
+}
+
+static void Ldrip(int x, int y)
+{
+ Next[x][y] = Xdrip_fall;
+}
+
+static void Ldrip_fall(int x, int y)
+{
+ int temp;
+
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Ydrip_1_sB;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xdrip_stretchB;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xplant:
+ case Yplant:
+ case Zplayer:
+ Cave[x][y] = Ydrip_1_sB;
+ Cave[x][y+1] = Ydrip_1_s;
+ Next[x][y] = Xdrip_stretchB;
+ Next[x][y+1] = Xdrip_stretch;
+ return;
+
+ default:
+ switch (RANDOM(8))
+ {
+ case 0: temp = Xamoeba_1; break;
+ case 1: temp = Xamoeba_2; break;
+ case 2: temp = Xamoeba_3; break;
+ case 3: temp = Xamoeba_4; break;
+ case 4: temp = Xamoeba_5; break;
+ case 5: temp = Xamoeba_6; break;
+ case 6: temp = Xamoeba_7; break;
+ case 7: temp = Xamoeba_8; break;
+ }
+
+ Cave[x][y] = temp;
+ Next[x][y] = temp;
+ play_element_sound(x, y, SOUND_drip, Xdrip_fall);
+ return;
+ }
+}
+
+static void Ldrip_stretch(int x, int y)
+{
+ Cave[x][y] = Ydrip_2_s;
+ Next[x][y] = Xdrip_fall;
+}
+
+static void Ldrip_stretchB(int x, int y)
+{
+ Cave[x][y] = Ydrip_2_sB;
+ Next[x][y] = Xblank;
+}
+
+static void Lwonderwall(int x, int y)
+{
+ if (lev.wonderwall_time && lev.wonderwall_state)
+ {
+ Cave[x][y] = XwonderwallB;
+ play_element_sound(x, y, SOUND_wonder, Xwonderwall);
+ }
+}
+
+static void Lwheel(int x, int y)
+{
+ if (lev.wheel_cnt && x == lev.wheel_x && y == lev.wheel_y)
+ Cave[x][y] = XwheelB;
+}
+
+static void Lswitch(int x, int y)
+{
+ if (lev.ball_state)
+ Cave[x][y] = XswitchB;
+}
+
+static void Lfake_blank(int x, int y)
+{
+ if (lev.lenses_cnt)
+ Cave[x][y] = Xfake_blankB;
+}
+
+static void Lfake_grass(int x, int y)
+{
+ if (lev.magnify_cnt)
+ Cave[x][y] = Xfake_grassB;
+}
+
+static void Lfake_amoeba(int x, int y)
+{
+ if (lev.lenses_cnt)
+ Cave[x][y] = Xfake_amoebaB;
+}
+
+static void Lsand_stone(int x, int y)
+{
+ switch (Cave[x][y+1])
+ {
+ case Xacid_1:
+ case Xacid_2:
+ case Xacid_3:
+ case Xacid_4:
+ case Xacid_5:
+ case Xacid_6:
+ case Xacid_7:
+ case Xacid_8:
+ Cave[x][y] = Xsand_stonesand_quickout_1;
+ if (Cave[x+1][y] == Xblank)
+ Cave[x+1][y] = Xacid_splash_e;
+ if (Cave[x-1][y] == Xblank)
+ Cave[x-1][y] = Xacid_splash_w;
+ Next[x][y] = Xsand_stonesand_quickout_2;
+ play_element_sound(x, y, SOUND_acid, Xacid_1);
+ return;
+
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ Cave[x][y] = Xsand_stonesand_quickout_1;
+ Cave[x][y+1] = Xsand_stoneout_1;
+ Next[x][y] = Xsand_stonesand_quickout_2;
+ Next[x][y+1] = Xsand_stoneout_2;
+ return;
+
+ case Xsand:
+ Cave[x][y] = Xsand_stonesand_1;
+ Cave[x][y+1] = Xsand_sandstone_1;
+ Next[x][y] = Xsand_stonesand_2;
+ Next[x][y+1] = Xsand_sandstone_2;
+ return;
+ }
+}
+
+static void Lsand_stonein_1(int x, int y)
+{
+ Next[x][y] = Xsand_stonein_2;
+}
+
+static void Lsand_stonein_2(int x, int y)
+{
+ Next[x][y] = Xsand_stonein_3;
+}
+
+static void Lsand_stonein_3(int x, int y)
+{
+ Next[x][y] = Xsand_stonein_4;
+}
+
+static void Lsand_stonein_4(int x, int y)
+{
+ Next[x][y] = Xblank;
+}
+
+static void Lsand_sandstone_1(int x, int y)
+{
+ Next[x][y] = Xsand_sandstone_2;
+}
+
+static void Lsand_sandstone_2(int x, int y)
+{
+ Next[x][y] = Xsand_sandstone_3;
+}
+
+static void Lsand_sandstone_3(int x, int y)
+{
+ Next[x][y] = Xsand_sandstone_4;
+}
+
+static void Lsand_sandstone_4(int x, int y)
+{
+ Next[x][y] = Xsand_stone;
+}
+
+static void Lsand_stonesand_1(int x, int y)
+{
+ Next[x][y] = Xsand_stonesand_2;
+}
+
+static void Lsand_stonesand_2(int x, int y)
+{
+ Next[x][y] = Xsand_stonesand_3;
+}
+
+static void Lsand_stonesand_3(int x, int y)
+{
+ Next[x][y] = Xsand_stonesand_4;
+}
+
+static void Lsand_stonesand_4(int x, int y)
+{
+ Next[x][y] = Xsand;
+}
+
+static void Lsand_stoneout_1(int x, int y)
+{
+ Next[x][y] = Xsand_stoneout_2;
+}
+
+static void Lsand_stoneout_2(int x, int y)
+{
+ Next[x][y] = Xstone_fall;
+}
+
+#ifdef EM_ENGINE_USE_ADDITIONAL_ELEMENTS
+static void Lsand_stonesand_quickout_1(int x, int y)
+{
+ Next[x][y] = Xsand_stonesand_quickout_2;
+}
+
+static void Lsand_stonesand_quickout_2(int x, int y)
+{
+ Next[x][y] = Xsand;
+}
+#endif
+
+static void Lslidewall_ns(int x, int y)
+{
+ if (tab_blank[Cave[x][y-1]])
+ {
+ Cave[x][y-1] = Yslidewall_ns_blank;
+ Next[x][y-1] = Xslidewall_ns;
+ play_element_sound(x, y, SOUND_slidewall, Xslidewall_ns);
+ }
+
+ if (tab_blank[Cave[x][y+1]])
+ {
+ Cave[x][y+1] = Yslidewall_ns_blank;
+ Next[x][y+1] = Xslidewall_ns;
+ play_element_sound(x, y, SOUND_slidewall, Xslidewall_ns);
+ }
+}
+
+static void Lslidewall_ew(int x, int y)
+{
+ if (tab_blank[Cave[x+1][y]])
+ {
+ Cave[x+1][y] = Yslidewall_ew_blank;
+ Next[x+1][y] = Xslidewall_ew;
+ play_element_sound(x, y, SOUND_slidewall, Xslidewall_ew);
+ }
+
+ if (tab_blank[Cave[x-1][y]])
+ {
+ Cave[x-1][y] = Yslidewall_ew_blank;
+ Next[x-1][y] = Xslidewall_ew;
+ play_element_sound(x, y, SOUND_slidewall, Xslidewall_ew);
+ }
+}
+
+static void Lexit(int x, int y)
+{
+ if (lev.required > 0)
+ return;
+
+ switch (RANDOM(64) / 21)
+ {
+ case 0:
+ Cave[x][y] = Xexit_1;
+ Next[x][y] = Xexit_2;
+ break;
+
+ case 1:
+ Cave[x][y] = Xexit_2;
+ Next[x][y] = Xexit_3;
+ break;
+
+ default:
+ Cave[x][y] = Xexit_3;
+ Next[x][y] = Xexit_1;
+ break;
+ }
+
+ play_element_sound(x, y, SOUND_exit_open, Xexit);
+}
+
+static void Lexit_1(int x, int y)
+{
+ Next[x][y] = Xexit_2;
+}
+
+static void Lexit_2(int x, int y)
+{
+ Next[x][y] = Xexit_3;
+}
+
+static void Lexit_3(int x, int y)
+{
+ Next[x][y] = Xexit_1;
+}
+
+static void Lpause(int x, int y)
+{
+ Next[x][y] = Xblank;
+}
+
+static void Lboom_1(int x, int y)
+{
+ Next[x][y] = Xboom_2;
+#if !PLAY_ELEMENT_SOUND
+ if (x != lev.exit_x && y != lev.exit_y)
+ play_sound(x, y, SOUND_boom);
+ else
+ lev.exit_x = lev.exit_y = -1;
+#endif
+}
+
+static void Lboom_2(int x, int y)
+{
+ Next[x][y] = Boom[x][y];
+}
+
+static void Lboom_android(int x, int y)
+{
+#if PLAY_ELEMENT_SOUND
+ play_element_sound(x, y, SOUND_boom, Xandroid);
+#endif
+
+ Lboom_1(x, y);
+}
+
+static void handle_tile(int x, int y)
+{
+ switch (Cave[x][y])
+ {
+ case Xacid_1: Lacid_1(x, y); break;
+ case Xacid_2: Lacid_2(x, y); break;
+ case Xacid_3: Lacid_3(x, y); break;
+ case Xacid_4: Lacid_4(x, y); break;
+ case Xacid_5: Lacid_5(x, y); break;
+ case Xacid_6: Lacid_6(x, y); break;
+ case Xacid_7: Lacid_7(x, y); break;
+ case Xacid_8: Lacid_8(x, y); break;
+
+#ifdef EM_ENGINE_USE_ADDITIONAL_ELEMENTS
+ case Xfake_acid_1: Lfake_acid_1(x, y); break;
+ case Xfake_acid_2: Lfake_acid_2(x, y); break;
+ case Xfake_acid_3: Lfake_acid_3(x, y); break;
+ case Xfake_acid_4: Lfake_acid_4(x, y); break;
+ case Xfake_acid_5: Lfake_acid_5(x, y); break;
+ case Xfake_acid_6: Lfake_acid_6(x, y); break;
+ case Xfake_acid_7: Lfake_acid_7(x, y); break;
+ case Xfake_acid_8: Lfake_acid_8(x, y); break;
+#endif
+
+ case Xandroid: Landroid(x, y); break;
+ case Xandroid_1_n: Landroid_1_n(x, y); break;
+ case Xandroid_2_n: Landroid_2_n(x, y); break;
+ case Xandroid_1_e: Landroid_1_e(x, y); break;
+ case Xandroid_2_e: Landroid_2_e(x, y); break;
+ case Xandroid_1_s: Landroid_1_s(x, y); break;
+ case Xandroid_2_s: Landroid_2_s(x, y); break;
+ case Xandroid_1_w: Landroid_1_w(x, y); break;
+ case Xandroid_2_w: Landroid_2_w(x, y); break;
+
+ case Xeater_n: Leater_n(x, y); break;
+ case Xeater_e: Leater_e(x, y); break;
+ case Xeater_s: Leater_s(x, y); break;
+ case Xeater_w: Leater_w(x, y); break;
+
+ case Xalien: Lalien(x, y); break;
+ case Xalien_pause: Lalien_pause(x, y); break;
+
+ case Xbug_1_n: Lbug_1_n(x, y); break;
+ case Xbug_2_n: Lbug_2_n(x, y); break;
+ case Xbug_1_e: Lbug_1_e(x, y); break;
+ case Xbug_2_e: Lbug_2_e(x, y); break;
+ case Xbug_1_s: Lbug_1_s(x, y); break;
+ case Xbug_2_s: Lbug_2_s(x, y); break;
+ case Xbug_1_w: Lbug_1_w(x, y); break;
+ case Xbug_2_w: Lbug_2_w(x, y); break;
+
+ case Xtank_1_n: Ltank_1_n(x, y); break;
+ case Xtank_2_n: Ltank_2_n(x, y); break;
+ case Xtank_1_e: Ltank_1_e(x, y); break;
+ case Xtank_2_e: Ltank_2_e(x, y); break;
+ case Xtank_1_s: Ltank_1_s(x, y); break;
+ case Xtank_2_s: Ltank_2_s(x, y); break;
+ case Xtank_1_w: Ltank_1_w(x, y); break;
+ case Xtank_2_w: Ltank_2_w(x, y); break;
+
+ case Xemerald: Lemerald(x, y); break;
+ case Xemerald_pause: Lemerald_pause(x, y); break;
+ case Xemerald_fall: Lemerald_fall(x, y); break;
+
+ case Xdiamond: Ldiamond(x, y); break;
+ case Xdiamond_pause: Ldiamond_pause(x, y); break;
+ case Xdiamond_fall: Ldiamond_fall(x, y); break;
+
+ case Xstone: Lstone(x, y); break;
+ case Xstone_pause: Lstone_pause(x, y); break;
+ case Xstone_fall: Lstone_fall(x, y); break;
+
+ case Xbomb: Lbomb(x, y); break;
+ case Xbomb_pause: Lbomb_pause(x, y); break;
+ case Xbomb_fall: Lbomb_fall(x, y); break;
+
+ case Xnut: Lnut(x, y); break;
+ case Xnut_pause: Lnut_pause(x, y); break;
+ case Xnut_fall: Lnut_fall(x, y); break;
+
+ case Xspring: Lspring(x, y); break;
+ case Xspring_pause: Lspring_pause(x, y); break;
+ case Xspring_e: Lspring_e(x, y); break;
+ case Xspring_w: Lspring_w(x, y); break;
+ case Xspring_fall: Lspring_fall(x, y); break;
+
+ case Xpush_emerald_e: Lpush_emerald_e(x, y); break;
+ case Xpush_emerald_w: Lpush_emerald_w(x, y); break;
+ case Xpush_diamond_e: Lpush_diamond_e(x, y); break;
+ case Xpush_diamond_w: Lpush_diamond_w(x, y); break;
+ case Xpush_stone_e: Lpush_stone_e(x, y); break;
+ case Xpush_stone_w: Lpush_stone_w(x, y); break;
+ case Xpush_bomb_e: Lpush_bomb_e(x, y); break;
+ case Xpush_bomb_w: Lpush_bomb_w(x, y); break;
+ case Xpush_nut_e: Lpush_nut_e(x, y); break;
+ case Xpush_nut_w: Lpush_nut_w(x, y); break;
+ case Xpush_spring_e: Lpush_spring_e(x, y); break;
+ case Xpush_spring_w: Lpush_spring_w(x, y); break;
+
+ case Xdynamite_1: Ldynamite_1(x, y); break;
+ case Xdynamite_2: Ldynamite_2(x, y); break;
+ case Xdynamite_3: Ldynamite_3(x, y); break;
+ case Xdynamite_4: Ldynamite_4(x, y); break;
+
+ case Xfake_door_1: Lfake_door_1(x, y); break;
+ case Xfake_door_2: Lfake_door_2(x, y); break;
+ case Xfake_door_3: Lfake_door_3(x, y); break;
+ case Xfake_door_4: Lfake_door_4(x, y); break;
+ case Xfake_door_5: Lfake_door_5(x, y); break;
+ case Xfake_door_6: Lfake_door_6(x, y); break;
+ case Xfake_door_7: Lfake_door_7(x, y); break;
+ case Xfake_door_8: Lfake_door_8(x, y); break;
+
+ case Xballoon: Lballoon(x, y); break;
+
+ case Xball_1: Lball_1(x, y); break;
+ case Xball_2: Lball_2(x, y); break;
+
+ case Xdrip: Ldrip(x, y); break;
+ case Xdrip_fall: Ldrip_fall(x, y); break;
+ case Xdrip_stretch: Ldrip_stretch(x, y); break;
+ case Xdrip_stretchB: Ldrip_stretchB(x, y); break;
+
+ case Xwonderwall: Lwonderwall(x, y); break;
+
+ case Xwheel: Lwheel(x, y); break;
+
+ case Xswitch: Lswitch(x, y); break;
+
+ case Xfake_blank: Lfake_blank(x, y); break;
+ case Xfake_grass: Lfake_grass(x, y); break;
+ case Xfake_amoeba: Lfake_amoeba(x, y); break;
+
+ case Xsand_stone: Lsand_stone(x, y); break;
+ case Xsand_stonein_1: Lsand_stonein_1(x, y); break;
+ case Xsand_stonein_2: Lsand_stonein_2(x, y); break;
+ case Xsand_stonein_3: Lsand_stonein_3(x, y); break;
+ case Xsand_stonein_4: Lsand_stonein_4(x, y); break;
+ case Xsand_sandstone_1: Lsand_sandstone_1(x, y); break;
+ case Xsand_sandstone_2: Lsand_sandstone_2(x, y); break;
+ case Xsand_sandstone_3: Lsand_sandstone_3(x, y); break;
+ case Xsand_sandstone_4: Lsand_sandstone_4(x, y); break;
+ case Xsand_stonesand_1: Lsand_stonesand_1(x, y); break;
+ case Xsand_stonesand_2: Lsand_stonesand_2(x, y); break;
+ case Xsand_stonesand_3: Lsand_stonesand_3(x, y); break;
+ case Xsand_stonesand_4: Lsand_stonesand_4(x, y); break;
+ case Xsand_stoneout_1: Lsand_stoneout_1(x, y); break;
+ case Xsand_stoneout_2: Lsand_stoneout_2(x, y); break;
+#ifdef EM_ENGINE_USE_ADDITIONAL_ELEMENTS
+ case Xsand_stonesand_quickout_1: Lsand_stonesand_quickout_1(x, y); break;
+ case Xsand_stonesand_quickout_2: Lsand_stonesand_quickout_2(x, y); break;
+#endif
+
+ case Xslidewall_ns: Lslidewall_ns(x, y); break;
+ case Xslidewall_ew: Lslidewall_ew(x, y); break;
+
+ case Xexit: Lexit(x, y); break;
+ case Xexit_1: Lexit_1(x, y); break;
+ case Xexit_2: Lexit_2(x, y); break;
+ case Xexit_3: Lexit_3(x, y); break;
+
+ case Xpause: Lpause(x, y); break;
+
+ case Xboom_bug: Lboom_bug(x, y); break;
+ case Xboom_bomb: Lboom_tank(x, y); break;
+ case Xboom_android: Lboom_android(x, y); break;
+ case Xboom_1: Lboom_1(x, y); break;
+ case Xboom_2: Lboom_2(x, y); break;
+ }
+}
+
+void logic_1(void)
+{
+ int start_check_nr;
+ int i;
+
+ game_em.any_player_moving = FALSE;
+ game_em.any_player_snapping = FALSE;
+
+ /* must test for death and actually kill separately */
+ for (i = 0; i < MAX_PLAYERS; i++)
+ {
+ boolean ply_kill = player_killed(&ply[i]);
+
+ if (ply[i].alive && ply_kill)
+ kill_player(&ply[i]);
+ }
+
+ for (i = 0; i < MAX_PLAYERS; i++)
+ {
+ ply[i].oldx = ply[i].x;
+ ply[i].oldy = ply[i].y;
+ ply[i].anim = PLY_still;
+ }
+
+ start_check_nr = (RandomEM & 128 ? 0 : 1) * 2 + (RandomEM & 256 ? 0 : 1);
+
+ for (i = 0; i < MAX_PLAYERS; i++)
+ {
+ int check_nr = (start_check_nr + i) % MAX_PLAYERS;
+
+ if (ply[check_nr].alive)
+ check_player(&ply[check_nr]);
+ }
+
+ for (i = 0; i < MAX_PLAYERS; i++)
+ {
+ if (!ply[i].alive)
+ continue;
+
+ if (Cave[ply[i].oldx][ply[i].oldy] == Zplayer)
+ {
+ Cave[ply[i].oldx][ply[i].oldy] = Xblank;
+ Next[ply[i].oldx][ply[i].oldy] = Xblank;
+ }
+
+ if (Cave[ply[i].x][ply[i].y] == Xblank)
+ {
+ Cave[ply[i].x][ply[i].y] = Zplayer;
+ Next[ply[i].x][ply[i].y] = Zplayer;
+ }
+ }
+}
+
+void logic_2(void)
+{
+ int x, y;
+
+ seed = RandomEM;
+ score = 0;
+
+ for (y = 1; y < HEIGHT - 1; y++)
+ for (x = 0; x < WIDTH; x++)
+ handle_tile(x, y);
+
+ if (ply[0].alive || ply[1].alive || ply[2].alive || ply[3].alive)
+ lev.score += score; /* only add a score if someone is alive */
+ else
+ game_em.game_over = TRUE;
+
+ RandomEM = seed;
+
+ /* triple buffering */
+ void *temp = Cave;
+ Cave = Next;
+ Next = Draw;
+ Draw = temp;
+}
+
+void logic_3(void)
+{
+ int x;
+ int y;
+ int count;
+ unsigned int random;
+
+ /* update variables */
+
+ if (lev.score > 9999)
+ lev.score = 9999;
+
+ if (lev.android_move_cnt-- == 0)
+ lev.android_move_cnt = lev.android_move_time;
+ if (lev.android_clone_cnt-- == 0)
+ lev.android_clone_cnt = lev.android_clone_time;
+ if (lev.ball_state)
+ if (lev.ball_cnt-- == 0)
+ lev.ball_cnt = lev.ball_time;
+ if (lev.lenses_cnt)
+ lev.lenses_cnt--;
+ if (lev.magnify_cnt)
+ lev.magnify_cnt--;
+ if (lev.wheel_cnt)
+ lev.wheel_cnt--;
+ if (lev.wind_cnt)
+ lev.wind_cnt--;
+ if (lev.wonderwall_time && lev.wonderwall_state)
+ lev.wonderwall_time--;
+
+ if (lev.wheel_cnt)
+ play_element_sound(lev.wheel_x, lev.wheel_y, SOUND_wheel, Xwheel);
+
+ /* grow amoeba */
+
+ random = RandomEM;
+
+ for (count = lev.amoeba_time; count--;)
+ {
+ x = (random >> 10) % (WIDTH - 2);
+ y = (random >> 20) % (HEIGHT - 2);
+ switch (Cave[x][y])
+ {
+ case Xblank:
+ case Xacid_splash_e:
+ case Xacid_splash_w:
+ case Xgrass:
+ case Xdirt:
+ case Xsand:
+ case Xplant:
+ case Yplant:
+ if (tab_amoeba[Cave[x][y-1]] ||
+ tab_amoeba[Cave[x+1][y]] ||
+ tab_amoeba[Cave[x][y+1]] ||
+ tab_amoeba[Cave[x-1][y]])
+ Cave[x][y] = Xdrip;
+ }
+
+ random = random * 129 + 1;
+ }
+
+ RandomEM = random;
+
+ /* handle explosions */
+
+ for (y = 1; y < HEIGHT - 1; y++)
+ for (x = 1; x < WIDTH - 1; x++)
+ {
+ switch (Cave[x][y])
+ {
+ case Znormal:
+ Cave[x][y] = Xboom_1;
+ Cave[x][y-1] = tab_explode_normal[Cave[x][y-1]];
+ Cave[x-1][y] = tab_explode_normal[Cave[x-1][y]];
+ Cave[x+1][y] = tab_explode_normal[Cave[x+1][y]];
+ Cave[x][y+1] = tab_explode_normal[Cave[x][y+1]];
+ Cave[x-1][y-1] = tab_explode_normal[Cave[x-1][y-1]];
+ Cave[x+1][y-1] = tab_explode_normal[Cave[x+1][y-1]];
+ Cave[x-1][y+1] = tab_explode_normal[Cave[x-1][y+1]];
+ Cave[x+1][y+1] = tab_explode_normal[Cave[x+1][y+1]];
+ break;
+
+ case Zdynamite:
+ Cave[x][y] = Xboom_1;
+ Cave[x][y-1] = tab_explode_dynamite[Cave[x][y-1]];
+ Cave[x-1][y] = tab_explode_dynamite[Cave[x-1][y]];
+ Cave[x+1][y] = tab_explode_dynamite[Cave[x+1][y]];
+ Cave[x][y+1] = tab_explode_dynamite[Cave[x][y+1]];
+ Cave[x-1][y-1] = tab_explode_dynamite[Cave[x-1][y-1]];
+ Cave[x+1][y-1] = tab_explode_dynamite[Cave[x+1][y-1]];
+ Cave[x-1][y+1] = tab_explode_dynamite[Cave[x-1][y+1]];
+ Cave[x+1][y+1] = tab_explode_dynamite[Cave[x+1][y+1]];
+ break;
+ }
+ }
+
+ /* triple buffering */
+
+ for (y = 0; y < HEIGHT; y++)
+ for (x = 0; x < WIDTH; x++)
+ Next[x][y] = Cave[x][y];
+}
+++ /dev/null
-/* first part of synchro.
- *
- * game logic for players.
- *
- * large switch statement for tiles the player interacts with.
- */
-
-#include "main_em.h"
-
-
-#define USE_CHANGED_ACID_STUFF 1
-
-static void check_player(struct PLAYER *);
-static void kill_player(struct PLAYER *);
-static boolean player_digfield(struct PLAYER *, int, int);
-static boolean player_killed(struct PLAYER *);
-
-void synchro_1(void)
-{
- int start_check_nr;
- int i;
-
- game_em.any_player_moving = FALSE;
- game_em.any_player_snapping = FALSE;
-
- /* must test for death and actually kill separately */
- for (i = 0; i < MAX_PLAYERS; i++)
- {
- boolean ply_kill = player_killed(&ply[i]);
-
- if (ply[i].alive && ply_kill)
- kill_player(&ply[i]);
- }
-
- for (i = 0; i < MAX_PLAYERS; i++)
- {
- ply[i].oldx = ply[i].x;
- ply[i].oldy = ply[i].y;
- ply[i].anim = PLY_still;
- }
-
- start_check_nr = (RandomEM & 128 ? 0 : 1) * 2 + (RandomEM & 256 ? 0 : 1);
-
- for (i = 0; i < MAX_PLAYERS; i++)
- {
- int check_nr = (start_check_nr + i) % MAX_PLAYERS;
-
- if (ply[check_nr].alive)
- check_player(&ply[check_nr]);
- }
-
- for (i = 0; i < MAX_PLAYERS; i++)
- {
- if (!ply[i].alive)
- continue;
-
- if (Cave[ply[i].oldx][ply[i].oldy] == Zplayer)
- {
- Cave[ply[i].oldx][ply[i].oldy] = Xblank;
- Next[ply[i].oldx][ply[i].oldy] = Xblank;
- }
-
- if (Cave[ply[i].x][ply[i].y] == Xblank)
- {
- Cave[ply[i].x][ply[i].y] = Zplayer;
- Next[ply[i].x][ply[i].y] = Zplayer;
- }
- }
-}
-
-static boolean player_killed(struct PLAYER *ply)
-{
- int x = ply->x;
- int y = ply->y;
-
- if (!ply->alive)
- return FALSE;
-
- if (lev.killed_out_of_time && setup.time_limit)
- return TRUE;
-
- switch(Cave[x][y-1])
- {
- case Xbug_1_n:
- case Xbug_1_e:
- case Xbug_1_s:
- case Xbug_1_w:
- case Xbug_2_n:
- case Xbug_2_e:
- case Xbug_2_s:
- case Xbug_2_w:
- case Xtank_1_n:
- case Xtank_1_e:
- case Xtank_1_s:
- case Xtank_1_w:
- case Xtank_2_n:
- case Xtank_2_e:
- case Xtank_2_s:
- case Xtank_2_w:
- return TRUE;
- }
-
- switch(Cave[x+1][y])
- {
- case Xbug_1_n:
- case Xbug_1_e:
- case Xbug_1_s:
- case Xbug_1_w:
- case Xbug_2_n:
- case Xbug_2_e:
- case Xbug_2_s:
- case Xbug_2_w:
- case Xtank_1_n:
- case Xtank_1_e:
- case Xtank_1_s:
- case Xtank_1_w:
- case Xtank_2_n:
- case Xtank_2_e:
- case Xtank_2_s:
- case Xtank_2_w:
- return TRUE;
- }
-
- switch(Cave[x][y+1])
- {
- case Xbug_1_n:
- case Xbug_1_e:
- case Xbug_1_s:
- case Xbug_1_w:
- case Xbug_2_n:
- case Xbug_2_e:
- case Xbug_2_s:
- case Xbug_2_w:
- case Xtank_1_n:
- case Xtank_1_e:
- case Xtank_1_s:
- case Xtank_1_w:
- case Xtank_2_n:
- case Xtank_2_e:
- case Xtank_2_s:
- case Xtank_2_w:
- return TRUE;
- }
-
- switch(Cave[x-1][y])
- {
- case Xbug_1_n:
- case Xbug_1_e:
- case Xbug_1_s:
- case Xbug_1_w:
- case Xbug_2_n:
- case Xbug_2_e:
- case Xbug_2_s:
- case Xbug_2_w:
- case Xtank_1_n:
- case Xtank_1_e:
- case Xtank_1_s:
- case Xtank_1_w:
- case Xtank_2_n:
- case Xtank_2_e:
- case Xtank_2_s:
- case Xtank_2_w:
- return TRUE;
- }
-
- switch(Cave[x][y])
- {
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Zplayer:
- case Xdynamite_1:
- case Xdynamite_2:
- case Xdynamite_3:
- case Xdynamite_4:
-#ifdef EM_ENGINE_USE_ADDITIONAL_ELEMENTS
- case Xfake_acid_1:
- case Xfake_acid_2:
- case Xfake_acid_3:
- case Xfake_acid_4:
- case Xfake_acid_5:
- case Xfake_acid_6:
- case Xfake_acid_7:
- case Xfake_acid_8:
-#endif
- return FALSE;
- }
-
- return TRUE;
-}
-
-static void kill_player(struct PLAYER *ply)
-{
- int x = ply->x;
- int y = ply->y;
-
- ply->alive = 0;
-
- switch(Cave[x][y-1])
- {
- case Xbug_1_n:
- case Xbug_1_e:
- case Xbug_1_s:
- case Xbug_1_w:
- case Xbug_2_n:
- case Xbug_2_e:
- case Xbug_2_s:
- case Xbug_2_w:
- Cave[x][y-1] = Xboom_bug;
- break;
-
- case Xtank_1_n:
- case Xtank_1_e:
- case Xtank_1_s:
- case Xtank_1_w:
- case Xtank_2_n:
- case Xtank_2_e:
- case Xtank_2_s:
- case Xtank_2_w:
- Cave[x][y-1] = Xboom_bomb;
- break;
- }
-
- switch(Cave[x+1][y])
- {
- case Xbug_1_n:
- case Xbug_1_e:
- case Xbug_1_s:
- case Xbug_1_w:
- case Xbug_2_n:
- case Xbug_2_e:
- case Xbug_2_s:
- case Xbug_2_w:
- Cave[x+1][y] = Xboom_bug;
- break;
-
- case Xtank_1_n:
- case Xtank_1_e:
- case Xtank_1_s:
- case Xtank_1_w:
- case Xtank_2_n:
- case Xtank_2_e:
- case Xtank_2_s:
- case Xtank_2_w:
- Cave[x+1][y] = Xboom_bomb;
- break;
- }
-
- switch(Cave[x][y+1])
- {
- case Xbug_1_n:
- case Xbug_1_e:
- case Xbug_1_s:
- case Xbug_1_w:
- case Xbug_2_n:
- case Xbug_2_e:
- case Xbug_2_s:
- case Xbug_2_w:
- Cave[x][y+1] = Xboom_bug;
- break;
-
- case Xtank_1_n:
- case Xtank_1_e:
- case Xtank_1_s:
- case Xtank_1_w:
- case Xtank_2_n:
- case Xtank_2_e:
- case Xtank_2_s:
- case Xtank_2_w:
- Cave[x][y+1] = Xboom_bomb;
- break;
- }
-
- switch(Cave[x-1][y])
- {
- case Xbug_1_n:
- case Xbug_1_e:
- case Xbug_1_s:
- case Xbug_1_w:
- case Xbug_2_n:
- case Xbug_2_e:
- case Xbug_2_s:
- case Xbug_2_w:
- Cave[x-1][y] = Xboom_bug;
- break;
-
- case Xtank_1_n:
- case Xtank_1_e:
- case Xtank_1_s:
- case Xtank_1_w:
- case Xtank_2_n:
- case Xtank_2_e:
- case Xtank_2_s:
- case Xtank_2_w:
- Cave[x-1][y] = Xboom_bomb;
- break;
- }
-
- switch(Cave[x][y])
- {
- case Xexit_1:
- case Xexit_2:
- case Xexit_3:
- lev.exit_x = x;
- lev.exit_y = y;
- play_element_sound(x, y, SOUND_exit_leave, Xexit_1);
- break;
-
- default:
- play_element_sound(x, y, SOUND_die, Zplayer);
- break;
- }
-
- switch(Cave[x][y])
- {
-#if USE_CHANGED_ACID_STUFF
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- break;
-#endif
-
- default:
- Cave[x][y] = Xboom_1;
- Boom[x][y] = Xblank;
- break;
- }
-}
-
-static void check_player(struct PLAYER *ply)
-{
- int oldx = ply->x;
- int oldy = ply->y;
- int x = oldx;
- int y = oldy;
- int dx = 0, dy = 0;
-
- game_em.last_player_direction[ply->num] = MV_NONE;
-
- if (ply->joy_w) /* west */
- {
- x--;
- dx = -1;
- }
- else if (ply->joy_e) /* east */
- {
- x++;
- dx = 1;
- }
-
- if (ply->joy_n) /* north */
- {
- y--;
- dy = -1;
- }
- else if (ply->joy_s) /* south */
- {
- y++;
- dy = 1;
- }
-
- if (dx || dy)
- {
- int oldx = ply->x;
- int oldy = ply->y;
- int x = oldx + dx;
- int y = oldy + dy;
- boolean players_visible_before_move;
- boolean players_visible_after_move;
- boolean can_move;
-
- players_visible_before_move = checkIfAllPlayersFitToScreen();
-
- ply->x = x;
- ply->y = y;
-
- players_visible_after_move = checkIfAllPlayersFitToScreen();
-
- /*
- player is allowed to move only in the following cases:
- - it is not needed to display all players (not focussed to all players)
- - all players are (still or again) visible after the move
- - some players were already outside visible screen area before the move
- */
- can_move = (game.centered_player_nr != -1 ||
- players_visible_after_move ||
- !players_visible_before_move);
-
- ply->x = oldx;
- ply->y = oldy;
-
- if (!can_move)
- {
- ply->joy_n = ply->joy_e = ply->joy_s = ply->joy_w = 0;
-
- return;
- }
- }
-
- if (dx == 0 && dy == 0)
- {
- ply->joy_stick = 0;
-
- if (ply->joy_drop)
- {
- if (++ply->dynamite_cnt == 5 && ply->dynamite)
- {
- Cave[x][y] = Xdynamite_1;
- play_element_sound(x, y, SOUND_dynamite, Xdynamite_1);
- ply->dynamite--;
- }
- }
- else
- {
- ply->dynamite_cnt = 0;
- }
-
- RandomEM += 7; /* be a bit more random if the player doesn't move */
-
- return;
- }
-
- ply->joy_stick = 1;
- ply->joy_n = ply->joy_e = ply->joy_s = ply->joy_w = 0;
- ply->dynamite_cnt = 0; /* reset dynamite timer if we move */
- ply->joy_spin = !ply->joy_spin;
-
- if (ply->joy_snap == 0) /* player wants to move */
- {
- boolean moved = FALSE;
-
- if (ply->last_move_dir & MV_HORIZONTAL)
- {
- if (!(moved = player_digfield(ply, 0, dy)))
- moved = player_digfield(ply, dx, 0);
- }
- else
- {
- if (!(moved = player_digfield(ply, dx, 0)))
- moved = player_digfield(ply, 0, dy);
- }
-
- if (moved)
- {
- if (oldx != ply->x)
- ply->last_move_dir = (dx < 0 ? MV_LEFT : MV_RIGHT);
- else if (oldy != ply->y)
- ply->last_move_dir = (dy < 0 ? MV_UP : MV_DOWN);
-
- game_em.any_player_moving = TRUE;
- game_em.last_moving_player = ply->num;
- game_em.last_player_direction[ply->num] = ply->last_move_dir;
- }
- }
- else /* player wants to snap */
- {
- game_em.any_player_snapping = player_digfield(ply, dx, dy);
- }
-}
-
-static boolean player_digfield(struct PLAYER *ply, int dx, int dy)
-{
- int anim = (dx < 0 ? 3 : dx > 0 ? 1 : dy < 0 ? 0 : dy > 0 ? 2 : 2);
- int oldx = ply->x;
- int oldy = ply->y;
- int x = oldx + dx;
- int y = oldy + dy;
- boolean result = TRUE;
-
- if (!dx && !dy) /* no direction specified */
- return FALSE;
-
- if (dx && dy && ply->joy_snap) /* more than one direction specified */
- return FALSE;
-
- if (ply->joy_snap == 0) /* player wants to move */
- {
- int element = Cave[x][y];
-
- switch(Cave[x][y])
- {
- /* fire is released */
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Zplayer;
- Next[x][y] = Zplayer;
-#ifdef EM_ENGINE_USE_ADDITIONAL_ELEMENTS
- case Xfake_acid_1:
- case Xfake_acid_2:
- case Xfake_acid_3:
- case Xfake_acid_4:
- case Xfake_acid_5:
- case Xfake_acid_6:
- case Xfake_acid_7:
- case Xfake_acid_8:
-#endif
- play_element_sound(x, y, SOUND_blank, Xblank);
- ply->anim = PLY_walk_n + anim;
- ply->x = x;
- ply->y = y;
- break;
-
-#if USE_CHANGED_ACID_STUFF
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- if (Cave[x+1][y-1] == Xblank)
- Cave[x+1][y-1] = Xacid_splash_e;
- if (Cave[x-1][y-1] == Xblank)
- Cave[x-1][y-1] = Xacid_splash_w;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
-#endif
-
- case Xboom_android:
- case Xboom_1:
- case Xbug_1_n:
- case Xbug_1_e:
- case Xbug_1_s:
- case Xbug_1_w:
- case Xbug_2_n:
- case Xbug_2_e:
- case Xbug_2_s:
- case Xbug_2_w:
- case Xtank_1_n:
- case Xtank_1_e:
- case Xtank_1_s:
- case Xtank_1_w:
- case Xtank_2_n:
- case Xtank_2_e:
- case Xtank_2_s:
- case Xtank_2_w:
-
-#if !USE_CHANGED_ACID_STUFF
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
-#endif
- ply->anim = PLY_walk_n + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xgrass:
- Cave[x][y] = (dy ? (dy < 0 ? Ygrass_nB : Ygrass_sB) :
- (dx > 0 ? Ygrass_eB : Ygrass_wB));
- Next[x][y] = Zplayer;
- play_element_sound(x, y, SOUND_dirt, Xgrass);
- ply->anim = PLY_walk_n + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xdirt:
- Cave[x][y] = (dy ? (dy < 0 ? Ydirt_nB : Ydirt_sB) :
- (dx > 0 ? Ydirt_eB : Ydirt_wB));
- Next[x][y] = Zplayer;
- play_element_sound(x, y, SOUND_dirt, Xdirt);
- ply->anim = PLY_walk_n + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xdiamond:
- case Xdiamond_pause:
- Cave[x][y] = Ydiamond_blank;
- Next[x][y] = Zplayer;
- play_element_sound(x, y, SOUND_collect, element);
- lev.score += lev.diamond_score;
- lev.required = lev.required < 3 ? 0 : lev.required - 3;
- game.snapshot.collected_item = TRUE;
- ply->anim = PLY_walk_n + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xemerald:
- case Xemerald_pause:
- Cave[x][y] = Yemerald_blank;
- Next[x][y] = Zplayer;
- play_element_sound(x, y, SOUND_collect, element);
- lev.score += lev.emerald_score;
- lev.required = lev.required < 1 ? 0 : lev.required - 1;
- game.snapshot.collected_item = TRUE;
- ply->anim = PLY_walk_n + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xdynamite:
- Cave[x][y] = Ydynamite_blank;
- Next[x][y] = Zplayer;
- play_element_sound(x, y, SOUND_collect, element);
- lev.score += lev.dynamite_score;
- ply->dynamite = ply->dynamite > 9998 ? 9999 : ply->dynamite + 1;
- ply->anim = PLY_walk_n + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xkey_1:
- ply->keys |= 0x01;
- Cave[x][y] = Ykey_1_blank;
- goto key_walk;
-
- case Xkey_2:
- ply->keys |= 0x02;
- Cave[x][y] = Ykey_2_blank;
- goto key_walk;
-
- case Xkey_3:
- ply->keys |= 0x04;
- Cave[x][y] = Ykey_3_blank;
- goto key_walk;
-
- case Xkey_4:
- ply->keys |= 0x08;
- Cave[x][y] = Ykey_4_blank;
- goto key_walk;
-
- case Xkey_5:
- ply->keys |= 0x10;
- Cave[x][y] = Ykey_5_blank;
- goto key_walk;
-
- case Xkey_6:
- ply->keys |= 0x20;
- Cave[x][y] = Ykey_6_blank;
- goto key_walk;
-
- case Xkey_7:
- ply->keys |= 0x40;
- Cave[x][y] = Ykey_7_blank;
- goto key_walk;
-
- case Xkey_8:
- ply->keys |= 0x80;
- Cave[x][y] = Ykey_8_blank;
- goto key_walk;
-
- key_walk:
-
- Next[x][y] = Zplayer;
- play_element_sound(x, y, SOUND_collect, element);
- lev.score += lev.key_score;
- ply->anim = PLY_walk_n + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xlenses:
- Cave[x][y] = Ylenses_blank;
- Next[x][y] = Zplayer;
- play_element_sound(x, y, SOUND_collect, element);
- lev.score += lev.lenses_score;
- lev.lenses_cnt = lev.lenses_time;
- ply->anim = PLY_walk_n + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xmagnify:
- Cave[x][y] = Ymagnify_blank;
- Next[x][y] = Zplayer;
- play_element_sound(x, y, SOUND_collect, element);
- lev.score += lev.magnify_score;
- lev.magnify_cnt = lev.magnify_time;
- ply->anim = PLY_walk_n + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xstone:
- if (dy)
- break;
-
- switch(Cave[x+dx][y])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- if (Cave[x+dx+1][y-1] == Xblank)
- Cave[x+dx+1][y-1] = Xacid_splash_e;
- if (Cave[x+dx-1][y-1] == Xblank)
- Cave[x+dx-1][y-1] = Xacid_splash_w;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- goto stone_walk;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x+dx][y] = dx > 0 ? Ystone_e : Ystone_w;
- Next[x+dx][y] = Xstone_pause;
-
- stone_walk:
-
- Cave[x][y] = dx > 0 ? Ystone_eB : Ystone_wB;
- Next[x][y] = Zplayer;
- play_element_sound(x, y, SOUND_roll, Xstone);
- ply->x = x;
- }
-
- ply->anim = PLY_push_n + anim;
- break;
-
- case Xbomb:
- if (dy)
- break;
-
- switch(Cave[x+dx][y])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- if (Cave[x+dx+1][y-1] == Xblank)
- Cave[x+dx+1][y-1] = Xacid_splash_e;
- if (Cave[x+dx-1][y-1] == Xblank)
- Cave[x+dx-1][y-1] = Xacid_splash_w;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- goto bomb_walk;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x+dx][y] = dx > 0 ? Ybomb_e : Ybomb_w;
- Next[x+dx][y] = Xbomb_pause;
-
- bomb_walk:
-
- Cave[x][y] = dx > 0 ? Ybomb_eB : Ybomb_wB;
- Next[x][y] = Zplayer;
- play_element_sound(x, y, SOUND_roll, Xbomb);
- ply->x = x;
- }
-
- ply->anim = PLY_push_n + anim;
- break;
-
- case Xnut:
- if (dy)
- break;
-
- switch(Cave[x+dx][y])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- if (Cave[x+dx+1][y-1] == Xblank)
- Cave[x+dx+1][y-1] = Xacid_splash_e;
- if (Cave[x+dx-1][y-1] == Xblank)
- Cave[x+dx-1][y-1] = Xacid_splash_w;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- goto nut_walk;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x+dx][y] = dx > 0 ? Ynut_e : Ynut_w;
- Next[x+dx][y] = Xnut_pause;
-
- nut_walk:
-
- Cave[x][y] = dx > 0 ? Ynut_eB : Ynut_wB;
- Next[x][y] = Zplayer;
- play_element_sound(x, y, SOUND_roll, Xnut);
- ply->x = x;
- }
-
- ply->anim = PLY_push_n + anim;
- break;
-
- case Xspring:
- if (dy)
- break;
-
- switch(Cave[x+dx][y])
- {
- case Xalien:
- case Xalien_pause:
- Cave[x][y] = dx > 0 ? Yspring_alien_eB : Yspring_alien_wB;
- Cave[x+dx][y] = dx > 0 ? Yspring_alien_e : Yspring_alien_w;
- Next[x][y] = Zplayer;
- Next[x+dx][y] = dx > 0 ? Xspring_e : Xspring_w;
- play_element_sound(x, y, SOUND_slurp, Xalien);
- lev.score += lev.slurp_score;
- ply->x = x;
- break;
-
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- if (Cave[x+dx+1][y-1] == Xblank)
- Cave[x+dx+1][y-1] = Xacid_splash_e;
- if (Cave[x+dx-1][y-1] == Xblank)
- Cave[x+dx-1][y-1] = Xacid_splash_w;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- goto spring_walk;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x+dx][y] = dx > 0 ? Yspring_e : Yspring_w;
- Next[x+dx][y] = dx > 0 ? Xspring_e : Xspring_w;
-
- spring_walk:
- Cave[x][y] = dx > 0 ? Yspring_eB : Yspring_wB;
- Next[x][y] = Zplayer;
- play_element_sound(x, y, SOUND_roll, Xspring);
- ply->x = x;
- }
-
- ply->anim = PLY_push_n + anim;
- break;
-
- case Xspring_pause:
- case Xstone_pause:
- case Xbomb_pause:
- case Xnut_pause:
- case Xsand_stonein_1:
- case Xsand_stonein_2:
- case Xsand_stonein_3:
- case Xsand_stonein_4:
- if (dy)
- break;
-
- ply->anim = PLY_push_n + anim;
- break;
-
- case Xballoon:
- switch(Cave[x+dx][y+dy])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- if (Cave[x+dx+1][y+dy-1] == Xblank)
- Cave[x+dx+1][y+dy-1] = Xacid_splash_e;
- if (Cave[x+dx-1][y+dy-1] == Xblank)
- Cave[x+dx-1][y+dy-1] = Xacid_splash_w;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- goto balloon_walk;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x+dx][y+dy] = (dy ? (dy < 0 ? Yballoon_n : Yballoon_s) :
- (dx > 0 ? Yballoon_e : Yballoon_w));
- Next[x+dx][y+dy] = Xballoon;
-
- balloon_walk:
- Cave[x][y] = (dy ? (dy < 0 ? Yballoon_nB : Yballoon_sB) :
- (dx > 0 ? Yballoon_eB : Yballoon_wB));
- Next[x][y] = Zplayer;
- play_element_sound(x, y, SOUND_push, Xballoon);
- ply->x = x;
- ply->y = y;
- }
-
- ply->anim = PLY_push_n + anim;
- break;
-
- case Xandroid:
- case Xandroid_1_n:
- case Xandroid_2_n:
- case Xandroid_1_e:
- case Xandroid_2_e:
- case Xandroid_1_s:
- case Xandroid_2_s:
- case Xandroid_1_w:
- case Xandroid_2_w:
- switch(Cave[x+dx][y+dy])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- if (Cave[x+dx+1][y+dy-1] == Xblank)
- Cave[x+dx+1][y+dy-1] = Xacid_splash_e;
- if (Cave[x+dx-1][y+dy-1] == Xblank)
- Cave[x+dx-1][y+dy-1] = Xacid_splash_w;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- goto android_walk;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x+dx][y+dy] = (dy ? (dy < 0 ? Yandroid_n : Yandroid_s) :
- (dx > 0 ? Yandroid_e : Yandroid_w));
- Next[x+dx][y+dy] = (dy ? (dy < 0 ? Xandroid_2_n : Xandroid_2_s) :
- (dx > 0 ? Xandroid_2_e : Xandroid_2_w));
-
- android_walk:
- Cave[x][y] = (dy ? (dy < 0 ? Yandroid_nB : Yandroid_sB) :
- (dx > 0 ? Yandroid_eB : Yandroid_wB));
- Next[x][y] = Zplayer;
- play_element_sound(x, y, SOUND_push, Xandroid);
- ply->x = x;
- ply->y = y;
- }
-
- ply->anim = PLY_push_n + anim;
- break;
-
- case Xdoor_1:
- case Xfake_door_1:
- if (ply->keys & 0x01)
- goto door_walk;
- else
- break;
-
- case Xdoor_2:
- case Xfake_door_2:
- if (ply->keys & 0x02)
- goto door_walk;
- else
- break;
-
- case Xdoor_3:
- case Xfake_door_3:
- if (ply->keys & 0x04)
- goto door_walk;
- else
- break;
-
- case Xdoor_4:
- case Xfake_door_4:
- if (ply->keys & 0x08)
- goto door_walk;
- else
- break;
-
- case Xdoor_5:
- case Xfake_door_5:
- if (ply->keys & 0x10)
- goto door_walk;
- else
- break;
-
- case Xdoor_6:
- case Xfake_door_6:
- if (ply->keys & 0x20)
- goto door_walk;
- else
- break;
-
- case Xdoor_7:
- case Xfake_door_7:
- if (ply->keys & 0x40)
- goto door_walk;
- else
- break;
-
- case Xdoor_8:
- case Xfake_door_8:
- if (ply->keys & 0x80)
- goto door_walk;
- else
- break;
-
- door_walk:
- if (!tab_blank[Cave[x+dx][y+dy]])
- break;
-
- Cave[x+dx][y+dy] = Zplayer;
- Next[x+dx][y+dy] = Zplayer;
- play_element_sound(x, y, SOUND_door, element);
- ply->anim = PLY_walk_n + anim;
- ply->x = x + dx;
- ply->y = y + dy;
- break;
-
- case Xwheel:
- play_element_sound(x, y, SOUND_press, element);
- lev.wheel_cnt = lev.wheel_time;
- lev.wheel_x = x;
- lev.wheel_y = y;
- break;
-
- case Xwind_n:
- lev.wind_direction = 0;
- goto wind_walk;
-
- case Xwind_e:
- lev.wind_direction = 1;
- goto wind_walk;
-
- case Xwind_s:
- lev.wind_direction = 2;
- goto wind_walk;
-
- case Xwind_w:
- lev.wind_direction = 3;
- goto wind_walk;
-
- case Xwind_any:
- lev.wind_direction = dy ? (dy < 0 ? 0 : 2) : (dx > 0 ? 1 : 3);
- goto wind_walk;
-
- wind_walk:
- play_element_sound(x, y, SOUND_press, element);
- lev.wind_cnt = lev.wind_time;
- break;
-
- case Xwind_stop:
- play_element_sound(x, y, SOUND_press, element);
- lev.wind_cnt = 0;
- break;
-
- case Xswitch:
- play_element_sound(x, y, SOUND_press, element);
- lev.ball_cnt = lev.ball_time;
- lev.ball_state = !lev.ball_state;
- break;
-
- case Xplant:
- Cave[x][y] = Yplant;
- Next[x][y] = Xplant;
- play_element_sound(x, y, SOUND_blank, Xplant);
- ply->anim = PLY_walk_n + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xexit_1:
- case Xexit_2:
- case Xexit_3:
- lev.home--;
-
- if (lev.home == 0)
- game_em.level_solved = TRUE;
-
- ply->anim = PLY_walk_n + anim;
- ply->x = x;
- ply->y = y;
-
- break;
- }
-
- if (ply->x == oldx && ply->y == oldy) /* no movement */
- result = FALSE;
- }
- else /* player wants to snap */
- {
- int element = Cave[x][y];
-
- switch(Cave[x][y])
- {
- /* fire is pressed */
-
- case Xgrass:
- Cave[x][y] = Ygrass_blank;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_dirt, element);
- ply->anim = PLY_shoot_n + anim;
- break;
-
- case Xdirt:
- Cave[x][y] = Ydirt_blank;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_dirt, element);
- ply->anim = PLY_shoot_n + anim;
- break;
-
- case Xdiamond:
- case Xdiamond_pause:
- Cave[x][y] = Ydiamond_blank;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_collect, element);
- lev.score += lev.diamond_score;
- lev.required = lev.required < 3 ? 0 : lev.required - 3;
- game.snapshot.collected_item = TRUE;
- ply->anim = PLY_walk_n + anim;
- break;
-
- case Xemerald:
- case Xemerald_pause:
- Cave[x][y] = Yemerald_blank;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_collect, element);
- lev.score += lev.emerald_score;
- lev.required = lev.required < 1 ? 0 : lev.required - 1;
- game.snapshot.collected_item = TRUE;
- ply->anim = PLY_walk_n + anim;
- break;
-
- case Xdynamite:
- Cave[x][y] = Ydynamite_blank;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_collect, element);
- lev.score += lev.dynamite_score;
- ply->dynamite = ply->dynamite > 9998 ? 9999 : ply->dynamite + 1;
- ply->anim = PLY_walk_n + anim;
- break;
-
- case Xkey_1:
- ply->keys |= 0x01;
- Cave[x][y] = Ykey_1_blank;
- goto key_shoot;
-
- case Xkey_2:
- ply->keys |= 0x02;
- Cave[x][y] = Ykey_2_blank;
- goto key_shoot;
-
- case Xkey_3:
- ply->keys |= 0x04;
- Cave[x][y] = Ykey_3_blank;
- goto key_shoot;
-
- case Xkey_4:
- ply->keys |= 0x08;
- Cave[x][y] = Ykey_4_blank;
- goto key_shoot;
-
- case Xkey_5:
- ply->keys |= 0x10;
- Cave[x][y] = Ykey_5_blank;
- goto key_shoot;
-
- case Xkey_6:
- ply->keys |= 0x20;
- Cave[x][y] = Ykey_6_blank;
- goto key_shoot;
-
- case Xkey_7:
- ply->keys |= 0x40;
- Cave[x][y] = Ykey_7_blank;
- goto key_shoot;
-
- case Xkey_8:
- ply->keys |= 0x80;
- Cave[x][y] = Ykey_8_blank;
- goto key_shoot;
-
- key_shoot:
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_collect, element);
- lev.score += lev.key_score;
- ply->anim = PLY_walk_n + anim;
- break;
-
- case Xlenses:
- Cave[x][y] = Ylenses_blank;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_collect, element);
- lev.score += lev.lenses_score;
- lev.lenses_cnt = lev.lenses_time;
- ply->anim = PLY_walk_n + anim;
- break;
-
- case Xmagnify:
- Cave[x][y] = Ymagnify_blank;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_collect, element);
- lev.score += lev.magnify_score;
- lev.magnify_cnt = lev.magnify_time;
- ply->anim = PLY_walk_n + anim;
- break;
-
- default:
- result = FALSE;
- }
- }
-
- return result;
-}
+++ /dev/null
-/* second part of synchro.
- *
- * game logic for monsters.
- *
- * one giant switch statement to process everything.
- *
- * this whole thing is a major bottleneck. the compiler must use registers.
- * compilers suck.
- */
-
-#include "main_em.h"
-
-
-#define SPRING_ROLL /* spring rolling off round things continues to roll */
-
-#define RANDOM_RAW (seed = seed << 31 | seed >> 1)
-#define RANDOM(x) (RANDOM_RAW & (x - 1))
-
-static unsigned int seed;
-static int score;
-
-static void Lboom_bug(int x, int y)
-{
- Next[x][y] = Znormal;
- Boom[x-1][y-1] = Xemerald;
- Boom[x][y-1] = Xemerald;
- Boom[x+1][y-1] = Xemerald;
- Boom[x-1][y] = Xemerald;
- Boom[x][y] = Xdiamond;
- Boom[x+1][y] = Xemerald;
- Boom[x-1][y+1] = Xemerald;
- Boom[x][y+1] = Xemerald;
- Boom[x+1][y+1] = Xemerald;
-
-#if PLAY_ELEMENT_SOUND
- play_element_sound(x, y, SOUND_boom, element);
-#endif
-}
-
-static void Lboom_tank(int x, int y)
-{
- Next[x][y] = Znormal;
- Boom[x-1][y-1] = Xblank;
- Boom[x][y-1] = Xblank;
- Boom[x+1][y-1] = Xblank;
- Boom[x-1][y] = Xblank;
- Boom[x][y] = Xblank;
- Boom[x+1][y] = Xblank;
- Boom[x-1][y+1] = Xblank;
- Boom[x][y+1] = Xblank;
- Boom[x+1][y+1] = Xblank;
-#if PLAY_ELEMENT_SOUND
- play_element_sound(x, y, SOUND_boom, element);
-#endif
-}
-
-static void set_nearest_player_xy(int x, int y, int *dx, int *dy)
-{
- int distance, distance_shortest = EM_MAX_CAVE_WIDTH + EM_MAX_CAVE_HEIGHT;
- int i;
-
- /* default values if no players are alive anymore */
- *dx = 0;
- *dy = 0;
-
- for (i = 0; i < MAX_PLAYERS; i++)
- {
- if (!ply[i].alive)
- continue;
-
- distance = ABS(ply[i].x - x) + ABS(ply[i].y - y);
-
- if (distance < distance_shortest)
- {
- *dx = ply[i].x;
- *dy = ply[i].y;
-
- distance_shortest = distance;
- }
- }
-}
-
-static void Lacid_1(int x, int y)
-{
- Next[x][y] = Xacid_2;
-}
-
-static void Lacid_2(int x, int y)
-{
- Next[x][y] = Xacid_3;
-}
-
-static void Lacid_3(int x, int y)
-{
- Next[x][y] = Xacid_4;
-}
-
-static void Lacid_4(int x, int y)
-{
- Next[x][y] = Xacid_5;
-}
-
-static void Lacid_5(int x, int y)
-{
- Next[x][y] = Xacid_6;
-}
-
-static void Lacid_6(int x, int y)
-{
- Next[x][y] = Xacid_7;
-}
-
-static void Lacid_7(int x, int y)
-{
- Next[x][y] = Xacid_8;
-}
-
-static void Lacid_8(int x, int y)
-{
- Next[x][y] = Xacid_1;
-}
-
-#ifdef EM_ENGINE_USE_ADDITIONAL_ELEMENTS
-static void Lfake_acid_1(int x, int y)
-{
- Next[x][y] = Xfake_acid_2;
-}
-
-static void Lfake_acid_2(int x, int y)
-{
- Next[x][y] = Xfake_acid_3;
-}
-
-static void Lfake_acid_3(int x, int y)
-{
- Next[x][y] = Xfake_acid_4;
-}
-
-static void Lfake_acid_4(int x, int y)
-{
- Next[x][y] = Xfake_acid_5;
-}
-
-static void Lfake_acid_5(int x, int y)
-{
- Next[x][y] = Xfake_acid_6;
-}
-
-static void Lfake_acid_6(int x, int y)
-{
- Next[x][y] = Xfake_acid_7;
-}
-
-static void Lfake_acid_7(int x, int y)
-{
- Next[x][y] = Xfake_acid_8;
-}
-
-static void Lfake_acid_8(int x, int y)
-{
- Next[x][y] = Xfake_acid_1;
-}
-#endif
-
-static void Landroid(int x, int y)
-{
- int dx, dy, temp;
-
- if (lev.android_clone_cnt == 0)
- {
- if (Cave[x-1][y-1] != Xblank &&
- Cave[x][y-1] != Xblank &&
- Cave[x+1][y-1] != Xblank &&
- Cave[x-1][y] != Xblank &&
- Cave[x+1][y] != Xblank &&
- Cave[x-1][y+1] != Xblank &&
- Cave[x][y+1] != Xblank &&
- Cave[x+1][y+1] != Xblank)
- goto android_move;
-
- switch (RANDOM(8))
- {
- /* randomly find an object to clone */
-
- case 0: /* S,NE,W,NW,SE,E,SW,N */
- temp = lev.android_array[Cave[x][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x][y-1]]; if (temp != Xblank) break;
- goto android_move;
-
- case 1: /* NW,SE,N,S,NE,SW,E,W */
- temp = lev.android_array[Cave[x-1][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y]]; if (temp != Xblank) break;
- goto android_move;
-
- case 2: /* SW,E,S,W,N,NW,SE,NE */
- temp = lev.android_array[Cave[x-1][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y-1]]; if (temp != Xblank) break;
- goto android_move;
-
- case 3: /* N,SE,NE,E,W,S,NW,SW */
- temp = lev.android_array[Cave[x][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y+1]]; if (temp != Xblank) break;
- goto android_move;
-
- case 4: /* SE,NW,E,NE,SW,W,N,S */
- temp = lev.android_array[Cave[x+1][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x][y+1]]; if (temp != Xblank) break;
- goto android_move;
-
- case 5: /* NE,W,SE,SW,S,N,E,NW */
- temp = lev.android_array[Cave[x+1][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y-1]]; if (temp != Xblank) break;
- goto android_move;
-
- case 6: /* E,N,SW,S,NW,NE,SE,W */
- temp = lev.android_array[Cave[x+1][y]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y]]; if (temp != Xblank) break;
- goto android_move;
-
- case 7: /* W,SW,NW,N,E,SE,NE,S */
- temp = lev.android_array[Cave[x-1][y]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x-1][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y+1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x+1][y-1]]; if (temp != Xblank) break;
- temp = lev.android_array[Cave[x][y+1]]; if (temp != Xblank) break;
- goto android_move;
- }
-
- Next[x][y] = temp; /* the item we chose to clone */
- play_element_sound(x, y, SOUND_android_clone, temp);
-
- switch (RANDOM(8))
- {
- /* randomly find a direction to move */
-
- case 0: /* S,NE,W,NW,SE,E,SW,N */
- if (Cave[x][y+1] == Xblank) goto android_s;
- if (Cave[x+1][y-1] == Xblank) goto android_ne;
- if (Cave[x-1][y] == Xblank) goto android_w;
- if (Cave[x-1][y-1] == Xblank) goto android_nw;
- if (Cave[x+1][y+1] == Xblank) goto android_se;
- if (Cave[x+1][y] == Xblank) goto android_e;
- if (Cave[x-1][y+1] == Xblank) goto android_sw;
- if (Cave[x][y-1] == Xblank) goto android_n;
- goto android_move;
-
- case 1: /* NW,SE,N,S,NE,SW,E,W */
- if (Cave[x-1][y-1] == Xblank) goto android_nw;
- if (Cave[x+1][y+1] == Xblank) goto android_se;
- if (Cave[x][y-1] == Xblank) goto android_n;
- if (Cave[x][y+1] == Xblank) goto android_s;
- if (Cave[x+1][y-1] == Xblank) goto android_ne;
- if (Cave[x-1][y+1] == Xblank) goto android_sw;
- if (Cave[x+1][y] == Xblank) goto android_e;
- if (Cave[x-1][y] == Xblank) goto android_w;
- goto android_move;
-
- case 2: /* SW,E,S,W,N,NW,SE,NE */
- if (Cave[x-1][y+1] == Xblank) goto android_sw;
- if (Cave[x+1][y] == Xblank) goto android_e;
- if (Cave[x][y+1] == Xblank) goto android_s;
- if (Cave[x-1][y] == Xblank) goto android_w;
- if (Cave[x][y-1] == Xblank) goto android_n;
- if (Cave[x-1][y-1] == Xblank) goto android_nw;
- if (Cave[x+1][y+1] == Xblank) goto android_se;
- if (Cave[x+1][y-1] == Xblank) goto android_ne;
- goto android_move;
-
- case 3: /* N,SE,NE,E,W,S,NW,SW */
- if (Cave[x][y-1] == Xblank) goto android_n;
- if (Cave[x+1][y+1] == Xblank) goto android_se;
- if (Cave[x+1][y-1] == Xblank) goto android_ne;
- if (Cave[x+1][y] == Xblank) goto android_e;
- if (Cave[x-1][y] == Xblank) goto android_w;
- if (Cave[x][y+1] == Xblank) goto android_s;
- if (Cave[x-1][y-1] == Xblank) goto android_nw;
- if (Cave[x-1][y+1] == Xblank) goto android_sw;
- goto android_move;
-
- case 4: /* SE,NW,E,NE,SW,W,N,S */
- if (Cave[x+1][y+1] == Xblank) goto android_se;
- if (Cave[x-1][y-1] == Xblank) goto android_nw;
- if (Cave[x+1][y] == Xblank) goto android_e;
- if (Cave[x+1][y-1] == Xblank) goto android_ne;
- if (Cave[x-1][y+1] == Xblank) goto android_sw;
- if (Cave[x-1][y] == Xblank) goto android_w;
- if (Cave[x][y-1] == Xblank) goto android_n;
- if (Cave[x][y+1] == Xblank) goto android_s;
- goto android_move;
-
- case 5: /* NE,W,SE,SW,S,N,E,NW */
- if (Cave[x+1][y-1] == Xblank) goto android_ne;
- if (Cave[x-1][y] == Xblank) goto android_w;
- if (Cave[x+1][y+1] == Xblank) goto android_se;
- if (Cave[x-1][y+1] == Xblank) goto android_sw;
- if (Cave[x][y+1] == Xblank) goto android_s;
- if (Cave[x][y-1] == Xblank) goto android_n;
- if (Cave[x+1][y] == Xblank) goto android_e;
- if (Cave[x-1][y-1] == Xblank) goto android_nw;
- goto android_move;
-
- case 6: /* E,N,SW,S,NW,NE,SE,W */
- if (Cave[x+1][y] == Xblank) goto android_e;
- if (Cave[x][y-1] == Xblank) goto android_n;
- if (Cave[x-1][y+1] == Xblank) goto android_sw;
- if (Cave[x][y+1] == Xblank) goto android_s;
- if (Cave[x-1][y-1] == Xblank) goto android_nw;
- if (Cave[x+1][y-1] == Xblank) goto android_ne;
- if (Cave[x+1][y+1] == Xblank) goto android_se;
- if (Cave[x-1][y] == Xblank) goto android_w;
- goto android_move;
-
- case 7: /* W,SW,NW,N,E,SE,NE,S */
- if (Cave[x-1][y] == Xblank) goto android_w;
- if (Cave[x-1][y+1] == Xblank) goto android_sw;
- if (Cave[x-1][y-1] == Xblank) goto android_nw;
- if (Cave[x][y-1] == Xblank) goto android_n;
- if (Cave[x+1][y] == Xblank) goto android_e;
- if (Cave[x+1][y+1] == Xblank) goto android_se;
- if (Cave[x+1][y-1] == Xblank) goto android_ne;
- if (Cave[x][y+1] == Xblank) goto android_s;
- goto android_move;
- }
- }
-
- android_move:
- if (lev.android_move_cnt == 0)
- {
- if (Cave[x-1][y-1] == Zplayer ||
- Cave[x][y-1] == Zplayer ||
- Cave[x+1][y-1] == Zplayer ||
- Cave[x-1][y] == Zplayer ||
- Cave[x+1][y] == Zplayer ||
- Cave[x-1][y+1] == Zplayer ||
- Cave[x][y+1] == Zplayer ||
- Cave[x+1][y+1] == Zplayer)
- goto android_still;
-
- set_nearest_player_xy(x, y, &dx, &dy);
-
- Next[x][y] = Xblank; /* assume we will move */
- temp = ((x < dx) + 1 - (x > dx)) + ((y < dy) + 1 - (y > dy)) * 3;
-
- if (RANDOM(2))
- {
- switch (temp)
- {
- /* attempt clockwise move first if direct path is blocked */
-
- case 0: /* north west */
- if (tab_android_move[Cave[x-1][y-1]]) goto android_nw;
- if (tab_android_move[Cave[x][y-1]]) goto android_n;
- if (tab_android_move[Cave[x-1][y]]) goto android_w;
- break;
-
- case 1: /* north */
- if (tab_android_move[Cave[x][y-1]]) goto android_n;
- if (tab_android_move[Cave[x+1][y-1]]) goto android_ne;
- if (tab_android_move[Cave[x-1][y-1]]) goto android_nw;
- break;
-
- case 2: /* north east */
- if (tab_android_move[Cave[x+1][y-1]]) goto android_ne;
- if (tab_android_move[Cave[x+1][y]]) goto android_e;
- if (tab_android_move[Cave[x][y-1]]) goto android_n;
- break;
-
- case 3: /* west */
- if (tab_android_move[Cave[x-1][y]]) goto android_w;
- if (tab_android_move[Cave[x-1][y-1]]) goto android_nw;
- if (tab_android_move[Cave[x-1][y+1]]) goto android_sw;
- break;
-
- case 4: /* nowhere */
- break;
-
- case 5: /* east */
- if (tab_android_move[Cave[x+1][y]]) goto android_e;
- if (tab_android_move[Cave[x+1][y+1]]) goto android_se;
- if (tab_android_move[Cave[x+1][y-1]]) goto android_ne;
- break;
-
- case 6: /* south west */
- if (tab_android_move[Cave[x-1][y+1]]) goto android_sw;
- if (tab_android_move[Cave[x-1][y]]) goto android_w;
- if (tab_android_move[Cave[x][y+1]]) goto android_s;
- break;
-
- case 7: /* south */
- if (tab_android_move[Cave[x][y+1]]) goto android_s;
- if (tab_android_move[Cave[x-1][y+1]]) goto android_sw;
- if (tab_android_move[Cave[x+1][y+1]]) goto android_se;
- break;
-
- case 8: /* south east */
- if (tab_android_move[Cave[x+1][y+1]]) goto android_se;
- if (tab_android_move[Cave[x][y+1]]) goto android_s;
- if (tab_android_move[Cave[x+1][y]]) goto android_e;
- break;
- }
- }
- else
- {
- switch (temp)
- {
- /* attempt counterclockwise move first if direct path is blocked */
-
- case 0: /* north west */
- if (tab_android_move[Cave[x-1][y-1]]) goto android_nw;
- if (tab_android_move[Cave[x-1][y]]) goto android_w;
- if (tab_android_move[Cave[x][y-1]]) goto android_n;
- break;
-
- case 1: /* north */
- if (tab_android_move[Cave[x][y-1]]) goto android_n;
- if (tab_android_move[Cave[x-1][y-1]]) goto android_nw;
- if (tab_android_move[Cave[x+1][y-1]]) goto android_ne;
- break;
-
- case 2: /* north east */
- if (tab_android_move[Cave[x+1][y-1]]) goto android_ne;
- if (tab_android_move[Cave[x][y-1]]) goto android_n;
- if (tab_android_move[Cave[x+1][y]]) goto android_e;
- break;
-
- case 3: /* west */
- if (tab_android_move[Cave[x-1][y]]) goto android_w;
- if (tab_android_move[Cave[x-1][y+1]]) goto android_sw;
- if (tab_android_move[Cave[x-1][y-1]]) goto android_nw;
- break;
-
- case 4: /* nowhere */
- break;
-
- case 5: /* east */
- if (tab_android_move[Cave[x+1][y]]) goto android_e;
- if (tab_android_move[Cave[x+1][y-1]]) goto android_ne;
- if (tab_android_move[Cave[x+1][y+1]]) goto android_se;
- break;
-
- case 6: /* south west */
- if (tab_android_move[Cave[x-1][y+1]]) goto android_sw;
- if (tab_android_move[Cave[x][y+1]]) goto android_s;
- if (tab_android_move[Cave[x-1][y]]) goto android_w;
- break;
-
- case 7: /* south */
- if (tab_android_move[Cave[x][y+1]]) goto android_s;
- if (tab_android_move[Cave[x+1][y+1]]) goto android_se;
- if (tab_android_move[Cave[x-1][y+1]]) goto android_sw;
- break;
-
- case 8: /* south east */
- if (tab_android_move[Cave[x+1][y+1]]) goto android_se;
- if (tab_android_move[Cave[x+1][y]]) goto android_e;
- if (tab_android_move[Cave[x][y+1]]) goto android_s;
- break;
- }
- }
- }
-
- android_still:
- Next[x][y] = Xandroid;
- return;
-
- android_n:
- Cave[x][y] = Yandroid_nB;
- Cave[x][y-1] = Yandroid_n;
- Next[x][y-1] = Xandroid;
- play_element_sound(x, y, SOUND_android_move, Xandroid);
- return;
-
- android_ne:
- Cave[x][y] = Yandroid_neB;
- Cave[x+1][y-1] = Yandroid_ne;
- Next[x+1][y-1] = Xandroid;
- play_element_sound(x, y, SOUND_android_move, Xandroid);
- return;
-
- android_e:
- Cave[x][y] = Yandroid_eB;
- Cave[x+1][y] = Yandroid_e;
- Next[x+1][y] = Xandroid;
- play_element_sound(x, y, SOUND_android_move, Xandroid);
- return;
-
- android_se:
- Cave[x][y] = Yandroid_seB;
- Cave[x+1][y+1] = Yandroid_se;
- Next[x+1][y+1] = Xandroid;
- play_element_sound(x, y, SOUND_android_move, Xandroid);
- return;
-
- android_s:
- Cave[x][y] = Yandroid_sB;
- Cave[x][y+1] = Yandroid_s;
- Next[x][y+1] = Xandroid;
- play_element_sound(x, y, SOUND_android_move, Xandroid);
- return;
-
- android_sw:
- Cave[x][y] = Yandroid_swB;
- Cave[x-1][y+1] = Yandroid_sw;
- Next[x-1][y+1] = Xandroid;
- play_element_sound(x, y, SOUND_android_move, Xandroid);
- return;
-
- android_w:
- Cave[x][y] = Yandroid_wB;
- Cave[x-1][y] = Yandroid_w;
- Next[x-1][y] = Xandroid;
- play_element_sound(x, y, SOUND_android_move, Xandroid);
- return;
-
- android_nw:
- Cave[x][y] = Yandroid_nwB;
- Cave[x-1][y-1] = Yandroid_nw;
- Next[x-1][y-1] = Xandroid;
- play_element_sound(x, y, SOUND_android_move, Xandroid);
- return;
-}
-
-static void Landroid_1_n(int x, int y)
-{
- switch (Cave[x][y-1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yandroid_nB;
- if (Cave[x+1][y-2] == Xblank)
- Cave[x+1][y-2] = Xacid_splash_e;
- if (Cave[x-1][y-2] == Xblank)
- Cave[x-1][y-2] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Yandroid_nB;
- Cave[x][y-1] = Yandroid_n;
- Next[x][y] = Xblank;
- Next[x][y-1] = Xandroid;
- play_element_sound(x, y, SOUND_android_move, Xandroid_1_n);
- return;
-
- default:
- Landroid(x, y);
- return;
- }
-}
-
-static void Landroid_2_n(int x, int y)
-{
- switch (Cave[x][y-1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yandroid_nB;
- if (Cave[x+1][y-2] == Xblank)
- Cave[x+1][y-2] = Xacid_splash_e;
- if (Cave[x-1][y-2] == Xblank)
- Cave[x-1][y-2] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Yandroid_nB;
- Cave[x][y-1] = Yandroid_n;
- Next[x][y] = Xblank;
- Next[x][y-1] = Xandroid_1_n;
- play_element_sound(x, y, SOUND_android_move, Xandroid_2_n);
- return;
-
- default:
- Landroid(x, y);
- return;
- }
-}
-
-static void Landroid_1_e(int x, int y)
-{
- switch (Cave[x+1][y])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yandroid_eB;
- if (Cave[x+2][y-1] == Xblank)
- Cave[x+2][y-1] = Xacid_splash_e;
- if (Cave[x][y-1] == Xblank)
- Cave[x][y-1] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Yandroid_eB;
- Cave[x+1][y] = Yandroid_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xandroid;
- play_element_sound(x, y, SOUND_android_move, Xandroid_1_e);
- return;
-
- default:
- Landroid(x, y);
- return;
- }
-}
-
-static void Landroid_2_e(int x, int y)
-{
- switch (Cave[x+1][y])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yandroid_eB;
- if (Cave[x+2][y-1] == Xblank)
- Cave[x+2][y-1] = Xacid_splash_e;
- if (Cave[x][y-1] == Xblank)
- Cave[x][y-1] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Yandroid_eB;
- Cave[x+1][y] = Yandroid_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xandroid_1_e;
- play_element_sound(x, y, SOUND_android_move, Xandroid_2_e);
- return;
-
- default:
- Landroid(x, y);
- return;
- }
-}
-
-static void Landroid_1_s(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yandroid_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Yandroid_sB;
- Cave[x][y+1] = Yandroid_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xandroid;
- play_element_sound(x, y, SOUND_android_move, Xandroid_1_s);
- return;
-
- default:
- Landroid(x, y);
- return;
- }
-}
-
-static void Landroid_2_s(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yandroid_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Yandroid_sB;
- Cave[x][y+1] = Yandroid_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xandroid_1_s;
- play_element_sound(x, y, SOUND_android_move, Xandroid_2_s);
- return;
-
- default:
- Landroid(x, y);
- return;
- }
-}
-
-static void Landroid_1_w(int x, int y)
-{
- switch (Cave[x-1][y])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yandroid_wB;
- if (Cave[x][y-1] == Xblank)
- Cave[x][y-1] = Xacid_splash_e;
- if (Cave[x-2][y-1] == Xblank)
- Cave[x-2][y-1] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Yandroid_wB;
- Cave[x-1][y] = Yandroid_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xandroid;
- play_element_sound(x, y, SOUND_android_move, Xandroid_1_w);
- return;
-
- default:
- Landroid(x, y);
- return;
- }
-}
-
-static void Landroid_2_w(int x, int y)
-{
- switch (Cave[x-1][y])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yandroid_wB;
- if (Cave[x][y-1] == Xblank)
- Cave[x][y-1] = Xacid_splash_e;
- if (Cave[x-2][y-1] == Xblank)
- Cave[x-2][y-1] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Yandroid_wB;
- Cave[x-1][y] = Yandroid_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xandroid_1_w;
- play_element_sound(x, y, SOUND_android_move, Xandroid_1_w);
- return;
-
- default:
- Landroid(x, y);
- return;
- }
-}
-
-static void Leater_n(int x, int y)
-{
- if (Cave[x+1][y] == Xdiamond)
- {
- Cave[x+1][y] = Ydiamond_blank;
- Next[x+1][y] = Xblank;
- play_element_sound(x, y, SOUND_eater_eat, Xeater_n);
- return;
- }
-
- if (Cave[x][y+1] == Xdiamond)
- {
- Cave[x][y+1] = Ydiamond_blank;
- Next[x][y+1] = Xblank;
- play_element_sound(x, y, SOUND_eater_eat, Xeater_n);
- return;
- }
-
- if (Cave[x-1][y] == Xdiamond)
- {
- Cave[x-1][y] = Ydiamond_blank;
- Next[x-1][y] = Xblank;
- play_element_sound(x, y, SOUND_eater_eat, Xeater_n);
- return;
- }
-
- if (Cave[x][y-1] == Xdiamond)
- {
- Cave[x][y-1] = Ydiamond_blank;
- Next[x][y-1] = Xblank;
- play_element_sound(x, y, SOUND_eater_eat, Xeater_n);
- return;
- }
-
- switch (Cave[x][y-1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yeater_nB;
- if (Cave[x+1][y-2] == Xblank)
- Cave[x+1][y-2] = Xacid_splash_e;
- if (Cave[x-1][y-2] == Xblank)
- Cave[x-1][y-2] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Zplayer:
- Cave[x][y] = Yeater_nB;
- Cave[x][y-1] = Yeater_n;
- Next[x][y] = Xblank;
- Next[x][y-1] = Xeater_n;
- return;
-
- default:
- Next[x][y] = RANDOM(2) ? Xeater_e : Xeater_w;
- play_element_sound(x, y, SOUND_eater, Xeater_n);
- return;
- }
-}
-
-static void Leater_e(int x, int y)
-{
- if (Cave[x][y+1] == Xdiamond)
- {
- Cave[x][y+1] = Ydiamond_blank;
- Next[x][y+1] = Xblank;
- play_element_sound(x, y, SOUND_eater_eat, Xeater_e);
- return;
- }
-
- if (Cave[x-1][y] == Xdiamond)
- {
- Cave[x-1][y] = Ydiamond_blank;
- Next[x-1][y] = Xblank;
- play_element_sound(x, y, SOUND_eater_eat, Xeater_e);
- return;
- }
-
- if (Cave[x][y-1] == Xdiamond)
- {
- Cave[x][y-1] = Ydiamond_blank;
- Next[x][y-1] = Xblank;
- play_element_sound(x, y, SOUND_eater_eat, Xeater_e);
- return;
- }
-
- if (Cave[x+1][y] == Xdiamond)
- {
- Cave[x+1][y] = Ydiamond_blank;
- Next[x+1][y] = Xblank;
- play_element_sound(x, y, SOUND_eater_eat, Xeater_e);
- return;
- }
-
- switch (Cave[x+1][y])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yeater_eB;
- if (Cave[x+2][y-1] == Xblank)
- Cave[x+2][y-1] = Xacid_splash_e;
- if (Cave[x][y-1] == Xblank)
- Cave[x][y-1] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Zplayer:
- Cave[x][y] = Yeater_eB;
- Cave[x+1][y] = Yeater_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xeater_e;
- return;
-
- default:
- Next[x][y] = RANDOM(2) ? Xeater_n : Xeater_s;
- play_element_sound(x, y, SOUND_eater, Xeater_e);
- return;
- }
-}
-
-static void Leater_s(int x, int y)
-{
- if (Cave[x-1][y] == Xdiamond)
- {
- Cave[x-1][y] = Ydiamond_blank;
- Next[x-1][y] = Xblank;
- play_element_sound(x, y, SOUND_eater_eat, Xeater_s);
- return;
- }
-
- if (Cave[x][y-1] == Xdiamond)
- {
- Cave[x][y-1] = Ydiamond_blank;
- Next[x][y-1] = Xblank;
- play_element_sound(x, y, SOUND_eater_eat, Xeater_s);
- return;
- }
-
- if (Cave[x+1][y] == Xdiamond)
- {
- Cave[x+1][y] = Ydiamond_blank;
- Next[x+1][y] = Xblank;
- play_element_sound(x, y, SOUND_eater_eat, Xeater_s);
- return;
- }
-
- if (Cave[x][y+1] == Xdiamond)
- {
- Cave[x][y+1] = Ydiamond_blank;
- Next[x][y+1] = Xblank;
- play_element_sound(x, y, SOUND_eater_eat, Xeater_s);
- return;
- }
-
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yeater_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Zplayer:
- Cave[x][y] = Yeater_sB;
- Cave[x][y+1] = Yeater_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xeater_s;
- return;
-
- default:
- Next[x][y] = RANDOM(2) ? Xeater_e : Xeater_w;
- play_element_sound(x, y, SOUND_eater, Xeater_s);
- return;
- }
-}
-
-static void Leater_w(int x, int y)
-{
- if (Cave[x][y-1] == Xdiamond)
- {
- Cave[x][y-1] = Ydiamond_blank;
- Next[x][y-1] = Xblank;
- play_element_sound(x, y, SOUND_eater_eat, Xeater_w);
- return;
- }
-
- if (Cave[x+1][y] == Xdiamond)
- {
- Cave[x+1][y] = Ydiamond_blank;
- Next[x+1][y] = Xblank;
- play_element_sound(x, y, SOUND_eater_eat, Xeater_w);
- return;
- }
-
- if (Cave[x][y+1] == Xdiamond)
- {
- Cave[x][y+1] = Ydiamond_blank;
- Next[x][y+1] = Xblank;
- play_element_sound(x, y, SOUND_eater_eat, Xeater_w);
- return;
- }
-
- if (Cave[x-1][y] == Xdiamond)
- {
- Cave[x-1][y] = Ydiamond_blank;
- Next[x-1][y] = Xblank;
- play_element_sound(x, y, SOUND_eater_eat, Xeater_w);
- return;
- }
-
- switch (Cave[x-1][y])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yeater_wB;
- if (Cave[x][y-1] == Xblank)
- Cave[x][y-1] = Xacid_splash_e;
- if (Cave[x-2][y-1] == Xblank)
- Cave[x-2][y-1] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Zplayer:
- Cave[x][y] = Yeater_wB;
- Cave[x-1][y] = Yeater_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xeater_w;
- return;
-
- default:
- Next[x][y] = RANDOM(2) ? Xeater_n : Xeater_s;
- play_element_sound(x, y, SOUND_eater, Xeater_w);
- return;
- }
-}
-
-static void Lalien(int x, int y)
-{
- int dx, dy;
-
- if (lev.wheel_cnt)
- {
- dx = lev.wheel_x;
- dy = lev.wheel_y;
- }
- else
- {
- set_nearest_player_xy(x, y, &dx, &dy);
- }
-
- if (RANDOM(2))
- {
- if (y > dy)
- {
- switch (Cave[x][y-1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yalien_nB;
- if (Cave[x+1][y-2] == Xblank)
- Cave[x+1][y-2] = Xacid_splash_e;
- if (Cave[x-1][y-2] == Xblank)
- Cave[x-1][y-2] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Zplayer:
- Cave[x][y] = Yalien_nB;
- Cave[x][y-1] = Yalien_n;
- Next[x][y] = Xblank;
- Next[x][y-1] = Xalien_pause;
- play_element_sound(x, y, SOUND_alien, Xalien);
- return;
- }
- }
- else if (y < dy)
- {
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yalien_sB;
- Next[x][y] = Xblank;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Zplayer:
- Cave[x][y] = Yalien_sB;
- Cave[x][y+1] = Yalien_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xalien_pause;
- play_element_sound(x, y, SOUND_alien, Xalien);
- return;
- }
- }
- }
- else
- {
- if (x < dx)
- {
- switch (Cave[x+1][y])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yalien_eB;
- if (Cave[x+2][y-1] == Xblank)
- Cave[x+2][y-1] = Xacid_splash_e;
- if (Cave[x][y-1] == Xblank)
- Cave[x][y-1] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Zplayer:
- Cave[x][y] = Yalien_eB;
- Cave[x+1][y] = Yalien_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xalien_pause;
- play_element_sound(x, y, SOUND_alien, Xalien);
- return;
- }
- }
- else if (x > dx)
- {
- switch (Cave[x-1][y])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yalien_wB;
- if (Cave[x][y-1] == Xblank)
- Cave[x][y-1] = Xacid_splash_e;
- if (Cave[x-2][y-1] == Xblank)
- Cave[x-2][y-1] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Zplayer:
- Cave[x][y] = Yalien_wB;
- Cave[x-1][y] = Yalien_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xalien_pause;
- play_element_sound(x, y, SOUND_alien, Xalien);
- return;
- }
- }
- }
-}
-
-static void Lalien_pause(int x, int y)
-{
- Next[x][y] = Xalien;
-}
-
-static void Lbug_n(int x, int y)
-{
- switch (Cave[x][y-1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ybug_nB;
- if (Cave[x+1][y-2] == Xblank)
- Cave[x+1][y-2] = Xacid_splash_e;
- if (Cave[x-1][y-2] == Xblank)
- Cave[x-1][y-2] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Zplayer:
- Cave[x][y] = Ybug_nB;
- Cave[x][y-1] = Ybug_n;
- Next[x][y] = Xblank;
- Next[x][y-1] = Xbug_1_n;
- play_element_sound(x, y, SOUND_bug, Xbug_1_n);
- return;
-
- default:
- Cave[x][y] = Ybug_n_w;
- Next[x][y] = Xbug_2_w;
- play_element_sound(x, y, SOUND_bug, Xbug_1_n);
- return;
- }
-}
-
-static void Lbug_1_n(int x, int y)
-{
- if (tab_amoeba[Cave[x][y-1]] ||
- tab_amoeba[Cave[x+1][y]] ||
- tab_amoeba[Cave[x][y+1]] ||
- tab_amoeba[Cave[x-1][y]])
- {
- Lboom_bug(x, y);
-
- return;
- }
-
- switch (Cave[x+1][y])
- {
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- case Zplayer:
- Cave[x][y] = Ybug_n_e;
- Next[x][y] = Xbug_2_e;
- play_element_sound(x, y, SOUND_bug, Xbug_1_n);
- return;
-
- default:
- Lbug_n(x, y);
- return;
- }
-}
-
-static void Lbug_2_n(int x, int y)
-{
- if (tab_amoeba[Cave[x][y-1]] ||
- tab_amoeba[Cave[x+1][y]] ||
- tab_amoeba[Cave[x][y+1]] ||
- tab_amoeba[Cave[x-1][y]])
- {
- Lboom_bug(x, y);
-
- return;
- }
-
- Lbug_n(x, y);
-}
-
-static void Lbug_e(int x, int y)
-{
- switch (Cave[x+1][y])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ybug_eB;
- if (Cave[x+2][y-1] == Xblank)
- Cave[x+2][y-1] = Xacid_splash_e;
- if (Cave[x][y-1] == Xblank)
- Cave[x][y-1] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Zplayer:
- Cave[x][y] = Ybug_eB;
- Cave[x+1][y] = Ybug_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xbug_1_e;
- play_element_sound(x, y, SOUND_bug, Xbug_1_e);
- return;
-
- default:
- Cave[x][y] = Ybug_e_n;
- Next[x][y] = Xbug_2_n;
- play_element_sound(x, y, SOUND_bug, Xbug_1_e);
- return;
- }
-}
-
-static void Lbug_1_e(int x, int y)
-{
- if (tab_amoeba[Cave[x][y-1]] ||
- tab_amoeba[Cave[x+1][y]] ||
- tab_amoeba[Cave[x][y+1]] ||
- tab_amoeba[Cave[x-1][y]])
- {
- Lboom_bug(x, y);
-
- return;
- }
-
- switch (Cave[x][y+1])
- {
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- case Zplayer:
- Cave[x][y] = Ybug_e_s;
- Next[x][y] = Xbug_2_s;
- play_element_sound(x, y, SOUND_bug, Xbug_1_e);
- return;
-
- default:
- Lbug_e(x, y);
- return;
- }
-}
-
-static void Lbug_2_e(int x, int y)
-{
- if (tab_amoeba[Cave[x][y-1]] ||
- tab_amoeba[Cave[x+1][y]] ||
- tab_amoeba[Cave[x][y+1]] ||
- tab_amoeba[Cave[x-1][y]])
- {
- Lboom_bug(x, y);
-
- return;
- }
-
- Lbug_e(x, y);
-}
-
-static void Lbug_s(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ybug_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Zplayer:
- Cave[x][y] = Ybug_sB;
- Cave[x][y+1] = Ybug_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xbug_1_s;
- play_element_sound(x, y, SOUND_bug, Xbug_1_s);
- return;
-
- default:
- Cave[x][y] = Ybug_s_e;
- Next[x][y] = Xbug_2_e;
- play_element_sound(x, y, SOUND_bug, Xbug_1_s);
- return;
- }
-}
-
-static void Lbug_1_s(int x, int y)
-{
- if (tab_amoeba[Cave[x][y-1]] ||
- tab_amoeba[Cave[x+1][y]] ||
- tab_amoeba[Cave[x][y+1]] ||
- tab_amoeba[Cave[x-1][y]])
- {
- Lboom_bug(x, y);
-
- return;
- }
-
- switch (Cave[x-1][y])
- {
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- case Zplayer:
- Cave[x][y] = Ybug_s_w;
- Next[x][y] = Xbug_2_w;
- play_element_sound(x, y, SOUND_bug, Xbug_1_s);
- return;
-
- default:
- Lbug_s(x, y);
- return;
- }
-}
-
-static void Lbug_2_s(int x, int y)
-{
- if (tab_amoeba[Cave[x][y-1]] ||
- tab_amoeba[Cave[x+1][y]] ||
- tab_amoeba[Cave[x][y+1]] ||
- tab_amoeba[Cave[x-1][y]])
- {
- Lboom_bug(x, y);
-
- return;
- }
-
- Lbug_s(x, y);
-}
-
-static void Lbug_w(int x, int y)
-{
- switch (Cave[x-1][y])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ybug_wB;
- if (Cave[x][y-1] == Xblank)
- Cave[x][y-1] = Xacid_splash_e;
- if (Cave[x-2][y-1] == Xblank)
- Cave[x-2][y-1] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Zplayer:
- Cave[x][y] = Ybug_wB;
- Cave[x-1][y] = Ybug_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xbug_1_w;
- play_element_sound(x, y, SOUND_bug, Xbug_1_w);
- return;
-
- default:
- Cave[x][y] = Ybug_w_s;
- Next[x][y] = Xbug_2_s;
- play_element_sound(x, y, SOUND_bug, Xbug_1_w);
- return;
- }
-}
-
-static void Lbug_1_w(int x, int y)
-{
- if (tab_amoeba[Cave[x][y-1]] ||
- tab_amoeba[Cave[x+1][y]] ||
- tab_amoeba[Cave[x][y+1]] ||
- tab_amoeba[Cave[x-1][y]])
- {
- Lboom_bug(x, y);
-
- return;
- }
-
- switch (Cave[x][y-1])
- {
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- case Zplayer:
- Cave[x][y] = Ybug_w_n;
- Next[x][y] = Xbug_2_n;
- play_element_sound(x, y, SOUND_bug, Xbug_1_w);
- return;
-
- default:
- Lbug_w(x, y);
- return;
- }
-}
-
-static void Lbug_2_w(int x, int y)
-{
- if (tab_amoeba[Cave[x][y-1]] ||
- tab_amoeba[Cave[x+1][y]] ||
- tab_amoeba[Cave[x][y+1]] ||
- tab_amoeba[Cave[x-1][y]])
- {
- Lboom_bug(x, y);
-
- return;
- }
-
- Lbug_w(x, y);
-}
-
-static void Ltank_n(int x, int y)
-{
- switch (Cave[x][y-1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ytank_nB;
- if (Cave[x+1][y-2] == Xblank)
- Cave[x+1][y-2] = Xacid_splash_e;
- if (Cave[x-1][y-2] == Xblank)
- Cave[x-1][y-2] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Zplayer:
- Cave[x][y] = Ytank_nB;
- Cave[x][y-1] = Ytank_n;
- Next[x][y] = Xblank;
- Next[x][y-1] = Xtank_1_n;
- play_element_sound(x, y, SOUND_tank, Xtank_1_n);
- return;
-
- default:
- Cave[x][y] = Ytank_n_e;
- Next[x][y] = Xtank_2_e;
- play_element_sound(x, y, SOUND_tank, Xtank_1_n);
- return;
- }
-}
-
-static void Ltank_1_n(int x, int y)
-{
- if (tab_amoeba[Cave[x][y-1]] ||
- tab_amoeba[Cave[x+1][y]] ||
- tab_amoeba[Cave[x][y+1]] ||
- tab_amoeba[Cave[x-1][y]])
- {
- Lboom_tank(x, y);
-
- return;
- }
-
- switch (Cave[x-1][y])
- {
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- case Zplayer:
- Cave[x][y] = Ytank_n_w;
- Next[x][y] = Xtank_2_w;
- play_element_sound(x, y, SOUND_tank, Xtank_1_n);
- return;
-
- default:
- Ltank_n(x, y);
- return;
- }
-}
-
-static void Ltank_2_n(int x, int y)
-{
- if (tab_amoeba[Cave[x][y-1]] ||
- tab_amoeba[Cave[x+1][y]] ||
- tab_amoeba[Cave[x][y+1]] ||
- tab_amoeba[Cave[x-1][y]])
- {
- Lboom_tank(x, y);
-
- return;
- }
-
- Ltank_n(x, y);
-}
-
-static void Ltank_e(int x, int y)
-{
- switch (Cave[x+1][y])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ytank_eB;
- if (Cave[x+2][y-1] == Xblank)
- Cave[x+2][y-1] = Xacid_splash_e;
- if (Cave[x][y-1] == Xblank)
- Cave[x][y-1] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Zplayer:
- Cave[x][y] = Ytank_eB;
- Cave[x+1][y] = Ytank_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xtank_1_e;
- play_element_sound(x, y, SOUND_tank, Xtank_1_e);
- return;
-
- default:
- Cave[x][y] = Ytank_e_s;
- Next[x][y] = Xtank_2_s;
- play_element_sound(x, y, SOUND_tank, Xtank_1_e);
- return;
- }
-}
-
-static void Ltank_1_e(int x, int y)
-{
- if (tab_amoeba[Cave[x][y-1]] ||
- tab_amoeba[Cave[x+1][y]] ||
- tab_amoeba[Cave[x][y+1]] ||
- tab_amoeba[Cave[x-1][y]])
- {
- Lboom_tank(x, y);
-
- return;
- }
-
- switch (Cave[x][y-1])
- {
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- case Zplayer:
- Cave[x][y] = Ytank_e_n;
- Next[x][y] = Xtank_2_n;
- play_element_sound(x, y, SOUND_tank, Xtank_1_e);
- return;
-
- default:
- Ltank_e(x, y);
- return;
- }
-}
-
-static void Ltank_2_e(int x, int y)
-{
- if (tab_amoeba[Cave[x][y-1]] ||
- tab_amoeba[Cave[x+1][y]] ||
- tab_amoeba[Cave[x][y+1]] ||
- tab_amoeba[Cave[x-1][y]])
- {
- Lboom_tank(x, y);
-
- return;
- }
-
- Ltank_e(x, y);
-}
-
-static void Ltank_s(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ytank_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Zplayer:
- Cave[x][y] = Ytank_sB;
- Cave[x][y+1] = Ytank_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xtank_1_s;
- play_element_sound(x, y, SOUND_tank, Xtank_1_s);
- return;
-
- default:
- Cave[x][y] = Ytank_s_w;
- Next[x][y] = Xtank_2_w;
- play_element_sound(x, y, SOUND_tank, Xtank_1_s);
- return;
- }
-}
-
-static void Ltank_1_s(int x, int y)
-{
- if (tab_amoeba[Cave[x][y-1]] ||
- tab_amoeba[Cave[x+1][y]] ||
- tab_amoeba[Cave[x][y+1]] ||
- tab_amoeba[Cave[x-1][y]])
- {
- Lboom_tank(x, y);
-
- return;
- }
-
- switch (Cave[x+1][y])
- {
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- case Zplayer:
- Cave[x][y] = Ytank_s_e;
- Next[x][y] = Xtank_2_e;
- play_element_sound(x, y, SOUND_tank, Xtank_1_s);
- return;
-
- default:
- Ltank_s(x, y);
- return;
- }
-}
-
-static void Ltank_2_s(int x, int y)
-{
- if (tab_amoeba[Cave[x][y-1]] ||
- tab_amoeba[Cave[x+1][y]] ||
- tab_amoeba[Cave[x][y+1]] ||
- tab_amoeba[Cave[x-1][y]])
- {
- Lboom_tank(x, y);
-
- return;
- }
-
- Ltank_s(x, y);
-}
-
-static void Ltank_w(int x, int y)
-{
- switch (Cave[x-1][y])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ytank_wB;
- if (Cave[x][y-1] == Xblank)
- Cave[x][y-1] = Xacid_splash_e;
- if (Cave[x-2][y-1] == Xblank)
- Cave[x-2][y-1] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Zplayer:
- Cave[x][y] = Ytank_wB;
- Cave[x-1][y] = Ytank_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xtank_1_w;
- play_element_sound(x, y, SOUND_tank, Xtank_1_w);
- return;
-
- default:
- Cave[x][y] = Ytank_w_n;
- Next[x][y] = Xtank_2_n;
- play_element_sound(x, y, SOUND_tank, Xtank_1_w);
- return;
- }
-}
-
-static void Ltank_1_w(int x, int y)
-{
- if (tab_amoeba[Cave[x][y-1]] ||
- tab_amoeba[Cave[x+1][y]] ||
- tab_amoeba[Cave[x][y+1]] ||
- tab_amoeba[Cave[x-1][y]])
- {
- Lboom_tank(x, y);
-
- return;
- }
-
- switch (Cave[x][y+1])
- {
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- case Zplayer:
- Cave[x][y] = Ytank_w_s;
- Next[x][y] = Xtank_2_s;
- play_element_sound(x, y, SOUND_tank, Xtank_1_w);
- return;
-
- default:
- Ltank_w(x, y);
- return;
- }
-}
-
-static void Ltank_2_w(int x, int y)
-{
- if (tab_amoeba[Cave[x][y-1]] ||
- tab_amoeba[Cave[x+1][y]] ||
- tab_amoeba[Cave[x][y+1]] ||
- tab_amoeba[Cave[x-1][y]])
- {
- Lboom_tank(x, y);
-
- return;
- }
-
- Ltank_w(x, y);
-}
-
-static void Lemerald(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yemerald_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Yemerald_sB;
- Cave[x][y+1] = Yemerald_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xemerald_fall;
- return;
-
- case Xspring:
- case Xspring_pause:
- case Xspring_e:
- case Xspring_w:
- case Xandroid:
- case Xandroid_1_n:
- case Xandroid_2_n:
- case Xandroid_1_e:
- case Xandroid_2_e:
- case Xandroid_1_s:
- case Xandroid_2_s:
- case Xandroid_1_w:
- case Xandroid_2_w:
- case Xstone:
- case Xstone_pause:
- case Xemerald:
- case Xemerald_pause:
- case Xdiamond:
- case Xdiamond_pause:
- case Xbomb:
- case Xbomb_pause:
- case Xballoon:
- case Xacid_ne:
- case Xacid_nw:
- case Xball_1:
- case Xball_2:
- case Xnut:
- case Xnut_pause:
- case Xslidewall_ns:
- case Xslidewall_ew:
- case Xwonderwall:
- case Xkey_1:
- case Xkey_2:
- case Xkey_3:
- case Xkey_4:
- case Xkey_5:
- case Xkey_6:
- case Xkey_7:
- case Xkey_8:
- case Xbumper:
- case Xswitch:
- case Xsteel_1:
- case Xsteel_2:
- case Xsteel_3:
- case Xsteel_4:
- case Xwall_1:
- case Xwall_2:
- case Xwall_3:
- case Xwall_4:
- case Xroundwall_1:
- case Xroundwall_2:
- case Xroundwall_3:
- case Xroundwall_4:
- if (RANDOM(2))
- {
- if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
- {
- Cave[x][y] = Yemerald_eB;
- Cave[x+1][y] = Yemerald_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xemerald_pause;
- return;
- }
-
- if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
- {
- Cave[x][y] = Yemerald_wB;
- Cave[x-1][y] = Yemerald_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xemerald_pause;
- return;
- }
- }
- else
- {
- if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
- {
- Cave[x][y] = Yemerald_wB;
- Cave[x-1][y] = Yemerald_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xemerald_pause;
- return;
- }
-
- if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
- {
- Cave[x][y] = Yemerald_eB;
- Cave[x+1][y] = Yemerald_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xemerald_pause;
- return;
- }
- }
-
- default:
- if (++lev.shine_cnt > 50)
- {
- lev.shine_cnt = RANDOM(8);
- Cave[x][y] = Xemerald_shine;
- }
-
- return;
- }
-}
-
-static void Lemerald_pause(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yemerald_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Yemerald_sB;
- Cave[x][y+1] = Yemerald_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xemerald_fall;
- return;
-
- default:
- Cave[x][y] = Xemerald;
- Next[x][y] = Xemerald;
- return;
- }
-}
-
-static void Lemerald_fall(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yemerald_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Zplayer:
- Cave[x][y] = Yemerald_sB;
- Cave[x][y+1] = Yemerald_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xemerald_fall;
- return;
-
- case Xwonderwall:
- if (lev.wonderwall_time)
- {
- lev.wonderwall_state = 1;
- Cave[x][y] = Yemerald_sB;
- if (tab_blank[Cave[x][y+2]])
- {
- Cave[x][y+2] = Ydiamond_s;
- Next[x][y+2] = Xdiamond_fall;
- }
-
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_wonderfall, Xwonderwall);
- return;
- }
-
- default:
- Cave[x][y] = Xemerald;
- Next[x][y] = Xemerald;
- play_element_sound(x, y, SOUND_diamond, Xemerald);
- return;
- }
-}
-
-static void Ldiamond(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ydiamond_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Ydiamond_sB;
- Cave[x][y+1] = Ydiamond_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xdiamond_fall;
- return;
-
- case Xspring:
- case Xspring_pause:
- case Xspring_e:
- case Xspring_w:
- case Xandroid:
- case Xandroid_1_n:
- case Xandroid_2_n:
- case Xandroid_1_e:
- case Xandroid_2_e:
- case Xandroid_1_s:
- case Xandroid_2_s:
- case Xandroid_1_w:
- case Xandroid_2_w:
- case Xstone:
- case Xstone_pause:
- case Xemerald:
- case Xemerald_pause:
- case Xdiamond:
- case Xdiamond_pause:
- case Xbomb:
- case Xbomb_pause:
- case Xballoon:
- case Xacid_ne:
- case Xacid_nw:
- case Xball_1:
- case Xball_2:
- case Xnut:
- case Xnut_pause:
- case Xslidewall_ns:
- case Xslidewall_ew:
- case Xwonderwall:
- case Xkey_1:
- case Xkey_2:
- case Xkey_3:
- case Xkey_4:
- case Xkey_5:
- case Xkey_6:
- case Xkey_7:
- case Xkey_8:
- case Xbumper:
- case Xswitch:
- case Xsteel_1:
- case Xsteel_2:
- case Xsteel_3:
- case Xsteel_4:
- case Xwall_1:
- case Xwall_2:
- case Xwall_3:
- case Xwall_4:
- case Xroundwall_1:
- case Xroundwall_2:
- case Xroundwall_3:
- case Xroundwall_4:
- if (RANDOM(2))
- {
- if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
- {
- Cave[x][y] = Ydiamond_eB;
- Cave[x+1][y] = Ydiamond_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xdiamond_pause;
- return;
- }
-
- if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
- {
- Cave[x][y] = Ydiamond_wB;
- Cave[x-1][y] = Ydiamond_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xdiamond_pause;
- return;
- }
- }
- else
- {
- if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
- {
- Cave[x][y] = Ydiamond_wB;
- Cave[x-1][y] = Ydiamond_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xdiamond_pause;
- return;
- }
-
- if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
- {
- Cave[x][y] = Ydiamond_eB;
- Cave[x+1][y] = Ydiamond_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xdiamond_pause;
- return;
- }
- }
-
- default:
- if (++lev.shine_cnt > 50)
- {
- lev.shine_cnt = RANDOM(8);
- Cave[x][y] = Xdiamond_shine;
- }
-
- return;
- }
-}
-
-static void Ldiamond_pause(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ydiamond_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Ydiamond_sB;
- Cave[x][y+1] = Ydiamond_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xdiamond_fall;
- return;
-
- default:
- Cave[x][y] = Xdiamond;
- Next[x][y] = Xdiamond;
- return;
- }
-}
-
-static void Ldiamond_fall(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ydiamond_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Zplayer:
- Cave[x][y] = Ydiamond_sB;
- Cave[x][y+1] = Ydiamond_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xdiamond_fall;
- return;
-
- case Xwonderwall:
- if (lev.wonderwall_time)
- {
- lev.wonderwall_state = 1;
- Cave[x][y] = Ydiamond_sB;
- if (tab_blank[Cave[x][y+2]])
- {
- Cave[x][y+2] = Ystone_s;
- Next[x][y+2] = Xstone_fall;
- }
-
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_wonderfall, Xwonderwall);
- return;
- }
-
- default:
- Cave[x][y] = Xdiamond;
- Next[x][y] = Xdiamond;
- play_element_sound(x, y, SOUND_diamond, Xdiamond);
- return;
- }
-}
-
-static void Lstone(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ystone_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
-#ifdef EM_ENGINE_USE_ADDITIONAL_ELEMENTS
- case Xfake_acid_1:
- case Xfake_acid_2:
- case Xfake_acid_3:
- case Xfake_acid_4:
- case Xfake_acid_5:
- case Xfake_acid_6:
- case Xfake_acid_7:
- case Xfake_acid_8:
-#endif
- Cave[x][y] = Ystone_sB;
- Cave[x][y+1] = Ystone_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xstone_fall;
- return;
-
- case Xsand:
- Cave[x][y] = Xsand_stonein_1;
- Cave[x][y+1] = Xsand_sandstone_1;
- Next[x][y] = Xsand_stonein_2;
- Next[x][y+1] = Xsand_sandstone_2;
- return;
-
- case Xspring:
- case Xspring_pause:
- case Xspring_e:
- case Xspring_w:
- case Xandroid:
- case Xandroid_1_n:
- case Xandroid_2_n:
- case Xandroid_1_e:
- case Xandroid_2_e:
- case Xandroid_1_s:
- case Xandroid_2_s:
- case Xandroid_1_w:
- case Xandroid_2_w:
- case Xstone:
- case Xstone_pause:
- case Xemerald:
- case Xemerald_pause:
- case Xdiamond:
- case Xdiamond_pause:
- case Xbomb:
- case Xbomb_pause:
- case Xballoon:
- case Xacid_ne:
- case Xacid_nw:
- case Xball_1:
- case Xball_2:
- case Xnut:
- case Xnut_pause:
- case Xslidewall_ns:
- case Xslidewall_ew:
- case Xkey_1:
- case Xkey_2:
- case Xkey_3:
- case Xkey_4:
- case Xkey_5:
- case Xkey_6:
- case Xkey_7:
- case Xkey_8:
- case Xbumper:
- case Xswitch:
- case Xlenses:
- case Xmagnify:
- case Xroundwall_1:
- case Xroundwall_2:
- case Xroundwall_3:
- case Xroundwall_4:
- if (RANDOM(2))
- {
- if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
- {
- Cave[x][y] = Ystone_eB;
- Cave[x+1][y] = Ystone_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xstone_pause;
- return;
- }
-
- if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
- {
- Cave[x][y] = Ystone_wB;
- Cave[x-1][y] = Ystone_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xstone_pause;
- return;
- }
- }
- else
- {
- if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
- {
- Cave[x][y] = Ystone_wB;
- Cave[x-1][y] = Ystone_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xstone_pause;
- return;
- }
-
- if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
- {
- Cave[x][y] = Ystone_eB;
- Cave[x+1][y] = Ystone_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xstone_pause;
- return;
- }
- }
- }
-}
-
-static void Lstone_pause(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ystone_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
-#ifdef EM_ENGINE_USE_ADDITIONAL_ELEMENTS
- case Xfake_acid_1:
- case Xfake_acid_2:
- case Xfake_acid_3:
- case Xfake_acid_4:
- case Xfake_acid_5:
- case Xfake_acid_6:
- case Xfake_acid_7:
- case Xfake_acid_8:
-#endif
- Cave[x][y] = Ystone_sB;
- Cave[x][y+1] = Ystone_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xstone_fall;
- return;
-
- default:
- Cave[x][y] = Xstone;
- Next[x][y] = Xstone;
- return;
- }
-}
-
-static void Lstone_fall(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ystone_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Zplayer:
-#ifdef EM_ENGINE_USE_ADDITIONAL_ELEMENTS
- case Xfake_acid_1:
- case Xfake_acid_2:
- case Xfake_acid_3:
- case Xfake_acid_4:
- case Xfake_acid_5:
- case Xfake_acid_6:
- case Xfake_acid_7:
- case Xfake_acid_8:
-#endif
- Cave[x][y] = Ystone_sB;
- Cave[x][y+1] = Ystone_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xstone_fall;
- return;
-
- case Xnut:
- case Xnut_pause:
- Cave[x][y+1] = Ynut_stone;
- Next[x][y] = Xstone;
- Next[x][y+1] = Xemerald;
- play_element_sound(x, y, SOUND_crack, Xnut);
- score += lev.nut_score;
- return;
-
- case Xbug_1_n:
- case Xbug_1_e:
- case Xbug_1_s:
- case Xbug_1_w:
- case Xbug_2_n:
- case Xbug_2_e:
- case Xbug_2_s:
- case Xbug_2_w:
- Cave[x][y] = Ystone_sB;
- Cave[x][y+1] = Ybug_stone;
- Next[x][y+1] = Znormal;
- Boom[x-1][y] = Xemerald;
- Boom[x][y] = Xemerald;
- Boom[x+1][y] = Xemerald;
- Boom[x-1][y+1] = Xemerald;
- Boom[x][y+1] = Xdiamond;
- Boom[x+1][y+1] = Xemerald;
- Boom[x-1][y+2] = Xemerald;
- Boom[x][y+2] = Xemerald;
- Boom[x+1][y+2] = Xemerald;
-#if PLAY_ELEMENT_SOUND
- play_element_sound(x, y, SOUND_boom, Xstone_fall);
-#endif
- score += lev.bug_score;
- return;
-
- case Xtank_1_n:
- case Xtank_1_e:
- case Xtank_1_s:
- case Xtank_1_w:
- case Xtank_2_n:
- case Xtank_2_e:
- case Xtank_2_s:
- case Xtank_2_w:
- Cave[x][y] = Ystone_sB;
- Cave[x][y+1] = Ytank_stone;
- Next[x][y+1] = Znormal;
- Boom[x-1][y] = Xblank;
- Boom[x][y] = Xblank;
- Boom[x+1][y] = Xblank;
- Boom[x-1][y+1] = Xblank;
- Boom[x][y+1] = Xblank;
- Boom[x+1][y+1] = Xblank;
- Boom[x-1][y+2] = Xblank;
- Boom[x][y+2] = Xblank;
- Boom[x+1][y+2] = Xblank;
-#if PLAY_ELEMENT_SOUND
- play_element_sound(x, y, SOUND_boom, Xstone_fall);
-#endif
- score += lev.tank_score;
- return;
-
- case Xspring:
- if (RANDOM(2))
- {
- switch (Cave[x+1][y+1])
- {
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xalien:
- case Xalien_pause:
- Cave[x][y+1] = Xspring_e;
- break;
-
- default:
- Cave[x][y+1] = Xspring_w;
- break;
- }
- }
- else
- {
- switch (Cave[x-1][y+1])
- {
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xalien:
- case Xalien_pause:
- Cave[x][y+1] = Xspring_w;
- break;
- default:
- Cave[x][y+1] = Xspring_e;
- break;
- }
- }
-
- Next[x][y] = Xstone;
- return;
-
- case Xeater_n:
- case Xeater_e:
- case Xeater_s:
- case Xeater_w:
- Cave[x][y] = Ystone_sB;
- Cave[x][y+1] = Yeater_stone;
- Next[x][y+1] = Znormal;
- Boom[x-1][y] = lev.eater_array[lev.eater_pos][0];
- Boom[x][y] = lev.eater_array[lev.eater_pos][1];
- Boom[x+1][y] = lev.eater_array[lev.eater_pos][2];
- Boom[x-1][y+1] = lev.eater_array[lev.eater_pos][3];
- Boom[x][y+1] = lev.eater_array[lev.eater_pos][4];
- Boom[x+1][y+1] = lev.eater_array[lev.eater_pos][5];
- Boom[x-1][y+2] = lev.eater_array[lev.eater_pos][6];
- Boom[x][y+2] = lev.eater_array[lev.eater_pos][7];
- Boom[x+1][y+2] = lev.eater_array[lev.eater_pos][8];
-#if PLAY_ELEMENT_SOUND
- play_element_sound(x, y, SOUND_boom, Xstone_fall);
-#endif
- lev.eater_pos = (lev.eater_pos + 1) & 7;
- score += lev.eater_score;
- return;
-
- case Xalien:
- case Xalien_pause:
- Cave[x][y] = Ystone_sB;
- Cave[x][y+1] = Yalien_stone;
- Next[x][y+1] = Znormal;
- Boom[x-1][y] = Xblank;
- Boom[x][y] = Xblank;
- Boom[x+1][y] = Xblank;
- Boom[x-1][y+1] = Xblank;
- Boom[x][y+1] = Xblank;
- Boom[x+1][y+1] = Xblank;
- Boom[x-1][y+2] = Xblank;
- Boom[x][y+2] = Xblank;
- Boom[x+1][y+2] = Xblank;
-#if PLAY_ELEMENT_SOUND
- play_element_sound(x, y, SOUND_boom, Xstone_fall);
-#endif
- score += lev.alien_score;
- return;
-
- case Xdiamond:
- case Xdiamond_pause:
- switch (Cave[x][y+2])
- {
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Zplayer:
- case Xbug_1_n:
- case Xbug_1_e:
- case Xbug_1_s:
- case Xbug_1_w:
- case Xbug_2_n:
- case Xbug_2_e:
- case Xbug_2_s:
- case Xbug_2_w:
- case Xtank_1_n:
- case Xtank_1_e:
- case Xtank_1_s:
- case Xtank_1_w:
- case Xtank_2_n:
- case Xtank_2_e:
- case Xtank_2_s:
- case Xtank_2_w:
- case Xspring_fall:
- case Xandroid:
- case Xandroid_1_n:
- case Xandroid_2_n:
- case Xandroid_1_e:
- case Xandroid_2_e:
- case Xandroid_1_s:
- case Xandroid_2_s:
- case Xandroid_1_w:
- case Xandroid_2_w:
- case Xstone_fall:
- case Xemerald_fall:
- case Xdiamond_fall:
- case Xbomb_fall:
- case Xacid_s:
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- case Xnut_fall:
- case Xplant:
- case Yplant:
- Next[x][y] = Xstone;
- play_element_sound(x, y, SOUND_stone, Xstone);
- return;
- }
-
- Cave[x][y] = Ystone_sB;
- Cave[x][y+1] = Ydiamond_stone;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xstone_pause;
- play_element_sound(x, y, SOUND_squash, Xdiamond);
- return;
-
- case Xbomb:
- case Xbomb_pause:
- Cave[x][y+1] = Ybomb_blank;
- Next[x][y+1] = Znormal;
- Boom[x-1][y] = Xblank;
- Boom[x][y] = Xblank;
- Boom[x+1][y] = Xblank;
- Boom[x-1][y+1] = Xblank;
- Boom[x][y+1] = Xblank;
- Boom[x+1][y+1] = Xblank;
- Boom[x-1][y+2] = Xblank;
- Boom[x][y+2] = Xblank;
- Boom[x+1][y+2] = Xblank;
-#if PLAY_ELEMENT_SOUND
- play_element_sound(x, y, SOUND_boom, Xstone_fall);
-#endif
- return;
-
- case Xwonderwall:
- if (lev.wonderwall_time)
- {
- lev.wonderwall_state = 1;
- Cave[x][y] = Ystone_sB;
-
- if (tab_blank[Cave[x][y+2]])
- {
- Cave[x][y+2] = Yemerald_s;
- Next[x][y+2] = Xemerald_fall;
- }
-
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_wonderfall, Xwonderwall);
- return;
- }
-
- default:
- Cave[x][y] = Xstone;
- Next[x][y] = Xstone;
- play_element_sound(x, y, SOUND_stone, Xstone);
- return;
- }
-}
-
-static void Lbomb(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ybomb_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Ybomb_sB;
- Cave[x][y+1] = Ybomb_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xbomb_fall;
- return;
-
- case Xspring:
- case Xspring_pause:
- case Xspring_e:
- case Xspring_w:
- case Xandroid:
- case Xandroid_1_n:
- case Xandroid_2_n:
- case Xandroid_1_e:
- case Xandroid_2_e:
- case Xandroid_1_s:
- case Xandroid_2_s:
- case Xandroid_1_w:
- case Xandroid_2_w:
- case Xstone:
- case Xstone_pause:
- case Xemerald:
- case Xemerald_pause:
- case Xdiamond:
- case Xdiamond_pause:
- case Xbomb:
- case Xbomb_pause:
- case Xballoon:
- case Xacid_ne:
- case Xacid_nw:
- case Xball_1:
- case Xball_2:
- case Xnut:
- case Xnut_pause:
- case Xslidewall_ns:
- case Xslidewall_ew:
- case Xkey_1:
- case Xkey_2:
- case Xkey_3:
- case Xkey_4:
- case Xkey_5:
- case Xkey_6:
- case Xkey_7:
- case Xkey_8:
- case Xbumper:
- case Xswitch:
- case Xroundwall_1:
- case Xroundwall_2:
- case Xroundwall_3:
- case Xroundwall_4:
- if (RANDOM(2))
- {
- if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
- {
- Cave[x][y] = Ybomb_eB;
- Cave[x+1][y] = Ybomb_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xbomb_pause;
- return;
- }
-
- if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
- {
- Cave[x][y] = Ybomb_wB;
- Cave[x-1][y] = Ybomb_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xbomb_pause;
- return;
- }
- }
- else
- {
- if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
- {
- Cave[x][y] = Ybomb_wB;
- Cave[x-1][y] = Ybomb_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xbomb_pause;
- return;
- }
-
- if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
- {
- Cave[x][y] = Ybomb_eB;
- Cave[x+1][y] = Ybomb_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xbomb_pause;
- return;
- }
- }
- }
-}
-
-static void Lbomb_pause(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ybomb_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Ybomb_sB;
- Cave[x][y+1] = Ybomb_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xbomb_fall;
- return;
-
- default:
- Cave[x][y] = Xbomb;
- Next[x][y] = Xbomb;
- return;
- }
-}
-
-static void Lbomb_fall(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ybomb_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Ybomb_sB;
- Cave[x][y+1] = Ybomb_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xbomb_fall;
- return;
-
- default:
- Cave[x][y] = Ybomb_blank;
- Next[x][y] = Znormal;
- Boom[x-1][y-1] = Xblank;
- Boom[x][y-1] = Xblank;
- Boom[x+1][y-1] = Xblank;
- Boom[x-1][y] = Xblank;
- Boom[x][y] = Xblank;
- Boom[x+1][y] = Xblank;
- Boom[x-1][y+1] = Xblank;
- Boom[x][y+1] = Xblank;
- Boom[x+1][y+1] = Xblank;
-#if PLAY_ELEMENT_SOUND
- play_element_sound(x, y, SOUND_boom, Xbomb_fall);
-#endif
- return;
- }
-}
-
-static void Lnut(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ynut_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Ynut_sB;
- Cave[x][y+1] = Ynut_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xnut_fall;
- return;
-
- case Xspring:
- case Xspring_pause:
- case Xspring_e:
- case Xspring_w:
- case Xandroid:
- case Xandroid_1_n:
- case Xandroid_2_n:
- case Xandroid_1_e:
- case Xandroid_2_e:
- case Xandroid_1_s:
- case Xandroid_2_s:
- case Xandroid_1_w:
- case Xandroid_2_w:
- case Xstone:
- case Xstone_pause:
- case Xemerald:
- case Xemerald_pause:
- case Xdiamond:
- case Xdiamond_pause:
- case Xbomb:
- case Xbomb_pause:
- case Xballoon:
- case Xacid_ne:
- case Xacid_nw:
- case Xball_1:
- case Xball_2:
- case Xnut:
- case Xnut_pause:
- case Xslidewall_ns:
- case Xslidewall_ew:
- case Xkey_1:
- case Xkey_2:
- case Xkey_3:
- case Xkey_4:
- case Xkey_5:
- case Xkey_6:
- case Xkey_7:
- case Xkey_8:
- case Xbumper:
- case Xswitch:
- case Xroundwall_1:
- case Xroundwall_2:
- case Xroundwall_3:
- case Xroundwall_4:
- if (RANDOM(2))
- {
- if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
- {
- Cave[x][y] = Ynut_eB;
- Cave[x+1][y] = Ynut_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xnut_pause;
- return;
- }
-
- if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
- {
- Cave[x][y] = Ynut_wB;
- Cave[x-1][y] = Ynut_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xnut_pause;
- return;
- }
- }
- else
- {
- if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
- {
- Cave[x][y] = Ynut_wB;
- Cave[x-1][y] = Ynut_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xnut_pause;
- return;
- }
-
- if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
- {
- Cave[x][y] = Ynut_eB;
- Cave[x+1][y] = Ynut_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xnut_pause;
- return;
- }
- }
- }
-}
-
-static void Lnut_pause(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ynut_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Ynut_sB;
- Cave[x][y+1] = Ynut_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xnut_fall;
- return;
-
- default:
- Cave[x][y] = Xnut;
- Next[x][y] = Xnut;
- return;
- }
-}
-
-static void Lnut_fall(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ynut_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Zplayer:
- Cave[x][y] = Ynut_sB;
- Cave[x][y+1] = Ynut_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xnut_fall;
- return;
-
- default:
- Cave[x][y] = Xnut;
- Next[x][y] = Xnut;
- play_element_sound(x, y, SOUND_nut, Xnut);
- return;
- }
-}
-
-static void Lspring(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yspring_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- Cave[x][y] = Yspring_sB;
- Cave[x][y+1] = Yspring_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xspring_fall;
- return;
-
- case Xspring:
- case Xspring_pause:
- case Xspring_e:
- case Xspring_w:
- case Xandroid:
- case Xandroid_1_n:
- case Xandroid_2_n:
- case Xandroid_1_e:
- case Xandroid_2_e:
- case Xandroid_1_s:
- case Xandroid_2_s:
- case Xandroid_1_w:
- case Xandroid_2_w:
- case Xstone:
- case Xstone_pause:
- case Xemerald:
- case Xemerald_pause:
- case Xdiamond:
- case Xdiamond_pause:
- case Xbomb:
- case Xbomb_pause:
- case Xballoon:
- case Xacid_ne:
- case Xacid_nw:
- case Xball_1:
- case Xball_2:
- case Xnut:
- case Xnut_pause:
- case Xslidewall_ns:
- case Xslidewall_ew:
- case Xkey_1:
- case Xkey_2:
- case Xkey_3:
- case Xkey_4:
- case Xkey_5:
- case Xkey_6:
- case Xkey_7:
- case Xkey_8:
- case Xbumper:
- case Xswitch:
- case Xroundwall_1:
- case Xroundwall_2:
- case Xroundwall_3:
- case Xroundwall_4:
- if (RANDOM(2))
- {
- if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
- {
- Cave[x][y] = Yspring_eB;
- Cave[x+1][y] = Yspring_e;
- if (Cave[x][y+1] == Xbumper)
- Cave[x][y+1] = XbumperB;
- Next[x][y] = Xblank;
-
-#ifdef SPRING_ROLL
- Next[x+1][y] = Xspring_e;
-#else
- Next[x+1][y] = Xspring_pause;
-#endif
- return;
- }
-
- if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
- {
- Cave[x][y] = Yspring_wB;
- Cave[x-1][y] = Yspring_w;
- if (Cave[x][y+1] == Xbumper)
- Cave[x][y+1] = XbumperB;
- Next[x][y] = Xblank;
-
-#ifdef SPRING_ROLL
- Next[x-1][y] = Xspring_w;
-#else
- Next[x-1][y] = Xspring_pause;
-#endif
- return;
- }
- }
- else
- {
- if (tab_blank[Cave[x-1][y]] && tab_acid[Cave[x-1][y+1]])
- {
- Cave[x][y] = Yspring_wB;
- Cave[x-1][y] = Yspring_w;
- if (Cave[x][y+1] == Xbumper)
- Cave[x][y+1] = XbumperB;
- Next[x][y] = Xblank;
-
-#ifdef SPRING_ROLL
- Next[x-1][y] = Xspring_w;
-#else
- Next[x-1][y] = Xspring_pause;
-#endif
- return;
- }
-
- if (tab_blank[Cave[x+1][y]] && tab_acid[Cave[x+1][y+1]])
- {
- Cave[x][y] = Yspring_eB;
- Cave[x+1][y] = Yspring_e;
- if (Cave[x][y+1] == Xbumper)
- Cave[x][y+1] = XbumperB;
- Next[x][y] = Xblank;
-
-#ifdef SPRING_ROLL
- Next[x+1][y] = Xspring_e;
-#else
- Next[x+1][y] = Xspring_pause;
-#endif
- return;
- }
- }
- }
-}
-
-static void Lspring_pause(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yspring_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Yspring_sB;
- Cave[x][y+1] = Yspring_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xspring_fall;
- return;
-
- default:
- Cave[x][y] = Xspring;
- Next[x][y] = Xspring;
- return;
- }
-}
-
-static void Lspring_e(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yspring_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Yspring_sB;
- Cave[x][y+1] = Yspring_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xspring_fall;
- return;
-
- case Xbumper:
- Cave[x][y+1] = XbumperB;
- }
-
- switch (Cave[x+1][y])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yspring_eB;
- if (Cave[x+2][y-1] == Xblank)
- Cave[x+2][y-1] = Xacid_splash_e;
- if (Cave[x][y-1] == Xblank)
- Cave[x][y-1] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Yalien_nB:
- case Yalien_eB:
- case Yalien_sB:
- case Yalien_wB:
- Cave[x][y] = Yspring_eB;
- Cave[x+1][y] = Yspring_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xspring_e;
- return;
-
- case Xalien:
- case Xalien_pause:
- case Yalien_n:
- case Yalien_e:
- case Yalien_s:
- case Yalien_w:
- Cave[x][y] = Yspring_alien_eB;
- Cave[x+1][y] = Yspring_alien_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xspring_e;
- play_element_sound(x, y, SOUND_slurp, Xalien);
- score += lev.slurp_score;
- return;
-
- case Xbumper:
- case XbumperB:
- Cave[x+1][y] = XbumperB;
- Next[x][y] = Xspring_w;
- play_element_sound(x, y, SOUND_spring, Xspring);
- return;
-
- default:
- Cave[x][y] = Xspring;
- Next[x][y] = Xspring;
- play_element_sound(x, y, SOUND_spring, Xspring);
- return;
- }
-}
-
-static void Lspring_w(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yspring_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Yspring_sB;
- Cave[x][y+1] = Yspring_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xspring_fall;
- return;
-
- case Xbumper:
- Cave[x][y+1] = XbumperB;
- }
-
- switch (Cave[x-1][y])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yspring_wB;
- if (Cave[x][y-1] == Xblank)
- Cave[x][y-1] = Xacid_splash_e;
- if (Cave[x-2][y-1] == Xblank)
- Cave[x-2][y-1] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Yalien_nB:
- case Yalien_eB:
- case Yalien_sB:
- case Yalien_wB:
- Cave[x][y] = Yspring_wB;
- Cave[x-1][y] = Yspring_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xspring_w;
- return;
-
- case Xalien:
- case Xalien_pause:
- case Yalien_n:
- case Yalien_e:
- case Yalien_s:
- case Yalien_w:
- Cave[x][y] = Yspring_alien_wB;
- Cave[x-1][y] = Yspring_alien_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xspring_w;
- play_element_sound(x, y, SOUND_slurp, Xalien);
- score += lev.slurp_score;
- return;
-
- case Xbumper:
- case XbumperB:
- Cave[x-1][y] = XbumperB;
- Next[x][y] = Xspring_e;
- play_element_sound(x, y, SOUND_spring, Xspring);
- return;
-
- default:
- Cave[x][y] = Xspring;
- Next[x][y] = Xspring;
- play_element_sound(x, y, SOUND_spring, Xspring);
- return;
- }
-}
-
-static void Lspring_fall(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yspring_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Zplayer:
- Cave[x][y] = Yspring_sB;
- Cave[x][y+1] = Yspring_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xspring_fall;
- return;
-
- case Xbomb:
- case Xbomb_pause:
- Cave[x][y+1] = Ybomb_blank;
- Next[x][y+1] = Znormal;
- Boom[x-1][y] = Xblank;
- Boom[x][y] = Xblank;
- Boom[x+1][y] = Xblank;
- Boom[x-1][y+1] = Xblank;
- Boom[x][y+1] = Xblank;
- Boom[x+1][y+1] = Xblank;
- Boom[x-1][y+2] = Xblank;
- Boom[x][y+2] = Xblank;
- Boom[x+1][y+2] = Xblank;
-#if PLAY_ELEMENT_SOUND
- play_element_sound(x, y, SOUND_boom, Xspring_fall);
-#endif
- return;
-
- case Xbug_1_n:
- case Xbug_1_e:
- case Xbug_1_s:
- case Xbug_1_w:
- case Xbug_2_n:
- case Xbug_2_e:
- case Xbug_2_s:
- case Xbug_2_w:
- Cave[x][y] = Yspring_sB;
- Cave[x][y+1] = Ybug_spring;
- Next[x][y+1] = Znormal;
- Boom[x-1][y] = Xemerald;
- Boom[x][y] = Xemerald;
- Boom[x+1][y] = Xemerald;
- Boom[x-1][y+1] = Xemerald;
- Boom[x][y+1] = Xdiamond;
- Boom[x+1][y+1] = Xemerald;
- Boom[x-1][y+2] = Xemerald;
- Boom[x][y+2] = Xemerald;
- Boom[x+1][y+2] = Xemerald;
-#if PLAY_ELEMENT_SOUND
- play_element_sound(x, y, SOUND_boom, Xspring_fall);
-#endif
- score += lev.bug_score;
- return;
-
- case Xtank_1_n:
- case Xtank_1_e:
- case Xtank_1_s:
- case Xtank_1_w:
- case Xtank_2_n:
- case Xtank_2_e:
- case Xtank_2_s:
- case Xtank_2_w:
- Cave[x][y] = Yspring_sB;
- Cave[x][y+1] = Ytank_spring;
- Next[x][y+1] = Znormal;
- Boom[x-1][y] = Xblank;
- Boom[x][y] = Xblank;
- Boom[x+1][y] = Xblank;
- Boom[x-1][y+1] = Xblank;
- Boom[x][y+1] = Xblank;
- Boom[x+1][y+1] = Xblank;
- Boom[x-1][y+2] = Xblank;
- Boom[x][y+2] = Xblank;
- Boom[x+1][y+2] = Xblank;
-#if PLAY_ELEMENT_SOUND
- play_element_sound(x, y, SOUND_boom, Xspring_fall);
-#endif
- score += lev.tank_score;
- return;
-
- case Xeater_n:
- case Xeater_e:
- case Xeater_s:
- case Xeater_w:
- Cave[x][y] = Yspring_sB;
- Cave[x][y+1] = Yeater_spring;
- Next[x][y+1] = Znormal;
- Boom[x-1][y] = lev.eater_array[lev.eater_pos][0];
- Boom[x][y] = lev.eater_array[lev.eater_pos][1];
- Boom[x+1][y] = lev.eater_array[lev.eater_pos][2];
- Boom[x-1][y+1] = lev.eater_array[lev.eater_pos][3];
- Boom[x][y+1] = lev.eater_array[lev.eater_pos][4];
- Boom[x+1][y+1] = lev.eater_array[lev.eater_pos][5];
- Boom[x-1][y+2] = lev.eater_array[lev.eater_pos][6];
- Boom[x][y+2] = lev.eater_array[lev.eater_pos][7];
- Boom[x+1][y+2] = lev.eater_array[lev.eater_pos][8];
-#if PLAY_ELEMENT_SOUND
- play_element_sound(x, y, SOUND_boom, Xspring_fall);
-#endif
- lev.eater_pos = (lev.eater_pos + 1) & 7;
- score += lev.eater_score;
- return;
-
- case Xalien:
- case Xalien_pause:
- Cave[x][y] = Yspring_sB;
- Cave[x][y+1] = Yalien_spring;
- Next[x][y+1] = Znormal;
- Boom[x-1][y] = Xblank;
- Boom[x][y] = Xblank;
- Boom[x+1][y] = Xblank;
- Boom[x-1][y+1] = Xblank;
- Boom[x][y+1] = Xblank;
- Boom[x+1][y+1] = Xblank;
- Boom[x-1][y+2] = Xblank;
- Boom[x][y+2] = Xblank;
- Boom[x+1][y+2] = Xblank;
-#if PLAY_ELEMENT_SOUND
- play_element_sound(x, y, SOUND_boom, Xspring_fall);
-#endif
- score += lev.alien_score;
- return;
-
- default:
- Cave[x][y] = Xspring;
- Next[x][y] = Xspring;
- play_element_sound(x, y, SOUND_spring, Xspring);
- return;
- }
-}
-
-static void Lpush_emerald_e(int x, int y)
-{
- switch (Cave[x+1][y])
- {
- case Zborder:
- case Znormal:
- case Zdynamite:
- case Xboom_bug:
- case Xboom_bomb:
- case Xboom_android:
- case Xboom_1:
- case Zplayer:
- Cave[x][y] = Xemerald;
- Next[x][y] = Xemerald;
- return;
-
- default:
- Cave[x][y] = Yemerald_eB;
- Cave[x+1][y] = Yemerald_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xemerald_pause;
- return;
- }
-}
-
-static void Lpush_emerald_w(int x, int y)
-{
- switch (Cave[x-1][y])
- {
- case Zborder:
- case Znormal:
- case Zdynamite:
- case Xboom_bug:
- case Xboom_bomb:
- case Xboom_android:
- case Xboom_1:
- case Zplayer:
- Cave[x][y] = Xemerald;
- Next[x][y] = Xemerald;
- return;
-
- default:
- Cave[x][y] = Yemerald_wB;
- Cave[x-1][y] = Yemerald_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xemerald_pause;
- return;
- }
-}
-
-static void Lpush_diamond_e(int x, int y)
-{
- switch (Cave[x+1][y])
- {
- case Zborder:
- case Znormal:
- case Zdynamite:
- case Xboom_bug:
- case Xboom_bomb:
- case Xboom_android:
- case Xboom_1:
- case Zplayer:
- Cave[x][y] = Xdiamond;
- Next[x][y] = Xdiamond;
- return;
-
- default:
- Cave[x][y] = Ydiamond_eB;
- Cave[x+1][y] = Ydiamond_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xdiamond_pause;
- return;
- }
-}
-
-static void Lpush_diamond_w(int x, int y)
-{
- switch (Cave[x-1][y])
- {
- case Zborder:
- case Znormal:
- case Zdynamite:
- case Xboom_bug:
- case Xboom_bomb:
- case Xboom_android:
- case Xboom_1:
- case Zplayer:
- Cave[x][y] = Xdiamond;
- Next[x][y] = Xdiamond;
- return;
-
- default:
- Cave[x][y] = Ydiamond_wB;
- Cave[x-1][y] = Ydiamond_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xdiamond_pause;
- return;
- }
-}
-
-static void Lpush_stone_e(int x, int y)
-{
- switch (Cave[x+1][y])
- {
- case Zborder:
- case Znormal:
- case Zdynamite:
- case Xboom_bug:
- case Xboom_bomb:
- case Xboom_android:
- case Xboom_1:
- case Zplayer:
- Cave[x][y] = Xstone;
- Next[x][y] = Xstone;
- return;
-
- default:
- Cave[x][y] = Ystone_eB;
- Cave[x+1][y] = Ystone_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xstone_pause;
- return;
- }
-}
-
-static void Lpush_stone_w(int x, int y)
-{
- switch (Cave[x-1][y])
- {
- case Zborder:
- case Znormal:
- case Zdynamite:
- case Xboom_bug:
- case Xboom_bomb:
- case Xboom_android:
- case Xboom_1:
- case Zplayer:
- Cave[x][y] = Xstone;
- Next[x][y] = Xstone;
- return;
-
- default:
- Cave[x][y] = Ystone_wB;
- Cave[x-1][y] = Ystone_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xstone_pause;
- return;
- }
-}
-
-static void Lpush_bomb_e(int x, int y)
-{
- switch (Cave[x+1][y])
- {
- case Zborder:
- case Znormal:
- case Zdynamite:
- case Xboom_bug:
- case Xboom_bomb:
- case Xboom_android:
- case Xboom_1:
- case Zplayer:
- Cave[x][y] = Xbomb;
- Next[x][y] = Xbomb;
- return;
-
- default:
- Cave[x][y] = Ybomb_eB;
- Cave[x+1][y] = Ybomb_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xbomb_pause;
- return;
- }
-}
-
-static void Lpush_bomb_w(int x, int y)
-{
- switch (Cave[x-1][y])
- {
- case Zborder:
- case Znormal:
- case Zdynamite:
- case Xboom_bug:
- case Xboom_bomb:
- case Xboom_android:
- case Xboom_1:
- case Zplayer:
- Cave[x][y] = Xbomb;
- Next[x][y] = Xbomb;
- return;
-
- default:
- Cave[x][y] = Ybomb_wB;
- Cave[x-1][y] = Ybomb_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xbomb_pause;
- return;
- }
-}
-
-static void Lpush_nut_e(int x, int y)
-{
- switch (Cave[x+1][y])
- {
- case Zborder:
- case Znormal:
- case Zdynamite:
- case Xboom_bug:
- case Xboom_bomb:
- case Xboom_android:
- case Xboom_1:
- case Zplayer:
- Cave[x][y] = Xnut;
- Next[x][y] = Xnut;
- return;
-
- default:
- Cave[x][y] = Ynut_eB;
- Cave[x+1][y] = Ynut_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xnut_pause;
- return;
- }
-}
-
-static void Lpush_nut_w(int x, int y)
-{
- switch (Cave[x-1][y])
- {
- case Zborder:
- case Znormal:
- case Zdynamite:
- case Xboom_bug:
- case Xboom_bomb:
- case Xboom_android:
- case Xboom_1:
- case Zplayer:
- Cave[x][y] = Xnut;
- Next[x][y] = Xnut;
- return;
-
- default:
- Cave[x][y] = Ynut_wB;
- Cave[x-1][y] = Ynut_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xnut_pause;
- return;
- }
-}
-
-static void Lpush_spring_e(int x, int y)
-{
- switch (Cave[x+1][y])
- {
- case Zborder:
- case Znormal:
- case Zdynamite:
- case Xboom_bug:
- case Xboom_bomb:
- case Xboom_android:
- case Xboom_1:
- case Zplayer:
- Cave[x][y] = Xspring;
- Next[x][y] = Xspring;
- return;
-
- default:
- Cave[x][y] = Yspring_eB;
- Cave[x+1][y] = Yspring_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xspring_e;
- return;
- }
-}
-
-static void Lpush_spring_w(int x, int y)
-{
- switch (Cave[x-1][y])
- {
- case Zborder:
- case Znormal:
- case Zdynamite:
- case Xboom_bug:
- case Xboom_bomb:
- case Xboom_android:
- case Xboom_1:
- case Zplayer:
- Cave[x][y] = Xspring;
- Next[x][y] = Xspring;
- return;
-
- default:
- Cave[x][y] = Yspring_wB;
- Cave[x-1][y] = Yspring_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xspring_w;
- return;
- }
-}
-
-static void Ldynamite_1(int x, int y)
-{
- play_element_sound(x, y, SOUND_tick, Xdynamite_1);
- Next[x][y] = Xdynamite_2;
-}
-
-static void Ldynamite_2(int x, int y)
-{
- play_element_sound(x, y, SOUND_tick, Xdynamite_2);
- Next[x][y] = Xdynamite_3;
-}
-
-static void Ldynamite_3(int x, int y)
-{
- play_element_sound(x, y, SOUND_tick, Xdynamite_3);
- Next[x][y] = Xdynamite_4;
-}
-
-static void Ldynamite_4(int x, int y)
-{
- play_element_sound(x, y, SOUND_tick, Xdynamite_4);
- Next[x][y] = Zdynamite;
- Boom[x-1][y-1] = Xblank;
- Boom[x][y-1] = Xblank;
- Boom[x+1][y-1] = Xblank;
- Boom[x-1][y] = Xblank;
- Boom[x][y] = Xblank;
- Boom[x+1][y] = Xblank;
- Boom[x-1][y+1] = Xblank;
- Boom[x][y+1] = Xblank;
- Boom[x+1][y+1] = Xblank;
-}
-
-static void Lfake_door_1(int x, int y)
-{
- if (lev.magnify_cnt)
- Cave[x][y] = Xdoor_1;
-}
-
-static void Lfake_door_2(int x, int y)
-{
- if (lev.magnify_cnt)
- Cave[x][y] = Xdoor_2;
-}
-
-static void Lfake_door_3(int x, int y)
-{
- if (lev.magnify_cnt)
- Cave[x][y] = Xdoor_3;
-}
-
-static void Lfake_door_4(int x, int y)
-{
- if (lev.magnify_cnt)
- Cave[x][y] = Xdoor_4;
-}
-
-static void Lfake_door_5(int x, int y)
-{
- if (lev.magnify_cnt)
- Cave[x][y] = Xdoor_5;
-}
-
-static void Lfake_door_6(int x, int y)
-{
- if (lev.magnify_cnt)
- Cave[x][y] = Xdoor_6;
-}
-
-static void Lfake_door_7(int x, int y)
-{
- if (lev.magnify_cnt)
- Cave[x][y] = Xdoor_7;
-}
-
-static void Lfake_door_8(int x, int y)
-{
- if (lev.magnify_cnt)
- Cave[x][y] = Xdoor_8;
-}
-
-static void Lballoon(int x, int y)
-{
- if (lev.wind_cnt == 0)
- return;
-
- switch (lev.wind_direction)
- {
- case 0: /* north */
- switch (Cave[x][y-1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yballoon_nB;
- if (Cave[x+1][y-2] == Xblank)
- Cave[x+1][y-2] = Xacid_splash_e;
- if (Cave[x-1][y-2] == Xblank)
- Cave[x-1][y-2] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Yballoon_nB;
- Cave[x][y-1] = Yballoon_n;
- Next[x][y] = Xblank;
- Next[x][y-1] = Xballoon;
- return;
- }
- break;
-
- case 1: /* east */
- switch (Cave[x+1][y])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yballoon_eB;
- if (Cave[x+2][y-1] == Xblank)
- Cave[x+2][y-1] = Xacid_splash_e;
- if (Cave[x][y-1] == Xblank)
- Cave[x][y-1] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Yballoon_eB;
- Cave[x+1][y] = Yballoon_e;
- Next[x][y] = Xblank;
- Next[x+1][y] = Xballoon;
- return;
- }
- break;
-
- case 2: /* south */
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yballoon_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Yballoon_sB;
- Cave[x][y+1] = Yballoon_s;
- Next[x][y] = Xblank;
- Next[x][y+1] = Xballoon;
- return;
- }
- break;
-
- case 3: /* west */
- switch (Cave[x-1][y])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Yballoon_wB;
- if (Cave[x][y-1] == Xblank)
- Cave[x][y-1] = Xacid_splash_e;
- if (Cave[x-2][y-1] == Xblank)
- Cave[x-2][y-1] = Xacid_splash_w;
- Next[x][y] = Xblank;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Yballoon_wB;
- Cave[x-1][y] = Yballoon_w;
- Next[x][y] = Xblank;
- Next[x-1][y] = Xballoon;
- return;
- }
- break;
- }
-}
-
-static void Lball_common(int x, int y)
-{
- play_element_sound(x, y, SOUND_ball, Xball_1);
-
- if (lev.ball_random)
- {
- switch (RANDOM(8))
- {
- case 0:
- if (lev.ball_array[lev.ball_pos][0] != Xblank &&
- tab_blank[Cave[x-1][y-1]])
- {
- Cave[x-1][y-1] = Yball_blank;
- Next[x-1][y-1] = lev.ball_array[lev.ball_pos][0];
- }
- break;
-
- case 1:
- if (lev.ball_array[lev.ball_pos][1] != Xblank &&
- tab_blank[Cave[x][y-1]])
- {
- Cave[x][y-1] = Yball_blank;
- Next[x][y-1] = lev.ball_array[lev.ball_pos][1];
- }
- break;
-
- case 2:
- if (lev.ball_array[lev.ball_pos][2] != Xblank &&
- tab_blank[Cave[x+1][y-1]])
- {
- Cave[x+1][y-1] = Yball_blank;
- Next[x+1][y-1] = lev.ball_array[lev.ball_pos][2];
- }
- break;
-
- case 3:
- if (lev.ball_array[lev.ball_pos][3] != Xblank &&
- tab_blank[Cave[x-1][y]])
- {
- Cave[x-1][y] = Yball_blank;
- Next[x-1][y] = lev.ball_array[lev.ball_pos][3];
- }
- break;
-
- case 4:
- if (lev.ball_array[lev.ball_pos][4] != Xblank &&
- tab_blank[Cave[x+1][y]])
- {
- Cave[x+1][y] = Yball_blank;
- Next[x+1][y] = lev.ball_array[lev.ball_pos][4];
- }
- break;
-
- case 5:
- if (lev.ball_array[lev.ball_pos][5] != Xblank &&
- tab_blank[Cave[x-1][y+1]])
- {
- Cave[x-1][y+1] = Yball_blank;
- Next[x-1][y+1] = lev.ball_array[lev.ball_pos][5];
- }
- break;
-
- case 6:
- if (lev.ball_array[lev.ball_pos][6] != Xblank &&
- tab_blank[Cave[x][y+1]])
- {
- Cave[x][y+1] = Yball_blank;
- Next[x][y+1] = lev.ball_array[lev.ball_pos][6];
- }
- break;
-
- case 7:
- if (lev.ball_array[lev.ball_pos][7] != Xblank &&
- tab_blank[Cave[x+1][y+1]])
- {
- Cave[x+1][y+1] = Yball_blank;
- Next[x+1][y+1] = lev.ball_array[lev.ball_pos][7];
- }
- break;
- }
- }
- else
- {
- if (lev.ball_array[lev.ball_pos][0] != Xblank &&
- tab_blank[Cave[x-1][y-1]])
- {
- Cave[x-1][y-1] = Yball_blank;
- Next[x-1][y-1] = lev.ball_array[lev.ball_pos][0];
- }
-
- if (lev.ball_array[lev.ball_pos][1] != Xblank &&
- tab_blank[Cave[x][y-1]])
- {
- Cave[x][y-1] = Yball_blank;
- Next[x][y-1] = lev.ball_array[lev.ball_pos][1];
- }
-
- if (lev.ball_array[lev.ball_pos][2] != Xblank &&
- tab_blank[Cave[x+1][y-1]])
- {
- Cave[x+1][y-1] = Yball_blank;
- Next[x+1][y-1] = lev.ball_array[lev.ball_pos][2];
- }
-
- if (lev.ball_array[lev.ball_pos][3] != Xblank &&
- tab_blank[Cave[x-1][y]])
- {
- Cave[x-1][y] = Yball_blank;
- Next[x-1][y] = lev.ball_array[lev.ball_pos][3];
- }
-
- if (lev.ball_array[lev.ball_pos][4] != Xblank &&
- tab_blank[Cave[x+1][y]])
- {
- Cave[x+1][y] = Yball_blank;
- Next[x+1][y] = lev.ball_array[lev.ball_pos][4];
- }
-
- if (lev.ball_array[lev.ball_pos][5] != Xblank &&
- tab_blank[Cave[x-1][y+1]])
- {
- Cave[x-1][y+1] = Yball_blank;
- Next[x-1][y+1] = lev.ball_array[lev.ball_pos][5];
- }
-
- if (lev.ball_array[lev.ball_pos][6] != Xblank &&
- tab_blank[Cave[x][y+1]])
- {
- Cave[x][y+1] = Yball_blank;
- Next[x][y+1] = lev.ball_array[lev.ball_pos][6];
- }
-
- if (lev.ball_array[lev.ball_pos][7] != Xblank &&
- tab_blank[Cave[x+1][y+1]])
- {
- Cave[x+1][y+1] = Yball_blank;
- Next[x+1][y+1] = lev.ball_array[lev.ball_pos][7];
- }
- }
-
- lev.ball_pos = (lev.ball_pos + 1) % lev.num_ball_arrays;
-}
-
-static void Lball_1(int x, int y)
-{
- if (lev.ball_state == 0)
- return;
-
- Cave[x][y] = Yball_1;
- Next[x][y] = Xball_2;
- if (lev.ball_cnt)
- return;
-
- Lball_common(x, y);
-}
-
-static void Lball_2(int x, int y)
-{
- if (lev.ball_state == 0)
- return;
-
- Cave[x][y] = Yball_2;
- Next[x][y] = Xball_1;
- if (lev.ball_cnt)
- return;
-
- Lball_common(x, y);
-}
-
-static void Ldrip(int x, int y)
-{
- Next[x][y] = Xdrip_fall;
-}
-
-static void Ldrip_fall(int x, int y)
-{
- int temp;
-
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Ydrip_1_sB;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xdrip_stretchB;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xplant:
- case Yplant:
- case Zplayer:
- Cave[x][y] = Ydrip_1_sB;
- Cave[x][y+1] = Ydrip_1_s;
- Next[x][y] = Xdrip_stretchB;
- Next[x][y+1] = Xdrip_stretch;
- return;
-
- default:
- switch (RANDOM(8))
- {
- case 0: temp = Xamoeba_1; break;
- case 1: temp = Xamoeba_2; break;
- case 2: temp = Xamoeba_3; break;
- case 3: temp = Xamoeba_4; break;
- case 4: temp = Xamoeba_5; break;
- case 5: temp = Xamoeba_6; break;
- case 6: temp = Xamoeba_7; break;
- case 7: temp = Xamoeba_8; break;
- }
-
- Cave[x][y] = temp;
- Next[x][y] = temp;
- play_element_sound(x, y, SOUND_drip, Xdrip_fall);
- return;
- }
-}
-
-static void Ldrip_stretch(int x, int y)
-{
- Cave[x][y] = Ydrip_2_s;
- Next[x][y] = Xdrip_fall;
-}
-
-static void Ldrip_stretchB(int x, int y)
-{
- Cave[x][y] = Ydrip_2_sB;
- Next[x][y] = Xblank;
-}
-
-static void Lwonderwall(int x, int y)
-{
- if (lev.wonderwall_time && lev.wonderwall_state)
- {
- Cave[x][y] = XwonderwallB;
- play_element_sound(x, y, SOUND_wonder, Xwonderwall);
- }
-}
-
-static void Lwheel(int x, int y)
-{
- if (lev.wheel_cnt && x == lev.wheel_x && y == lev.wheel_y)
- Cave[x][y] = XwheelB;
-}
-
-static void Lswitch(int x, int y)
-{
- if (lev.ball_state)
- Cave[x][y] = XswitchB;
-}
-
-static void Lfake_blank(int x, int y)
-{
- if (lev.lenses_cnt)
- Cave[x][y] = Xfake_blankB;
-}
-
-static void Lfake_grass(int x, int y)
-{
- if (lev.magnify_cnt)
- Cave[x][y] = Xfake_grassB;
-}
-
-static void Lfake_amoeba(int x, int y)
-{
- if (lev.lenses_cnt)
- Cave[x][y] = Xfake_amoebaB;
-}
-
-static void Lsand_stone(int x, int y)
-{
- switch (Cave[x][y+1])
- {
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- Cave[x][y] = Xsand_stonesand_quickout_1;
- if (Cave[x+1][y] == Xblank)
- Cave[x+1][y] = Xacid_splash_e;
- if (Cave[x-1][y] == Xblank)
- Cave[x-1][y] = Xacid_splash_w;
- Next[x][y] = Xsand_stonesand_quickout_2;
- play_element_sound(x, y, SOUND_acid, Xacid_1);
- return;
-
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- Cave[x][y] = Xsand_stonesand_quickout_1;
- Cave[x][y+1] = Xsand_stoneout_1;
- Next[x][y] = Xsand_stonesand_quickout_2;
- Next[x][y+1] = Xsand_stoneout_2;
- return;
-
- case Xsand:
- Cave[x][y] = Xsand_stonesand_1;
- Cave[x][y+1] = Xsand_sandstone_1;
- Next[x][y] = Xsand_stonesand_2;
- Next[x][y+1] = Xsand_sandstone_2;
- return;
- }
-}
-
-static void Lsand_stonein_1(int x, int y)
-{
- Next[x][y] = Xsand_stonein_2;
-}
-
-static void Lsand_stonein_2(int x, int y)
-{
- Next[x][y] = Xsand_stonein_3;
-}
-
-static void Lsand_stonein_3(int x, int y)
-{
- Next[x][y] = Xsand_stonein_4;
-}
-
-static void Lsand_stonein_4(int x, int y)
-{
- Next[x][y] = Xblank;
-}
-
-static void Lsand_sandstone_1(int x, int y)
-{
- Next[x][y] = Xsand_sandstone_2;
-}
-
-static void Lsand_sandstone_2(int x, int y)
-{
- Next[x][y] = Xsand_sandstone_3;
-}
-
-static void Lsand_sandstone_3(int x, int y)
-{
- Next[x][y] = Xsand_sandstone_4;
-}
-
-static void Lsand_sandstone_4(int x, int y)
-{
- Next[x][y] = Xsand_stone;
-}
-
-static void Lsand_stonesand_1(int x, int y)
-{
- Next[x][y] = Xsand_stonesand_2;
-}
-
-static void Lsand_stonesand_2(int x, int y)
-{
- Next[x][y] = Xsand_stonesand_3;
-}
-
-static void Lsand_stonesand_3(int x, int y)
-{
- Next[x][y] = Xsand_stonesand_4;
-}
-
-static void Lsand_stonesand_4(int x, int y)
-{
- Next[x][y] = Xsand;
-}
-
-static void Lsand_stoneout_1(int x, int y)
-{
- Next[x][y] = Xsand_stoneout_2;
-}
-
-static void Lsand_stoneout_2(int x, int y)
-{
- Next[x][y] = Xstone_fall;
-}
-
-#ifdef EM_ENGINE_USE_ADDITIONAL_ELEMENTS
-static void Lsand_stonesand_quickout_1(int x, int y)
-{
- Next[x][y] = Xsand_stonesand_quickout_2;
-}
-
-static void Lsand_stonesand_quickout_2(int x, int y)
-{
- Next[x][y] = Xsand;
-}
-#endif
-
-static void Lslidewall_ns(int x, int y)
-{
- if (tab_blank[Cave[x][y-1]])
- {
- Cave[x][y-1] = Yslidewall_ns_blank;
- Next[x][y-1] = Xslidewall_ns;
- play_element_sound(x, y, SOUND_slidewall, Xslidewall_ns);
- }
-
- if (tab_blank[Cave[x][y+1]])
- {
- Cave[x][y+1] = Yslidewall_ns_blank;
- Next[x][y+1] = Xslidewall_ns;
- play_element_sound(x, y, SOUND_slidewall, Xslidewall_ns);
- }
-}
-
-static void Lslidewall_ew(int x, int y)
-{
- if (tab_blank[Cave[x+1][y]])
- {
- Cave[x+1][y] = Yslidewall_ew_blank;
- Next[x+1][y] = Xslidewall_ew;
- play_element_sound(x, y, SOUND_slidewall, Xslidewall_ew);
- }
-
- if (tab_blank[Cave[x-1][y]])
- {
- Cave[x-1][y] = Yslidewall_ew_blank;
- Next[x-1][y] = Xslidewall_ew;
- play_element_sound(x, y, SOUND_slidewall, Xslidewall_ew);
- }
-}
-
-static void Lexit(int x, int y)
-{
- if (lev.required > 0)
- return;
-
- switch (RANDOM(64) / 21)
- {
- case 0:
- Cave[x][y] = Xexit_1;
- Next[x][y] = Xexit_2;
- break;
-
- case 1:
- Cave[x][y] = Xexit_2;
- Next[x][y] = Xexit_3;
- break;
-
- default:
- Cave[x][y] = Xexit_3;
- Next[x][y] = Xexit_1;
- break;
- }
-
- play_element_sound(x, y, SOUND_exit_open, Xexit);
-}
-
-static void Lexit_1(int x, int y)
-{
- Next[x][y] = Xexit_2;
-}
-
-static void Lexit_2(int x, int y)
-{
- Next[x][y] = Xexit_3;
-}
-
-static void Lexit_3(int x, int y)
-{
- Next[x][y] = Xexit_1;
-}
-
-static void Lpause(int x, int y)
-{
- Next[x][y] = Xblank;
-}
-
-static void Lboom_1(int x, int y)
-{
- Next[x][y] = Xboom_2;
-#if !PLAY_ELEMENT_SOUND
- if (x != lev.exit_x && y != lev.exit_y)
- play_sound(x, y, SOUND_boom);
- else
- lev.exit_x = lev.exit_y = -1;
-#endif
-}
-
-static void Lboom_2(int x, int y)
-{
- Next[x][y] = Boom[x][y];
-}
-
-static void Lboom_android(int x, int y)
-{
-#if PLAY_ELEMENT_SOUND
- play_element_sound(x, y, SOUND_boom, Xandroid);
-#endif
-
- Lboom_1(x, y);
-}
-
-static void handle_tile(int x, int y)
-{
- switch (Cave[x][y])
- {
- case Xacid_1: Lacid_1(x, y); break;
- case Xacid_2: Lacid_2(x, y); break;
- case Xacid_3: Lacid_3(x, y); break;
- case Xacid_4: Lacid_4(x, y); break;
- case Xacid_5: Lacid_5(x, y); break;
- case Xacid_6: Lacid_6(x, y); break;
- case Xacid_7: Lacid_7(x, y); break;
- case Xacid_8: Lacid_8(x, y); break;
-
-#ifdef EM_ENGINE_USE_ADDITIONAL_ELEMENTS
- case Xfake_acid_1: Lfake_acid_1(x, y); break;
- case Xfake_acid_2: Lfake_acid_2(x, y); break;
- case Xfake_acid_3: Lfake_acid_3(x, y); break;
- case Xfake_acid_4: Lfake_acid_4(x, y); break;
- case Xfake_acid_5: Lfake_acid_5(x, y); break;
- case Xfake_acid_6: Lfake_acid_6(x, y); break;
- case Xfake_acid_7: Lfake_acid_7(x, y); break;
- case Xfake_acid_8: Lfake_acid_8(x, y); break;
-#endif
-
- case Xandroid: Landroid(x, y); break;
- case Xandroid_1_n: Landroid_1_n(x, y); break;
- case Xandroid_2_n: Landroid_2_n(x, y); break;
- case Xandroid_1_e: Landroid_1_e(x, y); break;
- case Xandroid_2_e: Landroid_2_e(x, y); break;
- case Xandroid_1_s: Landroid_1_s(x, y); break;
- case Xandroid_2_s: Landroid_2_s(x, y); break;
- case Xandroid_1_w: Landroid_1_w(x, y); break;
- case Xandroid_2_w: Landroid_2_w(x, y); break;
-
- case Xeater_n: Leater_n(x, y); break;
- case Xeater_e: Leater_e(x, y); break;
- case Xeater_s: Leater_s(x, y); break;
- case Xeater_w: Leater_w(x, y); break;
-
- case Xalien: Lalien(x, y); break;
- case Xalien_pause: Lalien_pause(x, y); break;
-
- case Xbug_1_n: Lbug_1_n(x, y); break;
- case Xbug_2_n: Lbug_2_n(x, y); break;
- case Xbug_1_e: Lbug_1_e(x, y); break;
- case Xbug_2_e: Lbug_2_e(x, y); break;
- case Xbug_1_s: Lbug_1_s(x, y); break;
- case Xbug_2_s: Lbug_2_s(x, y); break;
- case Xbug_1_w: Lbug_1_w(x, y); break;
- case Xbug_2_w: Lbug_2_w(x, y); break;
-
- case Xtank_1_n: Ltank_1_n(x, y); break;
- case Xtank_2_n: Ltank_2_n(x, y); break;
- case Xtank_1_e: Ltank_1_e(x, y); break;
- case Xtank_2_e: Ltank_2_e(x, y); break;
- case Xtank_1_s: Ltank_1_s(x, y); break;
- case Xtank_2_s: Ltank_2_s(x, y); break;
- case Xtank_1_w: Ltank_1_w(x, y); break;
- case Xtank_2_w: Ltank_2_w(x, y); break;
-
- case Xemerald: Lemerald(x, y); break;
- case Xemerald_pause: Lemerald_pause(x, y); break;
- case Xemerald_fall: Lemerald_fall(x, y); break;
-
- case Xdiamond: Ldiamond(x, y); break;
- case Xdiamond_pause: Ldiamond_pause(x, y); break;
- case Xdiamond_fall: Ldiamond_fall(x, y); break;
-
- case Xstone: Lstone(x, y); break;
- case Xstone_pause: Lstone_pause(x, y); break;
- case Xstone_fall: Lstone_fall(x, y); break;
-
- case Xbomb: Lbomb(x, y); break;
- case Xbomb_pause: Lbomb_pause(x, y); break;
- case Xbomb_fall: Lbomb_fall(x, y); break;
-
- case Xnut: Lnut(x, y); break;
- case Xnut_pause: Lnut_pause(x, y); break;
- case Xnut_fall: Lnut_fall(x, y); break;
-
- case Xspring: Lspring(x, y); break;
- case Xspring_pause: Lspring_pause(x, y); break;
- case Xspring_e: Lspring_e(x, y); break;
- case Xspring_w: Lspring_w(x, y); break;
- case Xspring_fall: Lspring_fall(x, y); break;
-
- case Xpush_emerald_e: Lpush_emerald_e(x, y); break;
- case Xpush_emerald_w: Lpush_emerald_w(x, y); break;
- case Xpush_diamond_e: Lpush_diamond_e(x, y); break;
- case Xpush_diamond_w: Lpush_diamond_w(x, y); break;
- case Xpush_stone_e: Lpush_stone_e(x, y); break;
- case Xpush_stone_w: Lpush_stone_w(x, y); break;
- case Xpush_bomb_e: Lpush_bomb_e(x, y); break;
- case Xpush_bomb_w: Lpush_bomb_w(x, y); break;
- case Xpush_nut_e: Lpush_nut_e(x, y); break;
- case Xpush_nut_w: Lpush_nut_w(x, y); break;
- case Xpush_spring_e: Lpush_spring_e(x, y); break;
- case Xpush_spring_w: Lpush_spring_w(x, y); break;
-
- case Xdynamite_1: Ldynamite_1(x, y); break;
- case Xdynamite_2: Ldynamite_2(x, y); break;
- case Xdynamite_3: Ldynamite_3(x, y); break;
- case Xdynamite_4: Ldynamite_4(x, y); break;
-
- case Xfake_door_1: Lfake_door_1(x, y); break;
- case Xfake_door_2: Lfake_door_2(x, y); break;
- case Xfake_door_3: Lfake_door_3(x, y); break;
- case Xfake_door_4: Lfake_door_4(x, y); break;
- case Xfake_door_5: Lfake_door_5(x, y); break;
- case Xfake_door_6: Lfake_door_6(x, y); break;
- case Xfake_door_7: Lfake_door_7(x, y); break;
- case Xfake_door_8: Lfake_door_8(x, y); break;
-
- case Xballoon: Lballoon(x, y); break;
-
- case Xball_1: Lball_1(x, y); break;
- case Xball_2: Lball_2(x, y); break;
-
- case Xdrip: Ldrip(x, y); break;
- case Xdrip_fall: Ldrip_fall(x, y); break;
- case Xdrip_stretch: Ldrip_stretch(x, y); break;
- case Xdrip_stretchB: Ldrip_stretchB(x, y); break;
-
- case Xwonderwall: Lwonderwall(x, y); break;
-
- case Xwheel: Lwheel(x, y); break;
-
- case Xswitch: Lswitch(x, y); break;
-
- case Xfake_blank: Lfake_blank(x, y); break;
- case Xfake_grass: Lfake_grass(x, y); break;
- case Xfake_amoeba: Lfake_amoeba(x, y); break;
-
- case Xsand_stone: Lsand_stone(x, y); break;
- case Xsand_stonein_1: Lsand_stonein_1(x, y); break;
- case Xsand_stonein_2: Lsand_stonein_2(x, y); break;
- case Xsand_stonein_3: Lsand_stonein_3(x, y); break;
- case Xsand_stonein_4: Lsand_stonein_4(x, y); break;
- case Xsand_sandstone_1: Lsand_sandstone_1(x, y); break;
- case Xsand_sandstone_2: Lsand_sandstone_2(x, y); break;
- case Xsand_sandstone_3: Lsand_sandstone_3(x, y); break;
- case Xsand_sandstone_4: Lsand_sandstone_4(x, y); break;
- case Xsand_stonesand_1: Lsand_stonesand_1(x, y); break;
- case Xsand_stonesand_2: Lsand_stonesand_2(x, y); break;
- case Xsand_stonesand_3: Lsand_stonesand_3(x, y); break;
- case Xsand_stonesand_4: Lsand_stonesand_4(x, y); break;
- case Xsand_stoneout_1: Lsand_stoneout_1(x, y); break;
- case Xsand_stoneout_2: Lsand_stoneout_2(x, y); break;
-#ifdef EM_ENGINE_USE_ADDITIONAL_ELEMENTS
- case Xsand_stonesand_quickout_1: Lsand_stonesand_quickout_1(x, y); break;
- case Xsand_stonesand_quickout_2: Lsand_stonesand_quickout_2(x, y); break;
-#endif
-
- case Xslidewall_ns: Lslidewall_ns(x, y); break;
- case Xslidewall_ew: Lslidewall_ew(x, y); break;
-
- case Xexit: Lexit(x, y); break;
- case Xexit_1: Lexit_1(x, y); break;
- case Xexit_2: Lexit_2(x, y); break;
- case Xexit_3: Lexit_3(x, y); break;
-
- case Xpause: Lpause(x, y); break;
-
- case Xboom_bug: Lboom_bug(x, y); break;
- case Xboom_bomb: Lboom_tank(x, y); break;
- case Xboom_android: Lboom_android(x, y); break;
- case Xboom_1: Lboom_1(x, y); break;
- case Xboom_2: Lboom_2(x, y); break;
- }
-}
-
-void synchro_2(void)
-{
- int x, y;
-
- seed = RandomEM;
- score = 0;
-
- for (y = 1; y < HEIGHT - 1; y++)
- for (x = 0; x < WIDTH; x++)
- handle_tile(x, y);
-
- if (ply[0].alive || ply[1].alive || ply[2].alive || ply[3].alive)
- lev.score += score; /* only add a score if someone is alive */
- else
- game_em.game_over = TRUE;
-
- RandomEM = seed;
-
- /* triple buffering */
- void *temp = Cave;
- Cave = Next;
- Next = Draw;
- Draw = temp;
-}
+++ /dev/null
-/* third part of synchro.
- *
- * handle global elements.
- *
- * this should be spread over the frames for reduced cpu load.
- */
-
-#include "main_em.h"
-
-
-void synchro_3(void)
-{
- int x;
- int y;
- int count;
- unsigned int random;
-
- /* update variables */
-
- if (lev.score > 9999)
- lev.score = 9999;
-
- if (lev.android_move_cnt-- == 0)
- lev.android_move_cnt = lev.android_move_time;
- if (lev.android_clone_cnt-- == 0)
- lev.android_clone_cnt = lev.android_clone_time;
- if (lev.ball_state)
- if (lev.ball_cnt-- == 0)
- lev.ball_cnt = lev.ball_time;
- if (lev.lenses_cnt)
- lev.lenses_cnt--;
- if (lev.magnify_cnt)
- lev.magnify_cnt--;
- if (lev.wheel_cnt)
- lev.wheel_cnt--;
- if (lev.wind_cnt)
- lev.wind_cnt--;
- if (lev.wonderwall_time && lev.wonderwall_state)
- lev.wonderwall_time--;
-
- if (lev.wheel_cnt)
- play_element_sound(lev.wheel_x, lev.wheel_y, SOUND_wheel, Xwheel);
-
- /* grow amoeba */
-
- random = RandomEM;
-
- for (count = lev.amoeba_time; count--;)
- {
- x = (random >> 10) % (WIDTH - 2);
- y = (random >> 20) % (HEIGHT - 2);
- switch (Cave[x][y])
- {
- case Xblank:
- case Xacid_splash_e:
- case Xacid_splash_w:
- case Xgrass:
- case Xdirt:
- case Xsand:
- case Xplant:
- case Yplant:
- if (tab_amoeba[Cave[x][y-1]] ||
- tab_amoeba[Cave[x+1][y]] ||
- tab_amoeba[Cave[x][y+1]] ||
- tab_amoeba[Cave[x-1][y]])
- Cave[x][y] = Xdrip;
- }
-
- random = random * 129 + 1;
- }
-
- RandomEM = random;
-
- /* handle explosions */
-
- for (y = 1; y < HEIGHT - 1; y++)
- for (x = 1; x < WIDTH - 1; x++)
- {
- switch (Cave[x][y])
- {
- case Znormal:
- Cave[x][y] = Xboom_1;
- Cave[x][y-1] = tab_explode_normal[Cave[x][y-1]];
- Cave[x-1][y] = tab_explode_normal[Cave[x-1][y]];
- Cave[x+1][y] = tab_explode_normal[Cave[x+1][y]];
- Cave[x][y+1] = tab_explode_normal[Cave[x][y+1]];
- Cave[x-1][y-1] = tab_explode_normal[Cave[x-1][y-1]];
- Cave[x+1][y-1] = tab_explode_normal[Cave[x+1][y-1]];
- Cave[x-1][y+1] = tab_explode_normal[Cave[x-1][y+1]];
- Cave[x+1][y+1] = tab_explode_normal[Cave[x+1][y+1]];
- break;
-
- case Zdynamite:
- Cave[x][y] = Xboom_1;
- Cave[x][y-1] = tab_explode_dynamite[Cave[x][y-1]];
- Cave[x-1][y] = tab_explode_dynamite[Cave[x-1][y]];
- Cave[x+1][y] = tab_explode_dynamite[Cave[x+1][y]];
- Cave[x][y+1] = tab_explode_dynamite[Cave[x][y+1]];
- Cave[x-1][y-1] = tab_explode_dynamite[Cave[x-1][y-1]];
- Cave[x+1][y-1] = tab_explode_dynamite[Cave[x+1][y-1]];
- Cave[x-1][y+1] = tab_explode_dynamite[Cave[x-1][y+1]];
- Cave[x+1][y+1] = tab_explode_dynamite[Cave[x+1][y+1]];
- break;
- }
- }
-
- /* triple buffering */
-
- for (y = 0; y < HEIGHT; y++)
- for (x = 0; x < WIDTH; x++)
- Next[x][y] = Cave[x][y];
-}
projects / rocksndiamonds.git / commitdiff