Add whine to hover crit

This commit is contained in:
2026-04-03 16:31:17 +01:00
parent 1d8594dff4
commit 07006ee5b5
4 changed files with 69 additions and 38 deletions
+9 -1
View File
@@ -7,6 +7,7 @@ module Dodge.Creature.Vocalization (
resetCrVocCoolDown,
) where
import Dodge.Material.Sound
import Control.Lens
import Dodge.Data.World
import Dodge.SoundLogic.ExternallyGeneratedSounds
@@ -46,7 +47,7 @@ crDeathSounds :: Creature -> DeathType -> [SoundID]
crDeathSounds cr dt = case cr ^. crType of
Avatar{} -> mempty
ChaseCrit{} -> defaultDeathSounds dt
HoverCrit{} -> defaultDeathSounds dt
HoverCrit{} -> metalDeathSounds dt
SwarmCrit -> mempty
AutoCrit -> mempty
BarrelCrit{} -> mempty
@@ -54,6 +55,13 @@ crDeathSounds cr dt = case cr ^. crType of
defaultDeathSounds :: DeathType -> [SoundID]
defaultDeathSounds = \case
CookDeath -> mempty
PoisonDeath -> mempty
PlainDeath -> mempty
GibsDeath -> destroyMatS Electronics
metalDeathSounds :: DeathType -> [SoundID]
metalDeathSounds = \case
CookDeath -> mempty
PoisonDeath -> mempty
PlainDeath -> mempty