Add whine to hover crit
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user