summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorProgKea <keanu.daniel@e-mail.de>2024-03-30 12:16:29 +0100
committerProgKea <keanu.daniel@e-mail.de>2024-03-30 12:26:01 +0100
commitd587f91e684e2140ca74d62446011b2520257164 (patch)
treed0547a173afc1329619066bd2ff0436e053fb853
parent246f696a1c15a30b0c2f64bf9b167bee11e9f51b (diff)
fix #9 by first calling Game_Bombs_Turn
-rw-r--r--eepers.adb4
1 files changed, 2 insertions, 2 deletions
diff --git a/eepers.adb b/eepers.adb
index 3ea4cc4..6109f1b 100644
--- a/eepers.adb
+++ b/eepers.adb
@@ -1401,8 +1401,8 @@ procedure Eepers is
Game_Explosions_Turn(Game);
Game_Items_Turn(Game);
Game_Player_Turn(Game, C.Dir);
- Game_Eepers_Turn(Game);
Game_Bombs_Turn(Game);
+ Game_Eepers_Turn(Game);
Game.Duration_Of_Last_Turn := Get_Time - Start_Of_Turn;
end;
when Command_Plant =>
@@ -1420,8 +1420,8 @@ procedure Eepers is
Game.Player.Prev_Eyes := Game.Player.Eyes;
Game.Player.Prev_Position := Game.Player.Position;
- Game_Eepers_Turn(Game);
Game_Bombs_Turn(Game);
+ Game_Eepers_Turn(Game);
if Game.Player.Bombs > 0 then
for Bomb of Game.Bombs loop