diff --git a/src/Dodge/Creature/Vocalization.hs b/src/Dodge/Creature/Vocalization.hs index d61850ae6..4ceb5f0a8 100644 --- a/src/Dodge/Creature/Vocalization.hs +++ b/src/Dodge/Creature/Vocalization.hs @@ -47,7 +47,7 @@ crDeathSounds :: Creature -> DeathType -> [SoundID] crDeathSounds cr dt = case cr ^. crType of Avatar{} -> mempty ChaseCrit{} -> defaultDeathSounds dt - HoverCrit{} -> metalDeathSounds dt + HoverCrit{} -> hoverDeathSounds dt SwarmCrit -> mempty AutoCrit -> mempty BarrelCrit{} -> mempty @@ -58,14 +58,14 @@ defaultDeathSounds = \case CookDeath -> mempty PoisonDeath -> mempty PlainDeath -> mempty - GibsDeath -> destroyMatS Electronics + GibsDeath -> [gut1S, gut2S, gut3S, gut4S, gut5S, gut6S] -metalDeathSounds :: DeathType -> [SoundID] -metalDeathSounds = \case +hoverDeathSounds :: DeathType -> [SoundID] +hoverDeathSounds = \case CookDeath -> mempty PoisonDeath -> mempty - PlainDeath -> mempty - GibsDeath -> [gut1S, gut2S, gut3S, gut4S, gut5S, gut6S] + PlainDeath -> [clangS] + GibsDeath -> destroyMatS Electronics crVocalResetTime :: Creature -> StdGen -> Int crVocalResetTime _ = fst . randomR (50,100)