Refactor damages

2025-06-07 14:26:00 +01:00
parent 7a192e7631
commit 81a7dcd962
24 changed files with 271 additions and 277 deletions
@@ -87,6 +87,6 @@ followImpulse cr w imp = case imp of
    rr a = randomR (- a, a) $ _randGen w
    hitCr i =
        ( cWorld . lWorld . creatures . ix i . crState . csDamage
-            .:~ Damage BLUNT 100 cpos (posFromID i) (posFromID i)-- (PushBackDamage 5)
+            .:~ Blunt 100 (posFromID i) (posFromID i-cpos)-- (PushBackDamage 5)
        )
            . soundStart (CrSound cid) cpos hitS Nothing