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
@@ -34,8 +34,7 @@ damageWall wlid dt w = fromMaybe (mempty,w) $ do
        MachinePart mcid -> (,) mempty 
            $ w' & cWorld . lWorld . machines . ix mcid . mcDamage .:~ dt
        BlockPart blid ->
-            w' & damageBlock (wl ^. wlMaterial) dmam blid -- cWorld . lWorld . blocks . ix blid . blHP -~ dmam
--                & maybeDestroyBlock blid
+            w' & damageBlock (wl ^. wlMaterial) dmam blid
        DoorPart drid _ ->
            w' & cWorld . lWorld . doors . ix drid . drHP -~ dmam
                & maybeDestroyDoor drid