Work on damage sounds

2025-06-22 16:00:53 +01:00
parent 291f77e13d
commit 4e008366f4
7 changed files with 156 additions and 181 deletions
@@ -86,7 +86,5 @@ followImpulse cr w imp = case imp of
    posFromID cid' = w ^?! cWorld . lWorld . creatures . ix cid' . crPos
    rr a = randomR (- a, a) $ _randGen w
    hitCr i =
-        ( cWorld . lWorld . creatures . ix i . crDamage
-            .:~ Blunt 100 (posFromID i) (posFromID i-cpos)-- (PushBackDamage 5)
-        )
-            . soundStart (CrSound cid) cpos hitS Nothing
+         cWorld . lWorld . creatures . ix i . crDamage
+            .:~ Blunt 100 (posFromID i) (posFromID i-cpos)