Commit before pushing more input events into update

2022-10-29 22:33:10 +01:00
parent afaef480db
commit e3155752ba
36 changed files with 121 additions and 147 deletions
@@ -16,7 +16,7 @@ splashScreen =
 initialWorld :: World
 initialWorld =
    defaultWorld
-        & cWorld . lWorld . camPos . camZoom .~ 10
+        & cWorld . camPos . camZoom .~ 10
        & cWorld . lWorld . creatures .~ IM.fromList [(0, startCr)]
        & cWorld . lWorld . worldEvents .~ SoundStart BackgroundSound (V2 0 0) foamSprayFadeOutS Nothing :
        [MakeStartCloudAt (V3 x y 5) | x <- [-5, -4 .. 5], y <- [-5, -4 .. 5]]