Work on saving/loading concurrently

2022-08-18 10:05:24 +01:00
parent 26e88f059a
commit c74d3b04bf
20 changed files with 232 additions and 154 deletions
@@ -8,11 +8,15 @@ import Dodge.SoundLogic
 import Geometry.Data
 import qualified IntMapHelp as IM

+splashScreen :: World
+splashScreen = 
+    defaultWorld
+        & cWorld . creatures .~ IM.fromList [(0, startCr)]
+
 initialWorld :: World
 initialWorld =
    defaultWorld
        & cWorld . cameraZoom .~ 10
        & cWorld . creatures .~ IM.fromList [(0, startCr)]
-        & cWorld . yourID .~ 0
        & cWorld . worldEvents .~ SoundStart BackgroundSound (V2 0 0) foamSprayFadeOutS Nothing :
        [MakeStartCloudAt (V3 x y 5) | x <- [-5, -4 .. 5], y <- [-5, -4 .. 5]]