Gut sounds when gibbing

2026-02-10 23:40:04 +00:00
parent ed86d310d5
commit e608664f11
10 changed files with 25 additions and 18 deletions
@@ -56,7 +56,14 @@ defaultDeathSounds = \case
    CookDeath -> mempty
    PoisonDeath -> mempty
    PlainDeath -> mempty
-    GibsDeath -> mempty
+    GibsDeath -> 
+        [gut1S
+        ,gut2S
+        ,gut3S
+        ,gut4S
+        ,gut5S
+        ,gut6S
+        ]

 vocalizationTest :: Creature -> Maybe SoundID
 vocalizationTest cr = case cr ^? crVocalization . vcCoolDown of