Single source of truth for wall pathing

2025-10-24 14:25:19 +01:00
parent 0eeae7e6bc
commit 488428b1ef
19 changed files with 156 additions and 121 deletions
@@ -17,7 +17,7 @@ damageWall dt wl (is,w) = case _wlStructure wl of
    BlockPart blid ->
        w' & cWorld . lWorld . blocks . ix blid . blHP -~ dmam
            & maybeDestroyBlock is blid
-    DoorPart drid ->
+    DoorPart drid _ ->
        f $ w' & cWorld . lWorld . doors . ix drid . drHP -~ dmam
 --            & maybeDestroyDoor drid
    _ -> f w'