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
@@ -62,7 +62,7 @@ updateLamp h i cr w
        & creatures . at cid .~ Nothing
    | otherwise = w 
        & lightSources . ix i . lsParam . lsPos .~ addZ h cpos
-        & creatures . ix cid %~ doDamage
+        & creatures . ix cid %~ (snd . doDamage)
  where
    cpos = _crPos cr
    cid  = _crID cr