Add quicksave

2021-09-13 00:17:45 +01:00
parent 064d43f903
commit 49274064a0
11 changed files with 28 additions and 18 deletions
@@ -77,9 +77,10 @@ data World = World
    , _corpses              :: Zone [Corpse]
    , _clickMousePos        :: !Point2
    , _pathGraph            :: ~(Gr Point2 Float)
-    , _pathGraph'           :: ~[(Point2,Point2)]
+    , _pathGraphP           :: ~[(Point2,Point2)]
    , _pathPoints           :: ~(IM.IntMap (IM.IntMap [(Int,Point2)]))
    , _storedLevel          :: Maybe World
+    , _quicksaveLevel       :: Maybe World
    , _menuLayers           :: [ScreenLayer]
    , _worldState           :: M.Map WorldState Bool
    , _worldTriggers        :: S.Set WorldTrigger