Work on menus

2022-11-22 10:14:25 +00:00
parent 054405244f
commit 860d63df45
13 changed files with 251 additions and 167 deletions
@@ -80,13 +80,25 @@ firstWorldLoad theConfig = do
    --return $ startNewGame $ Universe
    cancontinue <- doesFileExist "saveSlot/0"
    mseed <- loadSeed
+    let u = Universe
+            { --{_uvWorld = initialWorld
+              _uvWorld = splashScreen
+            , _uvConfig = theConfig
+            , _preloadData = pdata
+            , _uvScreenLayers = []
+            , _uvIOEffects = return
+            , _uvTestString = testStringInit
+            , _uvSideEffects = mempty
+            , _uvCanContinue = cancontinue
+            , _uvMSeed = mseed
+            }
    return $
        Universe
            { --{_uvWorld = initialWorld
              _uvWorld = splashScreen
            , _uvConfig = theConfig
            , _preloadData = pdata
-            , _uvScreenLayers = [splashMenu]
+            , _uvScreenLayers = [splashMenu u]
            , _uvIOEffects = return
            , _uvTestString = testStringInit
            , _uvSideEffects = mempty