Work on creature destruction/damage update

2026-04-16 17:31:53 +01:00
parent 033991ad3f
commit 722a25240e
7 changed files with 102 additions and 88 deletions
@@ -26,7 +26,6 @@ updateExpBarrel ps cr w = case cr ^. crHP of
            & cWorld . lWorld . creatures . ix (_crID cr) %~ damsToExpBarrel damages
            & cWorld . lWorld . creatures . ix (_crID cr) . crHP . _HP
                -~ length (_piercedPoints . _barrelType $ _crType cr)
-            & cWorld . lWorld . creatures . ix (_crID cr) . crDamage .~ mempty
            & flip (foldl' f) ps
    HP _ ->
        w