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 *);
26 /* must test for death and actually kill separately */
28 for (i = 0; i < MAX_PLAYERS; i++)
30 boolean ply_kill = player_killed(&ply[i]);
32 if (ply[i].alive && ply_kill)
38 /* must test for death and actually kill separately */
39 boolean ply1_kill = player_killed(&ply1);
40 boolean ply2_kill = player_killed(&ply2);
42 if (ply1.alive && ply1_kill)
44 if (ply2.alive && ply2_kill)
50 ply1.alive = 1; /* debugging */
55 for (i = 0; i < MAX_PLAYERS; i++)
57 ply[i].oldx = ply[i].x;
58 ply[i].oldy = ply[i].y;
59 ply[i].anim = SPR_still;
62 start_check_nr = (RandomEM & 128 ? 0 : 1) * 2 + (RandomEM & 256 ? 0 : 1);
64 for (i = 0; i < MAX_PLAYERS; i++)
66 int check_nr = (start_check_nr + i) % MAX_PLAYERS;
68 if (ply[check_nr].alive)
69 check_player(&ply[check_nr]);
72 for (i = 0; i < MAX_PLAYERS; i++)
77 if (Cave[ply[i].oldy][ply[i].oldx] == Zplayer)
79 Cave[ply[i].oldy][ply[i].oldx] = Xblank;
80 Next[ply[i].oldy][ply[i].oldx] = Xblank;
83 if (Cave[ply[i].y][ply[i].x] == Xblank)
85 Cave[ply[i].y][ply[i].x] = Zplayer;
86 Next[ply[i].y][ply[i].x] = Zplayer;
94 ply1.anim = SPR_still;
97 ply2.anim = SPR_still;
101 if (ply1.alive) check_player(&ply1);
102 if (ply2.alive) check_player(&ply2);
106 if (ply2.alive) check_player(&ply2);
107 if (ply1.alive) check_player(&ply1);
112 if (Cave[ply1.oldy][ply1.oldx] == Zplayer)
114 Cave[ply1.oldy][ply1.oldx] = Xblank;
115 Next[ply1.oldy][ply1.oldx] = Xblank;
118 if (Cave[ply1.y][ply1.x] == Xblank)
120 Cave[ply1.y][ply1.x] = Zplayer;
121 Next[ply1.y][ply1.x] = Zplayer;
127 if (Cave[ply2.oldy][ply2.oldx] == Zplayer)
129 Cave[ply2.oldy][ply2.oldx] = Xblank;
130 Next[ply2.oldy][ply2.oldx] = Xblank;
133 if (Cave[ply2.y][ply2.x] == Xblank)
135 Cave[ply2.y][ply2.x] = Zplayer;
136 Next[ply2.y][ply2.x] = Zplayer;
143 static boolean player_killed(struct PLAYER *ply)
145 register unsigned int x = ply->x;
146 register unsigned int y = ply->y;
149 printf("::: %d: %d, %d\n", ply->num, x, y);
156 if (lev.killed_out_of_time && setup.time_limit)
159 if (lev.time_initial > 0 && lev.time == 0 && setup.time_limit)
250 case Yacid_splash_eB:
251 case Yacid_splash_wB:
273 static void kill_player(struct PLAYER *ply)
275 register unsigned int x = ply->x;
276 register unsigned int y = ply->y;
290 Cave[y-1][x] = Xboom_bug;
292 play_element_sound(x, y, SAMPLE_boom, Zplayer);
304 Cave[y-1][x] = Xboom_bomb;
306 play_element_sound(x, y, SAMPLE_boom, Zplayer);
321 Cave[y][x+1] = Xboom_bug;
323 play_element_sound(x, y, SAMPLE_boom, Zplayer);
335 Cave[y][x+1] = Xboom_bomb;
337 play_element_sound(x, y, SAMPLE_boom, Zplayer);
352 Cave[y+1][x] = Xboom_bug;
354 play_element_sound(x, y, SAMPLE_boom, Zplayer);
366 Cave[y+1][x] = Xboom_bomb;
368 play_element_sound(x, y, SAMPLE_boom, Zplayer);
383 Cave[y][x-1] = Xboom_bug;
385 play_element_sound(x, y, SAMPLE_boom, Zplayer);
397 Cave[y][x-1] = Xboom_bomb;
399 play_element_sound(x, y, SAMPLE_boom, Zplayer);
409 play_element_sound(x, y, SAMPLE_exit_leave, Xexit_1);
413 play_element_sound(x, y, SAMPLE_die, Zplayer);
432 Cave[y][x] = Xboom_1;
438 static void check_player(struct PLAYER *ply)
440 unsigned int oldx = ply->x;
441 unsigned int oldy = ply->y;
442 register unsigned int x = oldx;
443 register unsigned int y = oldy;
444 unsigned int anim = 0;
448 printf("::: up == %d, down == %d, left == %d, right == %d, fire == %d [spin == %d, stick == %d]\n",
449 ply->joy_n, ply->joy_s, ply->joy_w, ply->joy_e, ply->joy_fire,
450 ply->joy_spin, ply->joy_stick);
454 if (ply->joy_w) /* west */
460 else if (ply->joy_e) /* east */
467 if (ply->joy_n) /* north */
473 else if (ply->joy_s) /* south */
482 if ((ply->joy_spin = !ply->joy_spin))
484 if (ply->joy_n) /* north */
490 else if (ply->joy_e) /* east */
496 else if (ply->joy_s) /* south */
502 else if (ply->joy_w) /* west */
511 if (ply->joy_w) /* west */
517 else if (ply->joy_s) /* south */
523 else if (ply->joy_e) /* east */
529 else if (ply->joy_n) /* north */
538 if (dx == 0 && dy == 0)
544 if (++ply->dynamite_cnt == 5 && ply->dynamite)
546 Cave[y][x] = Xdynamite_1;
547 play_element_sound(x, y, SAMPLE_dynamite, Xdynamite_1);
553 ply->dynamite_cnt = 0;
556 RandomEM += 7; /* be a bit more random if the player doesn't move */
562 ply->joy_n = ply->joy_e = ply->joy_s = ply->joy_w = 0;
563 ply->dynamite_cnt = 0; /* reset dynamite timer if we move */
564 ply->joy_spin = !ply->joy_spin;
566 if (ply->joy_snap == 0) /* player wants to move */
568 boolean moved = FALSE;
570 if (ply->last_move_dir & MV_HORIZONTAL)
572 if (!(moved = player_digfield(ply, 0, dy)))
573 moved = player_digfield(ply, dx, 0);
577 if (!(moved = player_digfield(ply, dx, 0)))
578 moved = player_digfield(ply, 0, dy);
584 ply->last_move_dir = (dx < 0 ? MV_LEFT : MV_RIGHT);
585 else if (oldy != ply->y)
586 ply->last_move_dir = (dy < 0 ? MV_UP : MV_DOWN);
589 else /* player wants to snap */
591 player_digfield(ply, dx, dy);
595 static boolean player_digfield(struct PLAYER *ply, int dx, int dy)
597 int anim = (dx < 0 ? 3 : dx > 0 ? 1 : dy < 0 ? 0 : dy > 0 ? 2 : 2);
598 unsigned int oldx = ply->x;
599 unsigned int oldy = ply->y;
600 register unsigned int x = oldx + dx;
601 register unsigned int y = oldy + dy;
602 boolean result = TRUE;
604 if (!dx && !dy) /* no direction specified */
607 if (dx && dy && ply->joy_snap) /* more than one direction specified */
610 if (ply->joy_snap == 0) /* player wants to move */
612 int element = Cave[y][x];
616 /* fire is released */
618 case Yacid_splash_eB:
619 case Yacid_splash_wB:
620 Cave[y][x] = Zplayer;
621 Next[y][x] = Zplayer;
632 play_element_sound(x, y, SAMPLE_blank, Xblank);
633 ply->anim = SPR_walk + anim;
648 if (Cave[y-1][x+1] == Xblank)
649 Cave[y-1][x+1] = Yacid_splash_eB;
650 if (Cave[y-1][x-1] == Xblank)
651 Cave[y-1][x-1] = Yacid_splash_wB;
652 play_element_sound(x, y, SAMPLE_acid, Xacid_1);
682 ply->anim = SPR_walk + anim;
688 Cave[y][x] = (dy ? (dy < 0 ? Ygrass_nB : Ygrass_sB) :
689 (dx > 0 ? Ygrass_eB : Ygrass_wB));
690 Next[y][x] = Zplayer;
691 play_element_sound(x, y, SAMPLE_dirt, Xgrass);
692 ply->anim = SPR_walk + anim;
698 Cave[y][x] = (dy ? (dy < 0 ? Ydirt_nB : Ydirt_sB) :
699 (dx > 0 ? Ydirt_eB : Ydirt_wB));
700 Next[y][x] = Zplayer;
701 play_element_sound(x, y, SAMPLE_dirt, Xdirt);
702 ply->anim = SPR_walk + anim;
709 Cave[y][x] = Ydiamond_eat;
710 Next[y][x] = Zplayer;
711 play_element_sound(x, y, SAMPLE_collect, element);
712 lev.score += lev.diamond_score;
713 lev.required = lev.required < 3 ? 0 : lev.required - 3;
714 ply->anim = SPR_walk + anim;
721 Cave[y][x] = Yemerald_eat;
722 Next[y][x] = Zplayer;
723 play_element_sound(x, y, SAMPLE_collect, element);
724 lev.score += lev.emerald_score;
725 lev.required = lev.required < 1 ? 0 : lev.required - 1;
726 ply->anim = SPR_walk + anim;
732 Cave[y][x] = Ydynamite_eat;
733 Next[y][x] = Zplayer;
734 play_element_sound(x, y, SAMPLE_collect, element);
735 lev.score += lev.dynamite_score;
736 ply->dynamite = ply->dynamite > 9998 ? 9999 : ply->dynamite + 1;
737 ply->anim = SPR_walk + anim;
744 Cave[y][x] = Ykey_1_eat;
749 Cave[y][x] = Ykey_2_eat;
754 Cave[y][x] = Ykey_3_eat;
759 Cave[y][x] = Ykey_4_eat;
764 Cave[y][x] = Ykey_5_eat;
769 Cave[y][x] = Ykey_6_eat;
774 Cave[y][x] = Ykey_7_eat;
779 Cave[y][x] = Ykey_8_eat;
784 Next[y][x] = Zplayer;
785 play_element_sound(x, y, SAMPLE_collect, element);
786 lev.score += lev.key_score;
787 ply->anim = SPR_walk + anim;
793 Cave[y][x] = Ylenses_eat;
794 Next[y][x] = Zplayer;
795 play_element_sound(x, y, SAMPLE_collect, element);
796 lev.score += lev.lenses_score;
797 lev.lenses_cnt = lev.lenses_time;
798 ply->anim = SPR_walk + anim;
804 Cave[y][x] = Ymagnify_eat;
805 Next[y][x] = Zplayer;
806 play_element_sound(x, y, SAMPLE_collect, element);
807 lev.score += lev.magnify_score;
808 lev.magnify_cnt = lev.magnify_time;
809 ply->anim = SPR_walk + anim;
818 switch(Cave[y][x+dx])
828 if (Cave[y-1][x+dx+1] == Xblank)
829 Cave[y-1][x+dx+1] = Yacid_splash_eB;
830 if (Cave[y-1][x+dx-1] == Xblank)
831 Cave[y-1][x+dx-1] = Yacid_splash_wB;
832 play_element_sound(x, y, SAMPLE_acid, Xacid_1);
836 case Yacid_splash_eB:
837 case Yacid_splash_wB:
838 Cave[y][x+dx] = dx > 0 ? Ystone_e : Ystone_w;
839 Next[y][x+dx] = Xstone_pause;
843 Cave[y][x] = dx > 0 ? Ystone_eB : Ystone_wB;
844 Next[y][x] = Zplayer;
845 play_element_sound(x, y, SAMPLE_roll, Xstone);
849 ply->anim = SPR_push + anim;
856 switch(Cave[y][x+dx])
866 if (Cave[y-1][x+dx+1] == Xblank)
867 Cave[y-1][x+dx+1] = Yacid_splash_eB;
868 if (Cave[y-1][x+dx-1] == Xblank)
869 Cave[y-1][x+dx-1] = Yacid_splash_wB;
870 play_element_sound(x, y, SAMPLE_acid, Xacid_1);
874 case Yacid_splash_eB:
875 case Yacid_splash_wB:
876 Cave[y][x+dx] = dx > 0 ? Ybomb_e : Ybomb_w;
877 Next[y][x+dx] = Xbomb_pause;
881 Cave[y][x] = dx > 0 ? Ybomb_eB : Ybomb_wB;
882 Next[y][x] = Zplayer;
883 play_element_sound(x, y, SAMPLE_roll, Xbomb);
887 ply->anim = SPR_push + anim;
894 switch(Cave[y][x+dx])
904 if (Cave[y-1][x+dx+1] == Xblank)
905 Cave[y-1][x+dx+1] = Yacid_splash_eB;
906 if (Cave[y-1][x+dx-1] == Xblank)
907 Cave[y-1][x+dx-1] = Yacid_splash_wB;
908 play_element_sound(x, y, SAMPLE_acid, Xacid_1);
912 case Yacid_splash_eB:
913 case Yacid_splash_wB:
914 Cave[y][x+dx] = dx > 0 ? Ynut_e : Ynut_w;
915 Next[y][x+dx] = Xnut_pause;
919 Cave[y][x] = dx > 0 ? Ynut_eB : Ynut_wB;
920 Next[y][x] = Zplayer;
921 play_element_sound(x, y, SAMPLE_roll, Xnut);
925 ply->anim = SPR_push + anim;
932 switch(Cave[y][x+dx])
936 Cave[y][x] = dx > 0 ? Yspring_kill_eB : Yspring_kill_wB;
937 Cave[y][x+dx] = dx > 0 ? Yspring_kill_e : Yspring_kill_w;
938 Next[y][x] = Zplayer;
939 Next[y][x+dx] = dx > 0 ? Xspring_e : Xspring_w;
940 play_element_sound(x, y, SAMPLE_slurp, Xalien);
941 lev.score += lev.slurp_score;
953 if (Cave[y-1][x+dx+1] == Xblank)
954 Cave[y-1][x+dx+1] = Yacid_splash_eB;
955 if (Cave[y-1][x+dx-1] == Xblank)
956 Cave[y-1][x+dx-1] = Yacid_splash_wB;
957 play_element_sound(x, y, SAMPLE_acid, Xacid_1);
961 case Yacid_splash_eB:
962 case Yacid_splash_wB:
963 Cave[y][x+dx] = dx > 0 ? Yspring_e : Yspring_w;
964 Next[y][x+dx] = dx > 0 ? Xspring_e : Xspring_w;
967 Cave[y][x] = dx > 0 ? Yspring_eB : Yspring_wB;
968 Next[y][x] = Zplayer;
969 play_element_sound(x, y, SAMPLE_roll, Xspring);
973 ply->anim = SPR_push + anim;
980 case Xsand_stonein_1:
981 case Xsand_stonein_2:
982 case Xsand_stonein_3:
983 case Xsand_stonein_4:
987 ply->anim = SPR_push + anim;
991 switch(Cave[y+dy][x+dx])
1001 if (Cave[y+dy-1][x+dx+1] == Xblank)
1002 Cave[y+dy-1][x+dx+1] = Yacid_splash_eB;
1003 if (Cave[y+dy-1][x+dx-1] == Xblank)
1004 Cave[y+dy-1][x+dx-1] = Yacid_splash_wB;
1005 play_element_sound(x, y, SAMPLE_acid, Xacid_1);
1009 case Yacid_splash_eB:
1010 case Yacid_splash_wB:
1011 Cave[y+dy][x+dx] = (dy ? (dy < 0 ? Yballoon_n : Yballoon_s) :
1012 (dx > 0 ? Yballoon_e : Yballoon_w));
1013 Next[y+dy][x+dx] = Xballoon;
1016 Cave[y][x] = (dy ? (dy < 0 ? Yballoon_nB : Yballoon_sB) :
1017 (dx > 0 ? Yballoon_eB : Yballoon_wB));
1018 Next[y][x] = Zplayer;
1019 play_element_sound(x, y, SAMPLE_push, Xballoon);
1024 ply->anim = SPR_push + anim;
1036 switch(Cave[y+dy][x+dx])
1046 if (Cave[y+dy-1][x+dx+1] == Xblank)
1047 Cave[y+dy-1][x+dx+1] = Yacid_splash_eB;
1048 if (Cave[y+dy-1][x+dx-1] == Xblank)
1049 Cave[y+dy-1][x+dx-1] = Yacid_splash_wB;
1050 play_element_sound(x, y, SAMPLE_acid, Xacid_1);
1054 case Yacid_splash_eB:
1055 case Yacid_splash_wB:
1056 Cave[y+dy][x+dx] = (dy ? (dy < 0 ? Yandroid_n : Yandroid_s) :
1057 (dx > 0 ? Yandroid_e : Yandroid_w));
1058 Next[y+dy][x+dx] = (dy ? (dy < 0 ? Xandroid_2_n : Xandroid_2_s) :
1059 (dx > 0 ? Xandroid_2_e : Xandroid_2_w));
1062 Cave[y][x] = (dy ? (dy < 0 ? Yandroid_nB : Yandroid_sB) :
1063 (dx > 0 ? Yandroid_eB : Yandroid_wB));
1064 Next[y][x] = Zplayer;
1065 play_element_sound(x, y, SAMPLE_push, Xandroid);
1070 ply->anim = SPR_push + anim;
1075 if (ply->keys & 0x01)
1082 if (ply->keys & 0x02)
1089 if (ply->keys & 0x04)
1096 if (ply->keys & 0x08)
1103 if (ply->keys & 0x10)
1110 if (ply->keys & 0x20)
1117 if (ply->keys & 0x40)
1124 if (ply->keys & 0x80)
1130 if (!tab_blank[Cave[y+dy][x+dx]])
1133 Cave[y+dy][x+dx] = Zplayer;
1134 Next[y+dy][x+dx] = Zplayer;
1135 play_element_sound(x, y, SAMPLE_door, element);
1136 ply->anim = SPR_walk + anim;
1142 play_element_sound(x, y, SAMPLE_press, element);
1143 lev.wheel_cnt = lev.wheel_time;
1149 lev.wind_direction = 0;
1153 lev.wind_direction = 1;
1157 lev.wind_direction = 2;
1161 lev.wind_direction = 3;
1165 lev.wind_direction = dy ? (dy < 0 ? 0 : 2) : (dx > 0 ? 1 : 3);
1169 play_element_sound(x, y, SAMPLE_press, element);
1170 lev.wind_cnt = lev.wind_time;
1174 play_element_sound(x, y, SAMPLE_press, element);
1179 play_element_sound(x, y, SAMPLE_press, element);
1180 lev.ball_cnt = lev.ball_time;
1181 lev.ball_state = !lev.ball_state;
1185 Cave[y][x] = Yplant;
1186 Next[y][x] = Xplant;
1187 play_element_sound(x, y, SAMPLE_blank, Xplant);
1188 ply->anim = SPR_walk + anim;
1196 play_element_sound(x, y, SAMPLE_exit_leave, Xexit_1);
1201 /* !!! CHECK SCORE CALCULATION !!! */
1202 if (lev.home == 0 && lev.time_initial > 0) /* game won */
1203 lev.score += lev.time * lev.exit_score / 100;
1206 ply->anim = SPR_walk + anim;
1213 if (ply->x == oldx && ply->y == oldy) /* no movement */
1216 else /* player wants to snap */
1218 int element = Cave[y][x];
1222 /* fire is pressed */
1225 Cave[y][x] = Ygrass_eat;
1226 Next[y][x] = Xblank;
1227 play_element_sound(x, y, SAMPLE_dirt, element);
1228 ply->anim = SPR_spray + anim;
1232 Cave[y][x] = Ydirt_eat;
1233 Next[y][x] = Xblank;
1234 play_element_sound(x, y, SAMPLE_dirt, element);
1235 ply->anim = SPR_spray + anim;
1239 case Xdiamond_pause:
1240 Cave[y][x] = Ydiamond_eat;
1241 Next[y][x] = Xblank;
1242 play_element_sound(x, y, SAMPLE_collect, element);
1243 lev.score += lev.diamond_score;
1244 lev.required = lev.required < 3 ? 0 : lev.required - 3;
1245 ply->anim = SPR_walk + anim;
1249 case Xemerald_pause:
1250 Cave[y][x] = Yemerald_eat;
1251 Next[y][x] = Xblank;
1252 play_element_sound(x, y, SAMPLE_collect, element);
1253 lev.score += lev.emerald_score;
1254 lev.required = lev.required < 1 ? 0 : lev.required - 1;
1255 ply->anim = SPR_walk + anim;
1259 Cave[y][x] = Ydynamite_eat;
1260 Next[y][x] = Xblank;
1261 play_element_sound(x, y, SAMPLE_collect, element);
1262 lev.score += lev.dynamite_score;
1263 ply->dynamite = ply->dynamite > 9998 ? 9999 : ply->dynamite + 1;
1264 ply->anim = SPR_walk + anim;
1269 Cave[y][x] = Ykey_1_eat;
1274 Cave[y][x] = Ykey_2_eat;
1279 Cave[y][x] = Ykey_3_eat;
1284 Cave[y][x] = Ykey_4_eat;
1289 Cave[y][x] = Ykey_5_eat;
1294 Cave[y][x] = Ykey_6_eat;
1299 Cave[y][x] = Ykey_7_eat;
1304 Cave[y][x] = Ykey_8_eat;
1308 Next[y][x] = Xblank;
1309 play_element_sound(x, y, SAMPLE_collect, element);
1310 lev.score += lev.key_score;
1311 ply->anim = SPR_walk + anim;
1315 Cave[y][x] = Ylenses_eat;
1316 Next[y][x] = Xblank;
1317 play_element_sound(x, y, SAMPLE_collect, element);
1318 lev.score += lev.lenses_score;
1319 lev.lenses_cnt = lev.lenses_time;
1320 ply->anim = SPR_walk + anim;
1324 Cave[y][x] = Ymagnify_eat;
1325 Next[y][x] = Xblank;
1326 play_element_sound(x, y, SAMPLE_collect, element);
1327 lev.score += lev.magnify_score;
1328 lev.magnify_cnt = lev.magnify_time;
1329 ply->anim = SPR_walk + anim;