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
@@ -60,8 +60,10 @@ damageMetal dm ecw w =
        Piercing _ p t ->
            makeSpark NormalSpark (outTo p t) (rdir p t)
                . randsound p [tingS, ting1S, ting2S, ting3S, ting4S, ting5S]
-        Blunt _ p t -> id
-        Shattering _ p t -> id
+        Blunt _ p t ->
+            makeSpark NormalSpark (outTo p t) (rdir p t)
+                . randsound p [tingS, ting1S, ting2S, ting3S, ting4S, ting5S]
+        Shattering _ _ _ -> id
        Crushing{} -> id
        Explosive{} -> id
        Sparking{} -> id
@@ -84,7 +86,7 @@ damageMetal dm ecw w =

 damageFlesh :: Damage -> ECW -> World -> World
 damageFlesh dm ecw w = w & case dm of
-    Lasering _ p t -> id
+    Lasering _ _ _ -> id
    Piercing _ p t ->
        randsound
            p
@@ -98,7 +100,7 @@ damageFlesh dm ecw w = w & case dm of
            , bloodShort8S
            ]
                . smokeCloudAt red 20 200 1 (addZ 20 (outTo p t))
-    Blunt _ p t -> id
+    Blunt _ p _ -> randsound p [hitS]
    Shattering _ p t -> id
    Crushing{} -> id
    Explosive{} -> id