Hover death sounds

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)