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;
91 if (lev.time_initial > 0 && lev.time == 0)
181 case Yacid_splash_eB:
182 case Yacid_splash_wB:
204 static void kill_player(struct PLAYER *ply)
206 register unsigned int x = ply->x;
207 register unsigned int y = ply->y;
221 Cave[y-1][x] = Xboom_bug;
223 play_element_sound(x, y, SAMPLE_boom, Zplayer);
235 Cave[y-1][x] = Xboom_bomb;
237 play_element_sound(x, y, SAMPLE_boom, Zplayer);
252 Cave[y][x+1] = Xboom_bug;
254 play_element_sound(x, y, SAMPLE_boom, Zplayer);
266 Cave[y][x+1] = Xboom_bomb;
268 play_element_sound(x, y, SAMPLE_boom, Zplayer);
283 Cave[y+1][x] = Xboom_bug;
285 play_element_sound(x, y, SAMPLE_boom, Zplayer);
297 Cave[y+1][x] = Xboom_bomb;
299 play_element_sound(x, y, SAMPLE_boom, Zplayer);
314 Cave[y][x-1] = Xboom_bug;
316 play_element_sound(x, y, SAMPLE_boom, Zplayer);
328 Cave[y][x-1] = Xboom_bomb;
330 play_element_sound(x, y, SAMPLE_boom, Zplayer);
340 play_element_sound(x, y, SAMPLE_exit, Xexit_1);
344 play_element_sound(x, y, SAMPLE_die, Zplayer);
363 Cave[y][x] = Xboom_1;
369 static void check_player(struct PLAYER *ply)
371 unsigned int oldx = ply->x;
372 unsigned int oldy = ply->y;
373 register unsigned int x = oldx;
374 register unsigned int y = oldy;
375 unsigned int anim = 0;
379 printf("::: up == %d, down == %d, left == %d, right == %d, fire == %d [spin == %d, stick == %d]\n",
380 ply->joy_n, ply->joy_s, ply->joy_w, ply->joy_e, ply->joy_fire,
381 ply->joy_spin, ply->joy_stick);
385 if (ply->joy_w) /* west */
391 else if (ply->joy_e) /* east */
398 if (ply->joy_n) /* north */
404 else if (ply->joy_s) /* south */
413 if ((ply->joy_spin = !ply->joy_spin))
415 if (ply->joy_n) /* north */
421 else if (ply->joy_e) /* east */
427 else if (ply->joy_s) /* south */
433 else if (ply->joy_w) /* west */
442 if (ply->joy_w) /* west */
448 else if (ply->joy_s) /* south */
454 else if (ply->joy_e) /* east */
460 else if (ply->joy_n) /* north */
469 if (dx == 0 && dy == 0)
475 if (++ply->dynamite_cnt == 5 && ply->dynamite)
477 Cave[y][x] = Xdynamite_1;
478 play_element_sound(x, y, SAMPLE_dynamite, Xdynamite_1);
484 ply->dynamite_cnt = 0;
487 Random += 7; /* be a bit more random if the player doesn't move */
493 ply->joy_n = ply->joy_e = ply->joy_s = ply->joy_w = 0;
494 ply->dynamite_cnt = 0; /* reset dynamite timer if we move */
495 ply->joy_spin = !ply->joy_spin;
497 if (ply->joy_snap == 0) /* player wants to move */
499 boolean moved = FALSE;
501 if (ply->last_move_dir & MV_HORIZONTAL)
503 if (!(moved = player_digfield(ply, 0, dy)))
504 moved = player_digfield(ply, dx, 0);
508 if (!(moved = player_digfield(ply, dx, 0)))
509 moved = player_digfield(ply, 0, dy);
515 ply->last_move_dir = (dx < 0 ? MV_LEFT : MV_RIGHT);
516 else if (oldy != ply->y)
517 ply->last_move_dir = (dy < 0 ? MV_UP : MV_DOWN);
520 else /* player wants to snap */
522 player_digfield(ply, dx, dy);
526 static boolean player_digfield(struct PLAYER *ply, int dx, int dy)
528 int anim = (dx < 0 ? 3 : dx > 0 ? 1 : dy < 0 ? 0 : dy > 0 ? 2 : 2);
529 unsigned int oldx = ply->x;
530 unsigned int oldy = ply->y;
531 register unsigned int x = oldx + dx;
532 register unsigned int y = oldy + dy;
533 boolean result = TRUE;
535 if (!dx && !dy) /* no direction specified */
538 if (dx && dy && ply->joy_snap) /* more than one direction specified */
541 if (ply->joy_snap == 0) /* player wants to move */
543 int element = Cave[y][x];
547 /* fire is released */
549 case Yacid_splash_eB:
550 case Yacid_splash_wB:
551 Cave[y][x] = Zplayer;
552 Next[y][x] = Zplayer;
563 play_element_sound(x, y, SAMPLE_blank, Xblank);
564 ply->anim = SPR_walk + anim;
579 if (Cave[y-1][x+1] == Xblank)
580 Cave[y-1][x+1] = Yacid_splash_eB;
581 if (Cave[y-1][x-1] == Xblank)
582 Cave[y-1][x-1] = Yacid_splash_wB;
583 play_sound(x, y, SAMPLE_acid);
613 ply->anim = SPR_walk + anim;
619 Cave[y][x] = (dy ? (dy < 0 ? Ygrass_nB : Ygrass_sB) :
620 (dx > 0 ? Ygrass_eB : Ygrass_wB));
621 Next[y][x] = Zplayer;
622 play_element_sound(x, y, SAMPLE_dirt, Xgrass);
623 ply->anim = SPR_walk + anim;
629 Cave[y][x] = (dy ? (dy < 0 ? Ydirt_nB : Ydirt_sB) :
630 (dx > 0 ? Ydirt_eB : Ydirt_wB));
631 Next[y][x] = Zplayer;
632 play_element_sound(x, y, SAMPLE_dirt, Xdirt);
633 ply->anim = SPR_walk + anim;
640 Cave[y][x] = Ydiamond_eat;
641 Next[y][x] = Zplayer;
642 play_element_sound(x, y, SAMPLE_collect, element);
643 lev.score += lev.diamond_score;
644 lev.required = lev.required < 3 ? 0 : lev.required - 3;
645 ply->anim = SPR_walk + anim;
652 Cave[y][x] = Yemerald_eat;
653 Next[y][x] = Zplayer;
654 play_element_sound(x, y, SAMPLE_collect, element);
655 lev.score += lev.emerald_score;
656 lev.required = lev.required < 1 ? 0 : lev.required - 1;
657 ply->anim = SPR_walk + anim;
663 Cave[y][x] = Ydynamite_eat;
664 Next[y][x] = Zplayer;
665 play_element_sound(x, y, SAMPLE_collect, element);
666 lev.score += lev.dynamite_score;
667 ply->dynamite = ply->dynamite > 9998 ? 9999 : ply->dynamite + 1;
668 ply->anim = SPR_walk + anim;
675 Cave[y][x] = Ykey_1_eat;
680 Cave[y][x] = Ykey_2_eat;
685 Cave[y][x] = Ykey_3_eat;
690 Cave[y][x] = Ykey_4_eat;
695 Cave[y][x] = Ykey_5_eat;
700 Cave[y][x] = Ykey_6_eat;
705 Cave[y][x] = Ykey_7_eat;
710 Cave[y][x] = Ykey_8_eat;
715 Next[y][x] = Zplayer;
716 play_element_sound(x, y, SAMPLE_collect, element);
717 lev.score += lev.key_score;
718 ply->anim = SPR_walk + anim;
724 Cave[y][x] = Ylenses_eat;
725 Next[y][x] = Zplayer;
726 play_element_sound(x, y, SAMPLE_collect, element);
727 lev.score += lev.lenses_score;
728 lev.lenses_cnt = lev.lenses_time;
729 ply->anim = SPR_walk + anim;
735 Cave[y][x] = Ymagnify_eat;
736 Next[y][x] = Zplayer;
737 play_element_sound(x, y, SAMPLE_collect, element);
738 lev.score += lev.magnify_score;
739 lev.magnify_cnt = lev.magnify_time;
740 ply->anim = SPR_walk + anim;
749 switch(Cave[y][x+dx])
759 if (Cave[y-1][x+dx+1] == Xblank)
760 Cave[y-1][x+dx+1] = Yacid_splash_eB;
761 if (Cave[y-1][x+dx-1] == Xblank)
762 Cave[y-1][x+dx-1] = Yacid_splash_wB;
763 play_sound(x, y, SAMPLE_acid);
767 case Yacid_splash_eB:
768 case Yacid_splash_wB:
769 Cave[y][x+dx] = dx > 0 ? Ystone_e : Ystone_w;
770 Next[y][x+dx] = Xstone_pause;
774 Cave[y][x] = dx > 0 ? Ystone_eB : Ystone_wB;
775 Next[y][x] = Zplayer;
776 play_element_sound(x, y, SAMPLE_roll, Xstone);
780 ply->anim = SPR_push + anim;
787 switch(Cave[y][x+dx])
797 if (Cave[y-1][x+dx+1] == Xblank)
798 Cave[y-1][x+dx+1] = Yacid_splash_eB;
799 if (Cave[y-1][x+dx-1] == Xblank)
800 Cave[y-1][x+dx-1] = Yacid_splash_wB;
801 play_sound(x, y, SAMPLE_acid);
805 case Yacid_splash_eB:
806 case Yacid_splash_wB:
807 Cave[y][x+dx] = dx > 0 ? Ybomb_e : Ybomb_w;
808 Next[y][x+dx] = Xbomb_pause;
812 Cave[y][x] = dx > 0 ? Ybomb_eB : Ybomb_wB;
813 Next[y][x] = Zplayer;
814 play_element_sound(x, y, SAMPLE_roll, Xbomb);
818 ply->anim = SPR_push + anim;
825 switch(Cave[y][x+dx])
835 if (Cave[y-1][x+dx+1] == Xblank)
836 Cave[y-1][x+dx+1] = Yacid_splash_eB;
837 if (Cave[y-1][x+dx-1] == Xblank)
838 Cave[y-1][x+dx-1] = Yacid_splash_wB;
839 play_sound(x, y, SAMPLE_acid);
843 case Yacid_splash_eB:
844 case Yacid_splash_wB:
845 Cave[y][x+dx] = dx > 0 ? Ynut_e : Ynut_w;
846 Next[y][x+dx] = Xnut_pause;
850 Cave[y][x] = dx > 0 ? Ynut_eB : Ynut_wB;
851 Next[y][x] = Zplayer;
852 play_element_sound(x, y, SAMPLE_roll, Xnut);
856 ply->anim = SPR_push + anim;
863 switch(Cave[y][x+dx])
867 Cave[y][x] = dx > 0 ? Yspring_kill_eB : Yspring_kill_wB;
868 Cave[y][x+dx] = dx > 0 ? Yspring_kill_e : Yspring_kill_w;
869 Next[y][x] = Zplayer;
870 Next[y][x+dx] = dx > 0 ? Xspring_e : Xspring_w;
871 play_element_sound(x, y, SAMPLE_slurp, Xalien);
872 lev.score += lev.slurp_score;
884 if (Cave[y-1][x+dx+1] == Xblank)
885 Cave[y-1][x+dx+1] = Yacid_splash_eB;
886 if (Cave[y-1][x+dx-1] == Xblank)
887 Cave[y-1][x+dx-1] = Yacid_splash_wB;
888 play_sound(x, y, SAMPLE_acid);
892 case Yacid_splash_eB:
893 case Yacid_splash_wB:
894 Cave[y][x+dx] = dx > 0 ? Yspring_e : Yspring_w;
895 Next[y][x+dx] = dx > 0 ? Xspring_e : Xspring_w;
898 Cave[y][x] = dx > 0 ? Yspring_eB : Yspring_wB;
899 Next[y][x] = Zplayer;
900 play_element_sound(x, y, SAMPLE_roll, Xspring);
904 ply->anim = SPR_push + anim;
911 case Xsand_stonein_1:
912 case Xsand_stonein_2:
913 case Xsand_stonein_3:
914 case Xsand_stonein_4:
918 ply->anim = SPR_push + anim;
922 switch(Cave[y+dy][x+dx])
932 if (Cave[y+dy-1][x+dx+1] == Xblank)
933 Cave[y+dy-1][x+dx+1] = Yacid_splash_eB;
934 if (Cave[y+dy-1][x+dx-1] == Xblank)
935 Cave[y+dy-1][x+dx-1] = Yacid_splash_wB;
936 play_sound(x, y, SAMPLE_acid);
940 case Yacid_splash_eB:
941 case Yacid_splash_wB:
942 Cave[y+dy][x+dx] = (dy ? (dy < 0 ? Yballoon_n : Yballoon_s) :
943 (dx > 0 ? Yballoon_e : Yballoon_w));
944 Next[y+dy][x+dx] = Xballoon;
947 Cave[y][x] = (dy ? (dy < 0 ? Yballoon_nB : Yballoon_sB) :
948 (dx > 0 ? Yballoon_eB : Yballoon_wB));
949 Next[y][x] = Zplayer;
950 play_element_sound(x, y, SAMPLE_push, Xballoon);
955 ply->anim = SPR_push + anim;
967 switch(Cave[y+dy][x+dx])
977 if (Cave[y+dy-1][x+dx+1] == Xblank)
978 Cave[y+dy-1][x+dx+1] = Yacid_splash_eB;
979 if (Cave[y+dy-1][x+dx-1] == Xblank)
980 Cave[y+dy-1][x+dx-1] = Yacid_splash_wB;
981 play_sound(x, y, SAMPLE_acid);
985 case Yacid_splash_eB:
986 case Yacid_splash_wB:
987 Cave[y+dy][x+dx] = (dy ? (dy < 0 ? Yandroid_n : Yandroid_s) :
988 (dx > 0 ? Yandroid_e : Yandroid_w));
989 Next[y+dy][x+dx] = (dy ? (dy < 0 ? Xandroid_2_n : Xandroid_2_s) :
990 (dx > 0 ? Xandroid_2_e : Xandroid_2_w));
993 Cave[y][x] = (dy ? (dy < 0 ? Yandroid_nB : Yandroid_sB) :
994 (dx > 0 ? Yandroid_eB : Yandroid_wB));
995 Next[y][x] = Zplayer;
996 play_element_sound(x, y, SAMPLE_push, Xandroid);
1001 ply->anim = SPR_push + anim;
1006 if (ply->keys & 0x01)
1013 if (ply->keys & 0x02)
1020 if (ply->keys & 0x04)
1027 if (ply->keys & 0x08)
1034 if (ply->keys & 0x10)
1041 if (ply->keys & 0x20)
1048 if (ply->keys & 0x40)
1055 if (ply->keys & 0x80)
1061 if (!tab_blank[Cave[y+dy][x+dx]])
1064 Cave[y+dy][x+dx] = Zplayer;
1065 Next[y+dy][x+dx] = Zplayer;
1066 play_element_sound(x, y, SAMPLE_door, element);
1067 ply->anim = SPR_walk + anim;
1073 play_element_sound(x, y, SAMPLE_press, element);
1074 lev.wheel_cnt = lev.wheel_time;
1080 lev.wind_direction = 0;
1084 lev.wind_direction = 1;
1088 lev.wind_direction = 2;
1092 lev.wind_direction = 3;
1096 lev.wind_direction = dy ? (dy < 0 ? 0 : 2) : (dx > 0 ? 1 : 3);
1100 play_element_sound(x, y, SAMPLE_press, element);
1101 lev.wind_cnt = lev.wind_time;
1105 play_element_sound(x, y, SAMPLE_press, element);
1110 play_element_sound(x, y, SAMPLE_press, element);
1111 lev.ball_cnt = lev.ball_time;
1112 lev.ball_state = !lev.ball_state;
1116 Cave[y][x] = Yplant;
1117 Next[y][x] = Xplant;
1118 play_element_sound(x, y, SAMPLE_blank, Xplant);
1119 ply->anim = SPR_walk + anim;
1127 play_element_sound(x, y, SAMPLE_exit, Xexit_1);
1129 if (--lev.home == 0 && lev.time_initial > 0) /* game won */
1130 lev.score += lev.time * lev.exit_score / 100;
1132 ply->anim = SPR_walk + anim;
1139 if (ply->x == oldx && ply->y == oldy) /* no movement */
1142 else /* player wants to snap */
1144 int element = Cave[y][x];
1148 /* fire is pressed */
1151 Cave[y][x] = Ygrass_eat;
1152 Next[y][x] = Xblank;
1153 play_element_sound(x, y, SAMPLE_dirt, element);
1154 ply->anim = SPR_spray + anim;
1158 Cave[y][x] = Ydirt_eat;
1159 Next[y][x] = Xblank;
1160 play_element_sound(x, y, SAMPLE_dirt, element);
1161 ply->anim = SPR_spray + anim;
1165 case Xdiamond_pause:
1166 Cave[y][x] = Ydiamond_eat;
1167 Next[y][x] = Xblank;
1168 play_element_sound(x, y, SAMPLE_collect, element);
1169 lev.score += lev.diamond_score;
1170 lev.required = lev.required < 3 ? 0 : lev.required - 3;
1171 ply->anim = SPR_walk + anim;
1175 case Xemerald_pause:
1176 Cave[y][x] = Yemerald_eat;
1177 Next[y][x] = Xblank;
1178 play_element_sound(x, y, SAMPLE_collect, element);
1179 lev.score += lev.emerald_score;
1180 lev.required = lev.required < 1 ? 0 : lev.required - 1;
1181 ply->anim = SPR_walk + anim;
1185 Cave[y][x] = Ydynamite_eat;
1186 Next[y][x] = Xblank;
1187 play_element_sound(x, y, SAMPLE_collect, element);
1188 lev.score += lev.dynamite_score;
1189 ply->dynamite = ply->dynamite > 9998 ? 9999 : ply->dynamite + 1;
1190 ply->anim = SPR_walk + anim;
1195 Cave[y][x] = Ykey_1_eat;
1200 Cave[y][x] = Ykey_2_eat;
1205 Cave[y][x] = Ykey_3_eat;
1210 Cave[y][x] = Ykey_4_eat;
1215 Cave[y][x] = Ykey_5_eat;
1220 Cave[y][x] = Ykey_6_eat;
1225 Cave[y][x] = Ykey_7_eat;
1230 Cave[y][x] = Ykey_8_eat;
1234 Next[y][x] = Xblank;
1235 play_element_sound(x, y, SAMPLE_collect, element);
1236 lev.score += lev.key_score;
1237 ply->anim = SPR_walk + anim;
1241 Cave[y][x] = Ylenses_eat;
1242 Next[y][x] = Xblank;
1243 play_element_sound(x, y, SAMPLE_collect, element);
1244 lev.score += lev.lenses_score;
1245 lev.lenses_cnt = lev.lenses_time;
1246 ply->anim = SPR_walk + anim;
1250 Cave[y][x] = Ymagnify_eat;
1251 Next[y][x] = Xblank;
1252 play_element_sound(x, y, SAMPLE_collect, element);
1253 lev.score += lev.magnify_score;
1254 lev.magnify_cnt = lev.magnify_time;
1255 ply->anim = SPR_walk + anim;