Fix no damage to walls bug

2022-07-28 18:57:53 +01:00
parent ec4ff84c46
commit c8ad3e1294
19 changed files with 177 additions and 158 deletions
@@ -7,12 +7,13 @@ import Dodge.Wall.Damage
 import FoldableHelp
 import Geometry.Vector
 import LensHelp
+import qualified IntMapHelp as IM

 damageCrWlID :: Damage -> CrWlID -> World -> World
 damageCrWlID dam crwl = case crwl of
    NothingID -> id
    CrID cid -> cWorld . creatures . ix cid . crState . csDamage .:~ dam
-    WlID wlid -> cWorld . wallDamages . ix wlid .:~ dam
+    WlID wlid -> cWorld . wallDamages %~ IM.insertWith (++) wlid [dam]

 damageCrWall :: Damage -> Either Creature Wall -> World -> World
 damageCrWall dt (Left cr) = cWorld . creatures . ix (_crID cr) . crState . csDamage .:~ dt