Unify save states

2021-10-19 14:20:56 +01:00
parent 4c3a18d7d7
commit 1f8b4b8565
6 changed files with 25 additions and 18 deletions
@@ -78,10 +78,8 @@ data World = World
    , _pathGraph            :: ~(Gr Point2 Float)
    , _pathGraphP           :: ~[(Point2,Point2)]
    , _pathPoints           :: ~(IM.IntMap (IM.IntMap [(Int,Point2)]))
-    , _storedLevel          :: Maybe World
-    , _quicksaveLevel       :: Maybe World
+    , _savedWorlds          :: M.Map SaveSlot World
    , _menuLayers           :: [ScreenLayer]
--    , _worldState           :: M.Map WorldState Bool
    , _worldTriggers        :: S.Set WorldTrigger
    , _carteDisplay         :: !Bool
    , _carteCenter          :: !Point2
@@ -103,6 +101,9 @@ data World = World
    , _frameClock           :: Int
    , _worldBounds          :: Bounds
    }
+data SaveSlot = QuicksaveSlot | LevelStartSlot
+  deriving (Eq,Ord)
+
 data OptionScreenFlag = NormalOptions | GameOverOptions
 data ScreenLayer
    = OptionScreen