1 /* first part of synchro.
3 * game logic for players.
5 * large switch statement for tiles the player interacts with.
14 static void check_player(struct PLAYER *);
15 static void kill_player(struct PLAYER *);
16 static boolean player_digfield(struct PLAYER *, int, int);
17 static boolean player_killed(struct PLAYER *);
21 /* must test for death and actually kill separately */
22 boolean ply1_kill = player_killed(&ply1);
23 boolean ply2_kill = player_killed(&ply2);
25 if (ply1.alive && ply1_kill)
27 if (ply2.alive && ply2_kill)
31 ply1.alive = 1; /* debugging */
36 ply1.anim = SPR_still;
39 ply2.anim = SPR_still;
43 if (ply1.alive) check_player(&ply1);
44 if (ply2.alive) check_player(&ply2);
48 if (ply2.alive) check_player(&ply2);
49 if (ply1.alive) check_player(&ply1);
54 if (Cave[ply1.oldy][ply1.oldx] == Zplayer)
56 Cave[ply1.oldy][ply1.oldx] = Xblank;
57 Next[ply1.oldy][ply1.oldx] = Xblank;
60 if (Cave[ply1.y][ply1.x] == Xblank)
62 Cave[ply1.y][ply1.x] = Zplayer;
63 Next[ply1.y][ply1.x] = Zplayer;
69 if (Cave[ply2.oldy][ply2.oldx] == Zplayer)
71 Cave[ply2.oldy][ply2.oldx] = Xblank;
72 Next[ply2.oldy][ply2.oldx] = Xblank;
75 if (Cave[ply2.y][ply2.x] == Xblank)
77 Cave[ply2.y][ply2.x] = Zplayer;
78 Next[ply2.y][ply2.x] = Zplayer;
83 static boolean player_killed(struct PLAYER *ply)
85 register unsigned int x = ply->x;
86 register unsigned int y = ply->y;
92 if (lev.killed_out_of_time && setup.time_limit)
95 if (lev.time_initial > 0 && lev.time == 0 && setup.time_limit)
186 case Yacid_splash_eB:
187 case Yacid_splash_wB:
209 static void kill_player(struct PLAYER *ply)
211 register unsigned int x = ply->x;
212 register unsigned int y = ply->y;
226 Cave[y-1][x] = Xboom_bug;
228 play_element_sound(x, y, SAMPLE_boom, Zplayer);
240 Cave[y-1][x] = Xboom_bomb;
242 play_element_sound(x, y, SAMPLE_boom, Zplayer);
257 Cave[y][x+1] = Xboom_bug;
259 play_element_sound(x, y, SAMPLE_boom, Zplayer);
271 Cave[y][x+1] = Xboom_bomb;
273 play_element_sound(x, y, SAMPLE_boom, Zplayer);
288 Cave[y+1][x] = Xboom_bug;
290 play_element_sound(x, y, SAMPLE_boom, Zplayer);
302 Cave[y+1][x] = Xboom_bomb;
304 play_element_sound(x, y, SAMPLE_boom, Zplayer);
319 Cave[y][x-1] = Xboom_bug;
321 play_element_sound(x, y, SAMPLE_boom, Zplayer);
333 Cave[y][x-1] = Xboom_bomb;
335 play_element_sound(x, y, SAMPLE_boom, Zplayer);
345 play_element_sound(x, y, SAMPLE_exit_leave, Xexit_1);
349 play_element_sound(x, y, SAMPLE_die, Zplayer);
368 Cave[y][x] = Xboom_1;
374 static void check_player(struct PLAYER *ply)
376 unsigned int oldx = ply->x;
377 unsigned int oldy = ply->y;
378 register unsigned int x = oldx;
379 register unsigned int y = oldy;
380 unsigned int anim = 0;
384 printf("::: up == %d, down == %d, left == %d, right == %d, fire == %d [spin == %d, stick == %d]\n",
385 ply->joy_n, ply->joy_s, ply->joy_w, ply->joy_e, ply->joy_fire,
386 ply->joy_spin, ply->joy_stick);
390 if (ply->joy_w) /* west */
396 else if (ply->joy_e) /* east */
403 if (ply->joy_n) /* north */
409 else if (ply->joy_s) /* south */
418 if ((ply->joy_spin = !ply->joy_spin))
420 if (ply->joy_n) /* north */
426 else if (ply->joy_e) /* east */
432 else if (ply->joy_s) /* south */
438 else if (ply->joy_w) /* west */
447 if (ply->joy_w) /* west */
453 else if (ply->joy_s) /* south */
459 else if (ply->joy_e) /* east */
465 else if (ply->joy_n) /* north */
474 if (dx == 0 && dy == 0)
480 if (++ply->dynamite_cnt == 5 && ply->dynamite)
482 Cave[y][x] = Xdynamite_1;
483 play_element_sound(x, y, SAMPLE_dynamite, Xdynamite_1);
489 ply->dynamite_cnt = 0;
492 RandomEM += 7; /* be a bit more random if the player doesn't move */
498 ply->joy_n = ply->joy_e = ply->joy_s = ply->joy_w = 0;
499 ply->dynamite_cnt = 0; /* reset dynamite timer if we move */
500 ply->joy_spin = !ply->joy_spin;
502 if (ply->joy_snap == 0) /* player wants to move */
504 boolean moved = FALSE;
506 if (ply->last_move_dir & MV_HORIZONTAL)
508 if (!(moved = player_digfield(ply, 0, dy)))
509 moved = player_digfield(ply, dx, 0);
513 if (!(moved = player_digfield(ply, dx, 0)))
514 moved = player_digfield(ply, 0, dy);
520 ply->last_move_dir = (dx < 0 ? MV_LEFT : MV_RIGHT);
521 else if (oldy != ply->y)
522 ply->last_move_dir = (dy < 0 ? MV_UP : MV_DOWN);
525 else /* player wants to snap */
527 player_digfield(ply, dx, dy);
531 static boolean player_digfield(struct PLAYER *ply, int dx, int dy)
533 int anim = (dx < 0 ? 3 : dx > 0 ? 1 : dy < 0 ? 0 : dy > 0 ? 2 : 2);
534 unsigned int oldx = ply->x;
535 unsigned int oldy = ply->y;
536 register unsigned int x = oldx + dx;
537 register unsigned int y = oldy + dy;
538 boolean result = TRUE;
540 if (!dx && !dy) /* no direction specified */
543 if (dx && dy && ply->joy_snap) /* more than one direction specified */
546 if (ply->joy_snap == 0) /* player wants to move */
548 int element = Cave[y][x];
552 /* fire is released */
554 case Yacid_splash_eB:
555 case Yacid_splash_wB:
556 Cave[y][x] = Zplayer;
557 Next[y][x] = Zplayer;
568 play_element_sound(x, y, SAMPLE_blank, Xblank);
569 ply->anim = SPR_walk + anim;
584 if (Cave[y-1][x+1] == Xblank)
585 Cave[y-1][x+1] = Yacid_splash_eB;
586 if (Cave[y-1][x-1] == Xblank)
587 Cave[y-1][x-1] = Yacid_splash_wB;
588 play_element_sound(x, y, SAMPLE_acid, Xacid_1);
618 ply->anim = SPR_walk + anim;
624 Cave[y][x] = (dy ? (dy < 0 ? Ygrass_nB : Ygrass_sB) :
625 (dx > 0 ? Ygrass_eB : Ygrass_wB));
626 Next[y][x] = Zplayer;
627 play_element_sound(x, y, SAMPLE_dirt, Xgrass);
628 ply->anim = SPR_walk + anim;
634 Cave[y][x] = (dy ? (dy < 0 ? Ydirt_nB : Ydirt_sB) :
635 (dx > 0 ? Ydirt_eB : Ydirt_wB));
636 Next[y][x] = Zplayer;
637 play_element_sound(x, y, SAMPLE_dirt, Xdirt);
638 ply->anim = SPR_walk + anim;
645 Cave[y][x] = Ydiamond_eat;
646 Next[y][x] = Zplayer;
647 play_element_sound(x, y, SAMPLE_collect, element);
648 lev.score += lev.diamond_score;
649 lev.required = lev.required < 3 ? 0 : lev.required - 3;
650 ply->anim = SPR_walk + anim;
657 Cave[y][x] = Yemerald_eat;
658 Next[y][x] = Zplayer;
659 play_element_sound(x, y, SAMPLE_collect, element);
660 lev.score += lev.emerald_score;
661 lev.required = lev.required < 1 ? 0 : lev.required - 1;
662 ply->anim = SPR_walk + anim;
668 Cave[y][x] = Ydynamite_eat;
669 Next[y][x] = Zplayer;
670 play_element_sound(x, y, SAMPLE_collect, element);
671 lev.score += lev.dynamite_score;
672 ply->dynamite = ply->dynamite > 9998 ? 9999 : ply->dynamite + 1;
673 ply->anim = SPR_walk + anim;
680 Cave[y][x] = Ykey_1_eat;
685 Cave[y][x] = Ykey_2_eat;
690 Cave[y][x] = Ykey_3_eat;
695 Cave[y][x] = Ykey_4_eat;
700 Cave[y][x] = Ykey_5_eat;
705 Cave[y][x] = Ykey_6_eat;
710 Cave[y][x] = Ykey_7_eat;
715 Cave[y][x] = Ykey_8_eat;
720 Next[y][x] = Zplayer;
721 play_element_sound(x, y, SAMPLE_collect, element);
722 lev.score += lev.key_score;
723 ply->anim = SPR_walk + anim;
729 Cave[y][x] = Ylenses_eat;
730 Next[y][x] = Zplayer;
731 play_element_sound(x, y, SAMPLE_collect, element);
732 lev.score += lev.lenses_score;
733 lev.lenses_cnt = lev.lenses_time;
734 ply->anim = SPR_walk + anim;
740 Cave[y][x] = Ymagnify_eat;
741 Next[y][x] = Zplayer;
742 play_element_sound(x, y, SAMPLE_collect, element);
743 lev.score += lev.magnify_score;
744 lev.magnify_cnt = lev.magnify_time;
745 ply->anim = SPR_walk + anim;
754 switch(Cave[y][x+dx])
764 if (Cave[y-1][x+dx+1] == Xblank)
765 Cave[y-1][x+dx+1] = Yacid_splash_eB;
766 if (Cave[y-1][x+dx-1] == Xblank)
767 Cave[y-1][x+dx-1] = Yacid_splash_wB;
768 play_element_sound(x, y, SAMPLE_acid, Xacid_1);
772 case Yacid_splash_eB:
773 case Yacid_splash_wB:
774 Cave[y][x+dx] = dx > 0 ? Ystone_e : Ystone_w;
775 Next[y][x+dx] = Xstone_pause;
779 Cave[y][x] = dx > 0 ? Ystone_eB : Ystone_wB;
780 Next[y][x] = Zplayer;
781 play_element_sound(x, y, SAMPLE_roll, Xstone);
785 ply->anim = SPR_push + anim;
792 switch(Cave[y][x+dx])
802 if (Cave[y-1][x+dx+1] == Xblank)
803 Cave[y-1][x+dx+1] = Yacid_splash_eB;
804 if (Cave[y-1][x+dx-1] == Xblank)
805 Cave[y-1][x+dx-1] = Yacid_splash_wB;
806 play_element_sound(x, y, SAMPLE_acid, Xacid_1);
810 case Yacid_splash_eB:
811 case Yacid_splash_wB:
812 Cave[y][x+dx] = dx > 0 ? Ybomb_e : Ybomb_w;
813 Next[y][x+dx] = Xbomb_pause;
817 Cave[y][x] = dx > 0 ? Ybomb_eB : Ybomb_wB;
818 Next[y][x] = Zplayer;
819 play_element_sound(x, y, SAMPLE_roll, Xbomb);
823 ply->anim = SPR_push + anim;
830 switch(Cave[y][x+dx])
840 if (Cave[y-1][x+dx+1] == Xblank)
841 Cave[y-1][x+dx+1] = Yacid_splash_eB;
842 if (Cave[y-1][x+dx-1] == Xblank)
843 Cave[y-1][x+dx-1] = Yacid_splash_wB;
844 play_element_sound(x, y, SAMPLE_acid, Xacid_1);
848 case Yacid_splash_eB:
849 case Yacid_splash_wB:
850 Cave[y][x+dx] = dx > 0 ? Ynut_e : Ynut_w;
851 Next[y][x+dx] = Xnut_pause;
855 Cave[y][x] = dx > 0 ? Ynut_eB : Ynut_wB;
856 Next[y][x] = Zplayer;
857 play_element_sound(x, y, SAMPLE_roll, Xnut);
861 ply->anim = SPR_push + anim;
868 switch(Cave[y][x+dx])
872 Cave[y][x] = dx > 0 ? Yspring_kill_eB : Yspring_kill_wB;
873 Cave[y][x+dx] = dx > 0 ? Yspring_kill_e : Yspring_kill_w;
874 Next[y][x] = Zplayer;
875 Next[y][x+dx] = dx > 0 ? Xspring_e : Xspring_w;
876 play_element_sound(x, y, SAMPLE_slurp, Xalien);
877 lev.score += lev.slurp_score;
889 if (Cave[y-1][x+dx+1] == Xblank)
890 Cave[y-1][x+dx+1] = Yacid_splash_eB;
891 if (Cave[y-1][x+dx-1] == Xblank)
892 Cave[y-1][x+dx-1] = Yacid_splash_wB;
893 play_element_sound(x, y, SAMPLE_acid, Xacid_1);
897 case Yacid_splash_eB:
898 case Yacid_splash_wB:
899 Cave[y][x+dx] = dx > 0 ? Yspring_e : Yspring_w;
900 Next[y][x+dx] = dx > 0 ? Xspring_e : Xspring_w;
903 Cave[y][x] = dx > 0 ? Yspring_eB : Yspring_wB;
904 Next[y][x] = Zplayer;
905 play_element_sound(x, y, SAMPLE_roll, Xspring);
909 ply->anim = SPR_push + anim;
916 case Xsand_stonein_1:
917 case Xsand_stonein_2:
918 case Xsand_stonein_3:
919 case Xsand_stonein_4:
923 ply->anim = SPR_push + anim;
927 switch(Cave[y+dy][x+dx])
937 if (Cave[y+dy-1][x+dx+1] == Xblank)
938 Cave[y+dy-1][x+dx+1] = Yacid_splash_eB;
939 if (Cave[y+dy-1][x+dx-1] == Xblank)
940 Cave[y+dy-1][x+dx-1] = Yacid_splash_wB;
941 play_element_sound(x, y, SAMPLE_acid, Xacid_1);
945 case Yacid_splash_eB:
946 case Yacid_splash_wB:
947 Cave[y+dy][x+dx] = (dy ? (dy < 0 ? Yballoon_n : Yballoon_s) :
948 (dx > 0 ? Yballoon_e : Yballoon_w));
949 Next[y+dy][x+dx] = Xballoon;
952 Cave[y][x] = (dy ? (dy < 0 ? Yballoon_nB : Yballoon_sB) :
953 (dx > 0 ? Yballoon_eB : Yballoon_wB));
954 Next[y][x] = Zplayer;
955 play_element_sound(x, y, SAMPLE_push, Xballoon);
960 ply->anim = SPR_push + anim;
972 switch(Cave[y+dy][x+dx])
982 if (Cave[y+dy-1][x+dx+1] == Xblank)
983 Cave[y+dy-1][x+dx+1] = Yacid_splash_eB;
984 if (Cave[y+dy-1][x+dx-1] == Xblank)
985 Cave[y+dy-1][x+dx-1] = Yacid_splash_wB;
986 play_element_sound(x, y, SAMPLE_acid, Xacid_1);
990 case Yacid_splash_eB:
991 case Yacid_splash_wB:
992 Cave[y+dy][x+dx] = (dy ? (dy < 0 ? Yandroid_n : Yandroid_s) :
993 (dx > 0 ? Yandroid_e : Yandroid_w));
994 Next[y+dy][x+dx] = (dy ? (dy < 0 ? Xandroid_2_n : Xandroid_2_s) :
995 (dx > 0 ? Xandroid_2_e : Xandroid_2_w));
998 Cave[y][x] = (dy ? (dy < 0 ? Yandroid_nB : Yandroid_sB) :
999 (dx > 0 ? Yandroid_eB : Yandroid_wB));
1000 Next[y][x] = Zplayer;
1001 play_element_sound(x, y, SAMPLE_push, Xandroid);
1006 ply->anim = SPR_push + anim;
1011 if (ply->keys & 0x01)
1018 if (ply->keys & 0x02)
1025 if (ply->keys & 0x04)
1032 if (ply->keys & 0x08)
1039 if (ply->keys & 0x10)
1046 if (ply->keys & 0x20)
1053 if (ply->keys & 0x40)
1060 if (ply->keys & 0x80)
1066 if (!tab_blank[Cave[y+dy][x+dx]])
1069 Cave[y+dy][x+dx] = Zplayer;
1070 Next[y+dy][x+dx] = Zplayer;
1071 play_element_sound(x, y, SAMPLE_door, element);
1072 ply->anim = SPR_walk + anim;
1078 play_element_sound(x, y, SAMPLE_press, element);
1079 lev.wheel_cnt = lev.wheel_time;
1085 lev.wind_direction = 0;
1089 lev.wind_direction = 1;
1093 lev.wind_direction = 2;
1097 lev.wind_direction = 3;
1101 lev.wind_direction = dy ? (dy < 0 ? 0 : 2) : (dx > 0 ? 1 : 3);
1105 play_element_sound(x, y, SAMPLE_press, element);
1106 lev.wind_cnt = lev.wind_time;
1110 play_element_sound(x, y, SAMPLE_press, element);
1115 play_element_sound(x, y, SAMPLE_press, element);
1116 lev.ball_cnt = lev.ball_time;
1117 lev.ball_state = !lev.ball_state;
1121 Cave[y][x] = Yplant;
1122 Next[y][x] = Xplant;
1123 play_element_sound(x, y, SAMPLE_blank, Xplant);
1124 ply->anim = SPR_walk + anim;
1132 play_element_sound(x, y, SAMPLE_exit_leave, Xexit_1);
1137 /* !!! CHECK SCORE CALCULATION !!! */
1138 if (lev.home == 0 && lev.time_initial > 0) /* game won */
1139 lev.score += lev.time * lev.exit_score / 100;
1142 ply->anim = SPR_walk + anim;
1149 if (ply->x == oldx && ply->y == oldy) /* no movement */
1152 else /* player wants to snap */
1154 int element = Cave[y][x];
1158 /* fire is pressed */
1161 Cave[y][x] = Ygrass_eat;
1162 Next[y][x] = Xblank;
1163 play_element_sound(x, y, SAMPLE_dirt, element);
1164 ply->anim = SPR_spray + anim;
1168 Cave[y][x] = Ydirt_eat;
1169 Next[y][x] = Xblank;
1170 play_element_sound(x, y, SAMPLE_dirt, element);
1171 ply->anim = SPR_spray + anim;
1175 case Xdiamond_pause:
1176 Cave[y][x] = Ydiamond_eat;
1177 Next[y][x] = Xblank;
1178 play_element_sound(x, y, SAMPLE_collect, element);
1179 lev.score += lev.diamond_score;
1180 lev.required = lev.required < 3 ? 0 : lev.required - 3;
1181 ply->anim = SPR_walk + anim;
1185 case Xemerald_pause:
1186 Cave[y][x] = Yemerald_eat;
1187 Next[y][x] = Xblank;
1188 play_element_sound(x, y, SAMPLE_collect, element);
1189 lev.score += lev.emerald_score;
1190 lev.required = lev.required < 1 ? 0 : lev.required - 1;
1191 ply->anim = SPR_walk + anim;
1195 Cave[y][x] = Ydynamite_eat;
1196 Next[y][x] = Xblank;
1197 play_element_sound(x, y, SAMPLE_collect, element);
1198 lev.score += lev.dynamite_score;
1199 ply->dynamite = ply->dynamite > 9998 ? 9999 : ply->dynamite + 1;
1200 ply->anim = SPR_walk + anim;
1205 Cave[y][x] = Ykey_1_eat;
1210 Cave[y][x] = Ykey_2_eat;
1215 Cave[y][x] = Ykey_3_eat;
1220 Cave[y][x] = Ykey_4_eat;
1225 Cave[y][x] = Ykey_5_eat;
1230 Cave[y][x] = Ykey_6_eat;
1235 Cave[y][x] = Ykey_7_eat;
1240 Cave[y][x] = Ykey_8_eat;
1244 Next[y][x] = Xblank;
1245 play_element_sound(x, y, SAMPLE_collect, element);
1246 lev.score += lev.key_score;
1247 ply->anim = SPR_walk + anim;
1251 Cave[y][x] = Ylenses_eat;
1252 Next[y][x] = Xblank;
1253 play_element_sound(x, y, SAMPLE_collect, element);
1254 lev.score += lev.lenses_score;
1255 lev.lenses_cnt = lev.lenses_time;
1256 ply->anim = SPR_walk + anim;
1260 Cave[y][x] = Ymagnify_eat;
1261 Next[y][x] = Xblank;
1262 play_element_sound(x, y, SAMPLE_collect, element);
1263 lev.score += lev.magnify_score;
1264 lev.magnify_cnt = lev.magnify_time;
1265 ply->anim = SPR_walk + anim;