From 8cc415967fc01c446ba5895cf17b619b91940622 Mon Sep 17 00:00:00 2001
From: rexim <reximkut@gmail.com>
Date: Tue, 19 Mar 2024 02:39:22 +0700
Subject: Fix checkpoint bug

---
 game.adb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'game.adb')

diff --git a/game.adb b/game.adb
index dfc3a65..80a1c25 100644
--- a/game.adb
+++ b/game.adb
@@ -713,6 +713,7 @@ procedure Game is
 
         case Game.Map(New_Position.Y, New_Position.X) is
            when Floor =>
+               Game.Player.Position := New_Position;
                declare
                    use Hashed_Map_Items;
                    C: Cursor := Game.Items.Find(New_Position);
@@ -732,7 +733,6 @@ procedure Game is
                        end case;
                    end if;
                end;
-               Game.Player.Position := New_Position;
            when Door =>
                if Game.Player.Keys > 0 then
                    Game.Player.Keys := Game.Player.Keys - 1;
@@ -1257,7 +1257,6 @@ begin
     Close_Window;
 end;
 
---  TODO: Checkpoint saving time is one turn off @bug
 --  TODO: Second Boss as the Final Boss. Two Shreks as the Second Boss. @content
 --  TODO: Eyes for Bosses
 --  TODO: Side-room after first boss with Gnomes that drop keys to unlock bombs for the Second Boss @content
-- 
cgit v1.2.3