Make damage application belong to hit object

2022-03-25 08:33:54 +00:00
parent 3aea0db385
commit 9adc7c81f4
9 changed files with 30 additions and 65 deletions
@@ -59,7 +59,7 @@ explosiveBarrel = defaultInanimate
    }
 updateBarrel :: Creature -> World -> World
 updateBarrel cr
-    | _crHP cr > 0 = creatures . ix (_crID cr) %~ doDamage
+    | _crHP cr > 0 = creatures . ix (_crID cr) %~ (snd . doDamage)
    | otherwise    = creatures . at (_crID cr) .~ Nothing

 -- should generate the sparks externally using new random generators