justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Hover death sounds

Browse Source
This commit is contained in:
justin
2026-04-03 16:34:15 +01:00
parent 07006ee5b5
commit e8069073b5
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Creature/Vocalization.hs
+6 -6
View File
@@ -47,7 +47,7 @@ crDeathSounds :: Creature -> DeathType -> [SoundID]
crDeathSounds cr dt = case cr ^. crType of crDeathSounds cr dt = case cr ^. crType of
Avatar{} -> mempty Avatar{} -> mempty
ChaseCrit{} -> defaultDeathSounds dt ChaseCrit{} -> defaultDeathSounds dt
HoverCrit{} -> metalDeathSounds dt HoverCrit{} -> hoverDeathSounds dt
SwarmCrit -> mempty SwarmCrit -> mempty
AutoCrit -> mempty AutoCrit -> mempty
BarrelCrit{} -> mempty BarrelCrit{} -> mempty
@@ -58,14 +58,14 @@ defaultDeathSounds = \case
CookDeath -> mempty CookDeath -> mempty
PoisonDeath -> mempty PoisonDeath -> mempty
PlainDeath -> mempty PlainDeath -> mempty
GibsDeath -> destroyMatS Electronics GibsDeath -> [gut1S, gut2S, gut3S, gut4S, gut5S, gut6S]
metalDeathSounds :: DeathType -> [SoundID] hoverDeathSounds :: DeathType -> [SoundID]
metalDeathSounds = \case hoverDeathSounds = \case
CookDeath -> mempty CookDeath -> mempty
PoisonDeath -> mempty PoisonDeath -> mempty
PlainDeath -> mempty PlainDeath -> [clangS]
GibsDeath -> [gut1S, gut2S, gut3S, gut4S, gut5S, gut6S] GibsDeath -> destroyMatS Electronics
crVocalResetTime :: Creature -> StdGen -> Int crVocalResetTime :: Creature -> StdGen -> Int
crVocalResetTime _ = fst . randomR (50,100) crVocalResetTime _ = fst . randomR (50,100)