Improve configuration handling

2021-04-08 02:48:25 +02:00
parent ddb1171e2e
commit f1214c0584
14 changed files with 118 additions and 54 deletions
@@ -65,7 +65,7 @@ data World = World
    , _pathPoints           :: ~(IM.IntMap (IM.IntMap [(Int,Point2)]))
    , _pathInc              :: ~(M.Map Point2 [Point2])
    , _storedLevel          :: Maybe World
-    , _menuState            :: MenuState
+    , _menuLayers           :: [MenuLayer]
    , _worldState           :: M.Map WorldState Bool
    , _windowX              :: !Float
    , _windowY              :: !Float
@@ -83,6 +83,7 @@ data World = World
    , _varMovementStrafeSpeedModifier :: Float
    , _debugMode            :: Bool
    , _config               :: Configuration
+    , _configNeedsUpdate    :: Bool
    } 

 data Corpse = Corpse
@@ -100,7 +101,7 @@ data Layer
    | FlItLayer 
    | LabelLayer 
    | InvLayer 
-    | MenuLayer
+    | MenuDepth
    | PressPlateLayer 
    | CorpseLayer
    | UPtLayer