Unify save states

2021-10-19 14:20:56 +01:00
parent 4c3a18d7d7
commit 1f8b4b8565
6 changed files with 25 additions and 18 deletions
@@ -50,13 +50,12 @@ initialWorld = defaultWorld
    , _mousePos = V2 0 0
    , _testString = testStringInit
    , _yourID = 0
-    , _worldEvents = storeLevel . soundStart BackgroundSound (V2 0 0) foamSprayFadeOutS Nothing 
+    , _worldEvents = saveWorldInEmptySlot LevelStartSlot . soundStart BackgroundSound (V2 0 0) foamSprayFadeOutS Nothing 
        . foldr ((.) . makeStartCloudAt) id [V3 x y 5 | x <- [-5,-3..5] , y <- [-5,-3..5]]
    , _pressPlates = IM.empty
    , _buttons = IM.empty
    , _toPlaySounds = M.empty
    , _decorations = IM.empty
-    , _storedLevel = Nothing
    , _menuLayers = [TerminalScreen 300 rezText']
    }
 testStringInit :: World -> [String]