Add text messages on loading screens

2025-12-05 10:29:16 +00:00
parent 14d50c4242
commit 0a34db312f
20 changed files with 409 additions and 318 deletions
@@ -8,9 +8,7 @@ import qualified IntMapHelp as IM
 import Dodge.SpawnAt

 splashScreen :: World
-splashScreen = 
-    defaultWorld
-        & cWorld . lWorld . creatures .~ IM.fromList [(0, startCr)]
+splashScreen = defaultWorld & cWorld . lWorld . creatures .~ IM.fromList [(0, startCr)]

 initialWorld :: World
 initialWorld = respawn defaultWorld