diff options
| -rw-r--r-- | eepers.adb | 18 |
1 files changed, 13 insertions, 5 deletions
@@ -215,6 +215,15 @@ procedure Eepers is type Map_Access is access Map; procedure Delete_Map is new Ada.Unchecked_Deallocation(Map, Map_Access); + procedure Reset_Path_Map(Path: Path_Map_Access) is + begin + for Y in Path'Range(1) loop + for X in Path'Range(2) loop + Path(Y, X) := -1; + end loop; + end loop; + end; + function "<="(A, B: IVector2) return Boolean is begin return A.X <= B.X and then A.Y <= B.Y; @@ -496,11 +505,7 @@ procedure Eepers is Q: Queue.Vector; Eeper: Eeper_State renames Game.Eepers(Me); begin - for Y in Eeper.Path'Range(1) loop - for X in Eeper.Path'Range(2) loop - Eeper.Path(Y, X) := -1; - end loop; - end loop; + Reset_Path_Map(Eeper.Path); for Dy in 0..Eeper.Size.Y-1 loop for Dx in 0..Eeper.Size.X-1 loop @@ -1399,6 +1404,9 @@ procedure Eepers is if (Get_Time - Game.Player.Death_Time) > RESTART_TIMEOUT_SECS then Game_Restore_Checkpoint(Game); + for Me in Eeper_Index loop + Reset_Path_Map(Game.Eepers(Me).Path); + end loop; Game.Player.Dead := False; end if; |