justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Continue tweaking sounds

Browse Source
This commit is contained in:
justin
2025-06-22 14:32:53 +01:00
parent a109d54d96
commit 2553239882
5 changed files with 264 additions and 251 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Creature/Damage.hs
+1 -1
View File
@@ -49,7 +49,7 @@ applyCreatureDamage dms cr w = foldl' (applyIndividualDamage cr) w dms
--p = _dmAt dm
applyIndividualDamage :: Creature -> World -> Damage -> World
applyIndividualDamage cr w dm = damageMaterial dm (crMaterial (_crType cr)) (Left cr) $
applyIndividualDamage cr w dm = damMatSideEffect dm (crMaterial (_crType cr)) (Left cr) $
case dm of
Piercing{} -> applyPiercingDamage cr dm w
_ -> w & damageHP cr (_dmAmount dm)