+++ /dev/null
-/* first part of synchro.
- *
- * game logic for players.
- *
- * large switch statement for tiles the player interacts with.
- */
-
-#include "tile.h"
-#include "level.h"
-#include "sample.h"
-#include "display.h"
-
-
-static void player(struct PLAYER *);
-static int test(struct PLAYER *);
-static void die(struct PLAYER *);
-
-void synchro_1(void)
-{
- /* must test for death and actually kill separately */
- char ply1_kill = test(&ply1);
- char ply2_kill = test(&ply2);
-
- if (ply1.alive && ply1_kill)
- die(&ply1);
- if (ply2.alive && ply2_kill)
- die(&ply2);
-
-#if 0
- ply1.alive = 1; /* debugging */
-#endif
-
- ply1.oldx = ply1.x;
- ply1.oldy = ply1.y;
- ply1.anim = SPR_still;
- ply2.oldx = ply2.x;
- ply2.oldy = ply2.y;
- ply2.anim = SPR_still;
-
- if (Random & 256)
- {
- if (ply1.alive) player(&ply1);
- if (ply2.alive) player(&ply2);
- }
- else
- {
- if (ply2.alive) player(&ply2);
- if (ply1.alive) player(&ply1);
- }
-
- if (ply1.alive)
- {
- if (Cave[ply1.oldy][ply1.oldx] == Zplayer)
- {
- Cave[ply1.oldy][ply1.oldx] = Xblank;
- Next[ply1.oldy][ply1.oldx] = Xblank;
- }
-
- if (Cave[ply1.y][ply1.x] == Xblank)
- {
- Cave[ply1.y][ply1.x] = Zplayer;
- Next[ply1.y][ply1.x] = Zplayer;
- }
- }
-
- if (ply2.alive)
- {
- if (Cave[ply2.oldy][ply2.oldx] == Zplayer)
- {
- Cave[ply2.oldy][ply2.oldx] = Xblank;
- Next[ply2.oldy][ply2.oldx] = Xblank;
- }
-
- if (Cave[ply2.y][ply2.x] == Xblank)
- {
- Cave[ply2.y][ply2.x] = Zplayer;
- Next[ply2.y][ply2.x] = Zplayer;
- }
- }
-}
-
-static int test(struct PLAYER *ply)
-{
- register unsigned int x = ply->x;
- register unsigned int y = ply->y;
-
- if (!ply->alive)
- return 0;
-
- if (lev.time_initial > 0 && lev.time == 0)
- return 1;
-
- switch(Cave[y-1][x])
- {
- case Xbug_n:
- case Xbug_e:
- case Xbug_s:
- case Xbug_w:
- case Xbug_gon:
- case Xbug_goe:
- case Xbug_gos:
- case Xbug_gow:
- case Xtank_n:
- case Xtank_e:
- case Xtank_s:
- case Xtank_w:
- case Xtank_gon:
- case Xtank_goe:
- case Xtank_gos:
- case Xtank_gow:
- return 1;
- }
-
- switch(Cave[y][x+1])
- {
- case Xbug_n:
- case Xbug_e:
- case Xbug_s:
- case Xbug_w:
- case Xbug_gon:
- case Xbug_goe:
- case Xbug_gos:
- case Xbug_gow:
- case Xtank_n:
- case Xtank_e:
- case Xtank_s:
- case Xtank_w:
- case Xtank_gon:
- case Xtank_goe:
- case Xtank_gos:
- case Xtank_gow:
- return 1;
- }
-
- switch(Cave[y+1][x])
- {
- case Xbug_n:
- case Xbug_e:
- case Xbug_s:
- case Xbug_w:
- case Xbug_gon:
- case Xbug_goe:
- case Xbug_gos:
- case Xbug_gow:
- case Xtank_n:
- case Xtank_e:
- case Xtank_s:
- case Xtank_w:
- case Xtank_gon:
- case Xtank_goe:
- case Xtank_gos:
- case Xtank_gow:
- return 1;
- }
-
- switch(Cave[y][x-1])
- {
- case Xbug_n:
- case Xbug_e:
- case Xbug_s:
- case Xbug_w:
- case Xbug_gon:
- case Xbug_goe:
- case Xbug_gos:
- case Xbug_gow:
- case Xtank_n:
- case Xtank_e:
- case Xtank_s:
- case Xtank_w:
- case Xtank_gon:
- case Xtank_goe:
- case Xtank_gos:
- case Xtank_gow:
- return 1;
- }
-
- switch(Cave[y][x])
- {
- case Xblank:
- case Yacid_splash_eB:
- case Yacid_splash_wB:
- case Zplayer:
- case Xdynamite_1:
- case Xdynamite_2:
- case Xdynamite_3:
- case Xdynamite_4:
- return 0;
- }
-
- return 1;
-}
-
-static void die(struct PLAYER *ply)
-{
- register unsigned int x = ply->x;
- register unsigned int y = ply->y;
-
- ply->alive = 0;
-
- switch(Cave[y-1][x])
- {
- case Xbug_n:
- case Xbug_e:
- case Xbug_s:
- case Xbug_w:
- case Xbug_gon:
- case Xbug_goe:
- case Xbug_gos:
- case Xbug_gow:
- Cave[y-1][x] = Xboom_bug;
-#if 0
- play_element_sound(x, y, SAMPLE_boom, Zplayer);
-#endif
- break;
-
- case Xtank_n:
- case Xtank_e:
- case Xtank_s:
- case Xtank_w:
- case Xtank_gon:
- case Xtank_goe:
- case Xtank_gos:
- case Xtank_gow:
- Cave[y-1][x] = Xboom_bomb;
-#if 0
- play_element_sound(x, y, SAMPLE_boom, Zplayer);
-#endif
- break;
- }
-
- switch(Cave[y][x+1])
- {
- case Xbug_n:
- case Xbug_e:
- case Xbug_s:
- case Xbug_w:
- case Xbug_gon:
- case Xbug_goe:
- case Xbug_gos:
- case Xbug_gow:
- Cave[y][x+1] = Xboom_bug;
-#if 0
- play_element_sound(x, y, SAMPLE_boom, Zplayer);
-#endif
- break;
-
- case Xtank_n:
- case Xtank_e:
- case Xtank_s:
- case Xtank_w:
- case Xtank_gon:
- case Xtank_goe:
- case Xtank_gos:
- case Xtank_gow:
- Cave[y][x+1] = Xboom_bomb;
-#if 0
- play_element_sound(x, y, SAMPLE_boom, Zplayer);
-#endif
- break;
- }
-
- switch(Cave[y+1][x])
- {
- case Xbug_n:
- case Xbug_e:
- case Xbug_s:
- case Xbug_w:
- case Xbug_gon:
- case Xbug_goe:
- case Xbug_gos:
- case Xbug_gow:
- Cave[y+1][x] = Xboom_bug;
-#if 0
- play_element_sound(x, y, SAMPLE_boom, Zplayer);
-#endif
- break;
-
- case Xtank_n:
- case Xtank_e:
- case Xtank_s:
- case Xtank_w:
- case Xtank_gon:
- case Xtank_goe:
- case Xtank_gos:
- case Xtank_gow:
- Cave[y+1][x] = Xboom_bomb;
-#if 0
- play_element_sound(x, y, SAMPLE_boom, Zplayer);
-#endif
- break;
- }
-
- switch(Cave[y][x-1])
- {
- case Xbug_n:
- case Xbug_e:
- case Xbug_s:
- case Xbug_w:
- case Xbug_gon:
- case Xbug_goe:
- case Xbug_gos:
- case Xbug_gow:
- Cave[y][x-1] = Xboom_bug;
-#if 0
- play_element_sound(x, y, SAMPLE_boom, Zplayer);
-#endif
- break;
-
- case Xtank_n:
- case Xtank_e:
- case Xtank_s:
- case Xtank_w:
- case Xtank_gon:
- case Xtank_goe:
- case Xtank_gos:
- case Xtank_gow:
- Cave[y][x-1] = Xboom_bomb;
-#if 0
- play_element_sound(x, y, SAMPLE_boom, Zplayer);
-#endif
- break;
- }
-
- switch(Cave[y][x])
- {
- case Xexit_1:
- case Xexit_2:
- case Xexit_3:
- play_element_sound(x, y, SAMPLE_exit, Xexit_1);
- break;
-
- default:
- play_element_sound(x, y, SAMPLE_die, Zplayer);
- break;
- }
-
- Cave[y][x] = Xboom_1;
- Boom[y][x] = Xblank;
-}
-
-static void player(struct PLAYER *ply)
-{
- register unsigned int x = ply->x;
- register unsigned int y = ply->y;
- unsigned int anim = 0; /* initialized to make compilers happy */
- int dx = 0, dy = 0;
-
- if ((ply->joy_spin = !ply->joy_spin))
- {
- if (ply->joy_n)
- {
- y--;
- dy = -1;
- anim = 0;
- /* north */
- }
- else if (ply->joy_e)
- {
- x++;
- dx = 1;
- anim = 1;
- /* east */
- }
- else if (ply->joy_s)
- {
- y++;
- dy = 1;
- anim = 2;
- /* south */
- }
- else if (ply->joy_w)
- {
- x--;
- dx = -1;
- anim = 3;
- /* west */
- }
- }
- else
- {
- if (ply->joy_w)
- {
- x--;
- dx = -1;
- anim = 3;
- /* west */
- }
- else if (ply->joy_s)
- {
- y++;
- dy = 1;
- anim = 2;
- /* south */
- }
- else if (ply->joy_e)
- {
- x++;
- dx = 1;
- anim = 1;
- /* east */
- }
- else if (ply->joy_n)
- {
- y--;
- dy = -1;
- anim = 0;
- /* north */
- }
- }
-
- if (dx == 0 && dy == 0)
- {
- ply->joy_stick = 0;
-
- if (ply->joy_fire)
- {
- if (++ply->dynamite_cnt == 5 && ply->dynamite)
- {
- Cave[y][x] = Xdynamite_1;
- play_element_sound(x, y, SAMPLE_dynamite, Xdynamite_1);
- ply->dynamite--;
- }
- }
- else
- {
- ply->dynamite_cnt = 0;
- }
-
- Random += 7; /* bit more random if we dont 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 */
-
- if (ply->joy_fire == 0)
- {
- int element = Cave[y][x];
-
- switch(Cave[y][x])
- {
- /* fire is released */
- case Xblank:
- case Yacid_splash_eB:
- case Yacid_splash_wB:
- Cave[y][x] = Zplayer;
- Next[y][x] = Zplayer;
- play_element_sound(x, y, SAMPLE_blank, Xblank);
- ply->anim = SPR_walk + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xboom_android:
- case Xboom_1:
- case Xbug_n:
- case Xbug_e:
- case Xbug_s:
- case Xbug_w:
- case Xbug_gon:
- case Xbug_goe:
- case Xbug_gos:
- case Xbug_gow:
- case Xtank_n:
- case Xtank_e:
- case Xtank_s:
- case Xtank_w:
- case Xtank_gon:
- case Xtank_goe:
- case Xtank_gos:
- case Xtank_gow:
- case Xacid_1:
- case Xacid_2:
- case Xacid_3:
- case Xacid_4:
- case Xacid_5:
- case Xacid_6:
- case Xacid_7:
- case Xacid_8:
- ply->anim = SPR_walk + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xgrass:
- Cave[y][x] = (dy ? (dy < 0 ? Ygrass_nB : Ygrass_sB) :
- (dx > 0 ? Ygrass_eB : Ygrass_wB));
- Next[y][x] = Zplayer;
- play_element_sound(x, y, SAMPLE_dirt, Xgrass);
- ply->anim = SPR_walk + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xdirt:
- Cave[y][x] = (dy ? (dy < 0 ? Ydirt_nB : Ydirt_sB) :
- (dx > 0 ? Ydirt_eB : Ydirt_wB));
- Next[y][x] = Zplayer;
- play_element_sound(x, y, SAMPLE_dirt, Xdirt);
- ply->anim = SPR_walk + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xdiamond:
- case Xdiamond_pause:
- Cave[y][x] = Ydiamond_eat;
- Next[y][x] = Zplayer;
- play_element_sound(x, y, SAMPLE_collect, element);
- lev.score += lev.diamond_score;
- lev.required = lev.required < 3 ? 0 : lev.required - 3;
- ply->anim = SPR_walk + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xemerald:
- case Xemerald_pause:
- Cave[y][x] = Yemerald_eat;
- Next[y][x] = Zplayer;
- play_element_sound(x, y, SAMPLE_collect, element);
- lev.score += lev.emerald_score;
- lev.required = lev.required < 1 ? 0 : lev.required - 1;
- ply->anim = SPR_walk + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xdynamite:
- Cave[y][x] = Ydynamite_eat;
- Next[y][x] = Zplayer;
- play_element_sound(x, y, SAMPLE_collect, element);
- lev.score += lev.dynamite_score;
- ply->dynamite = ply->dynamite > 9998 ? 9999 : ply->dynamite + 1;
- ply->anim = SPR_walk + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xkey_1:
- ply->keys |= 0x01;
- goto key_walk;
-
- case Xkey_2:
- ply->keys |= 0x02;
- goto key_walk;
-
- case Xkey_3:
- ply->keys |= 0x04;
- goto key_walk;
-
- case Xkey_4:
- ply->keys |= 0x08;
- goto key_walk;
-
- case Xkey_5:
- ply->keys |= 0x10;
- goto key_walk;
-
- case Xkey_6:
- ply->keys |= 0x20;
- goto key_walk;
-
- case Xkey_7:
- ply->keys |= 0x40;
- goto key_walk;
-
- case Xkey_8:
- ply->keys |= 0x80;
- goto key_walk;
-
- key_walk:
-
- Cave[y][x] = Yball_eat;
- Next[y][x] = Zplayer;
- play_element_sound(x, y, SAMPLE_collect, element);
- lev.score += lev.key_score;
- ply->anim = SPR_walk + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xlenses:
- Cave[y][x] = Yball_eat;
- Next[y][x] = Zplayer;
- play_element_sound(x, y, SAMPLE_collect, element);
- lev.score += lev.lenses_score;
- lev.lenses_cnt = lev.lenses_time;
- ply->anim = SPR_walk + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xmagnify:
- Cave[y][x] = Yball_eat;
- Next[y][x] = Zplayer;
- play_element_sound(x, y, SAMPLE_collect, element);
- lev.score += lev.magnify_score;
- lev.magnify_cnt = lev.magnify_time;
- ply->anim = SPR_walk + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xstone:
- if (dy)
- break;
-
- switch(Cave[y][x+dx])
- {
- 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[y-1][x+dx+1] == Xblank)
- Cave[y-1][x+dx+1] = Yacid_splash_eB;
- if (Cave[y-1][x+dx-1] == Xblank)
- Cave[y-1][x+dx-1] = Yacid_splash_wB;
- play_sound(x, y, SAMPLE_acid);
- goto stone_walk;
-
- case Xblank:
- case Yacid_splash_eB:
- case Yacid_splash_wB:
- Cave[y][x+dx] = dx > 0 ? Ystone_e : Ystone_w;
- Next[y][x+dx] = Xstone_pause;
-
- stone_walk:
-
- Cave[y][x] = dx > 0 ? Ystone_eB : Ystone_wB;
- Next[y][x] = Zplayer;
- play_element_sound(x, y, SAMPLE_roll, Xstone);
- ply->x = x;
- }
-
- ply->anim = SPR_push + anim;
- break;
-
- case Xbomb:
- if (dy)
- break;
-
- switch(Cave[y][x+dx])
- {
- 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[y-1][x+dx+1] == Xblank)
- Cave[y-1][x+dx+1] = Yacid_splash_eB;
- if (Cave[y-1][x+dx-1] == Xblank)
- Cave[y-1][x+dx-1] = Yacid_splash_wB;
- play_sound(x, y, SAMPLE_acid);
- goto bomb_walk;
-
- case Xblank:
- case Yacid_splash_eB:
- case Yacid_splash_wB:
- Cave[y][x+dx] = dx > 0 ? Ybomb_e : Ybomb_w;
- Next[y][x+dx] = Xbomb_pause;
-
- bomb_walk:
-
- Cave[y][x] = dx > 0 ? Ybomb_eB : Ybomb_wB;
- Next[y][x] = Zplayer;
- play_element_sound(x, y, SAMPLE_roll, Xbomb);
- ply->x = x;
- }
-
- ply->anim = SPR_push + anim;
- break;
-
- case Xnut:
- if (dy)
- break;
-
- switch(Cave[y][x+dx])
- {
- 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[y-1][x+dx+1] == Xblank)
- Cave[y-1][x+dx+1] = Yacid_splash_eB;
- if (Cave[y-1][x+dx-1] == Xblank)
- Cave[y-1][x+dx-1] = Yacid_splash_wB;
- play_sound(x, y, SAMPLE_acid);
- goto nut_walk;
-
- case Xblank:
- case Yacid_splash_eB:
- case Yacid_splash_wB:
- Cave[y][x+dx] = dx > 0 ? Ynut_e : Ynut_w;
- Next[y][x+dx] = Xnut_pause;
-
- nut_walk:
-
- Cave[y][x] = dx > 0 ? Ynut_eB : Ynut_wB;
- Next[y][x] = Zplayer;
- play_element_sound(x, y, SAMPLE_roll, Xnut);
- ply->x = x;
- }
-
- ply->anim = SPR_push + anim;
- break;
-
- case Xspring:
- if (dy)
- break;
-
- switch(Cave[y][x+dx])
- {
- case Xalien:
- case Xalien_pause:
- Cave[y][x] = dx > 0 ? Yspring_kill_eB : Yspring_kill_wB;
- Cave[y][x+dx] = dx > 0 ? Yspring_kill_e : Yspring_kill_w;
- Next[y][x] = Zplayer;
- Next[y][x+dx] = dx > 0 ? Xspring_e : Xspring_w;
- play_element_sound(x, y, SAMPLE_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[y-1][x+dx+1] == Xblank)
- Cave[y-1][x+dx+1] = Yacid_splash_eB;
- if (Cave[y-1][x+dx-1] == Xblank)
- Cave[y-1][x+dx-1] = Yacid_splash_wB;
- play_sound(x, y, SAMPLE_acid);
- goto spring_walk;
-
- case Xblank:
- case Yacid_splash_eB:
- case Yacid_splash_wB:
- Cave[y][x+dx] = dx > 0 ? Yspring_e : Yspring_w;
- Next[y][x+dx] = dx > 0 ? Xspring_e : Xspring_w;
-
- spring_walk:
- Cave[y][x] = dx > 0 ? Yspring_eB : Yspring_wB;
- Next[y][x] = Zplayer;
- play_element_sound(x, y, SAMPLE_roll, Xspring);
- ply->x = x;
- }
-
- ply->anim = SPR_push + 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 = SPR_push + anim;
- break;
-
- case Xballoon:
- switch(Cave[y+dy][x+dx])
- {
- 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[y+dy-1][x+dx+1] == Xblank)
- Cave[y+dy-1][x+dx+1] = Yacid_splash_eB;
- if (Cave[y+dy-1][x+dx-1] == Xblank)
- Cave[y+dy-1][x+dx-1] = Yacid_splash_wB;
- play_sound(x, y, SAMPLE_acid);
- goto balloon_walk;
-
- case Xblank:
- case Yacid_splash_eB:
- case Yacid_splash_wB:
- Cave[y+dy][x+dx] = (dy ? (dy < 0 ? Yballoon_n : Yballoon_s) :
- (dx > 0 ? Yballoon_e : Yballoon_w));
- Next[y+dy][x+dx] = Xballoon;
-
- balloon_walk:
- Cave[y][x] = (dy ? (dy < 0 ? Yballoon_nB : Yballoon_sB) :
- (dx > 0 ? Yballoon_eB : Yballoon_wB));
- Next[y][x] = Zplayer;
- play_element_sound(x, y, SAMPLE_push, Xballoon);
- ply->x = x;
- ply->y = y;
- }
-
- ply->anim = SPR_push + 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[y+dy][x+dx])
- {
- 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[y+dy-1][x+dx+1] == Xblank)
- Cave[y+dy-1][x+dx+1] = Yacid_splash_eB;
- if (Cave[y+dy-1][x+dx-1] == Xblank)
- Cave[y+dy-1][x+dx-1] = Yacid_splash_wB;
- play_sound(x, y, SAMPLE_acid);
- goto android_walk;
-
- case Xblank:
- case Yacid_splash_eB:
- case Yacid_splash_wB:
- Cave[y+dy][x+dx] = (dy ? (dy < 0 ? Yandroid_n : Yandroid_s) :
- (dx > 0 ? Yandroid_e : Yandroid_w));
- Next[y+dy][x+dx] = (dy ? (dy < 0 ? Xandroid_2_n : Xandroid_2_s) :
- (dx > 0 ? Xandroid_2_e : Xandroid_2_w));
-
- android_walk:
- Cave[y][x] = (dy ? (dy < 0 ? Yandroid_nB : Yandroid_sB) :
- (dx > 0 ? Yandroid_eB : Yandroid_wB));
- Next[y][x] = Zplayer;
- play_element_sound(x, y, SAMPLE_push, Xandroid);
- ply->x = x;
- ply->y = y;
- }
-
- ply->anim = SPR_push + 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[y+dy][x+dx]])
- break;
-
- Cave[y+dy][x+dx] = Zplayer;
- Next[y+dy][x+dx] = Zplayer;
- play_element_sound(x, y, SAMPLE_door, element);
- ply->anim = SPR_walk + anim;
- ply->x = x + dx;
- ply->y = y + dy;
- break;
-
- case Xwheel:
- play_element_sound(x, y, SAMPLE_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_nesw:
- lev.wind_direction = dy ? (dy < 0 ? 0 : 2) : (dx > 0 ? 1 : 3);
- goto wind_walk;
-
- wind_walk:
- play_element_sound(x, y, SAMPLE_press, element);
- lev.wind_cnt = lev.wind_time;
- break;
-
- case Xwind_stop:
- play_element_sound(x, y, SAMPLE_press, element);
- lev.wind_cnt = 0;
- break;
-
- case Xswitch:
- play_element_sound(x, y, SAMPLE_press, element);
- lev.ball_cnt = lev.ball_time;
- lev.ball_state = !lev.ball_state;
- break;
-
- case Xplant:
- Cave[y][x] = Yplant;
- Next[y][x] = Xplant;
- play_element_sound(x, y, SAMPLE_blank, Xplant);
- ply->anim = SPR_walk + anim;
- ply->x = x;
- ply->y = y;
- break;
-
- case Xexit_1:
- case Xexit_2:
- case Xexit_3:
- play_element_sound(x, y, SAMPLE_exit, Xexit_1);
- if (--lev.home == 0 && lev.time_initial > 0)
- lev.score += lev.time * lev.exit_score / 100;
- ply->anim = SPR_walk + anim;
- ply->x = x;
- ply->y = y;
- break;
- }
- }
- else
- {
- int element = Cave[y][x];
-
- switch(Cave[y][x])
- {
- /* fire is pressed */
-
- case Xgrass:
- case Xdirt:
- Cave[y][x] = Yball_eat;
- Next[y][x] = Xblank;
- play_element_sound(x, y, SAMPLE_dirt, element);
- ply->anim = SPR_spray + anim;
- break;
-
- case Xdiamond:
- case Xdiamond_pause:
- Cave[y][x] = Ydiamond_eat;
- Next[y][x] = Xblank;
- play_element_sound(x, y, SAMPLE_collect, element);
- lev.score += lev.diamond_score;
- lev.required = lev.required < 3 ? 0 : lev.required - 3;
- ply->anim = SPR_walk + anim;
- break;
-
- case Xemerald:
- case Xemerald_pause:
- Cave[y][x] = Yemerald_eat;
- Next[y][x] = Xblank;
- play_element_sound(x, y, SAMPLE_collect, element);
- lev.score += lev.emerald_score;
- lev.required = lev.required < 1 ? 0 : lev.required - 1;
- ply->anim = SPR_walk + anim;
- break;
-
- case Xdynamite:
- Cave[y][x] = Ydynamite_eat;
- Next[y][x] = Xblank;
- play_element_sound(x, y, SAMPLE_collect, element);
- lev.score += lev.dynamite_score;
- ply->dynamite = ply->dynamite > 9998 ? 9999 : ply->dynamite + 1;
- ply->anim = SPR_walk + anim;
- break;
-
- case Xkey_1:
- ply->keys |= 0x01;
- goto key_shoot;
-
- case Xkey_2:
- ply->keys |= 0x02;
- goto key_shoot;
-
- case Xkey_3:
- ply->keys |= 0x04;
- goto key_shoot;
-
- case Xkey_4:
- ply->keys |= 0x08;
- goto key_shoot;
-
- case Xkey_5:
- ply->keys |= 0x10;
- goto key_shoot;
-
- case Xkey_6:
- ply->keys |= 0x20;
- goto key_shoot;
-
- case Xkey_7:
- ply->keys |= 0x40;
- goto key_shoot;
-
- case Xkey_8:
- ply->keys |= 0x80;
- goto key_shoot;
-
- key_shoot:
- Cave[y][x] = Yball_eat;
- Next[y][x] = Xblank;
- play_element_sound(x, y, SAMPLE_collect, element);
- lev.score += lev.key_score;
- ply->anim = SPR_walk + anim;
- break;
-
- case Xlenses:
- Cave[y][x] = Yball_eat;
- Next[y][x] = Xblank;
- play_element_sound(x, y, SAMPLE_collect, element);
- lev.score += lev.lenses_score;
- lev.lenses_cnt = lev.lenses_time;
- ply->anim = SPR_walk + anim;
- break;
-
- case Xmagnify:
- Cave[y][x] = Yball_eat;
- Next[y][x] = Xblank;
- play_element_sound(x, y, SAMPLE_collect, element);
- lev.score += lev.magnify_score;
- lev.magnify_cnt = lev.magnify_time;
- ply->anim = SPR_walk + anim;
- break;
- }
- }
-}