Add crab crit, rethink Action datatype slightly

2026-04-07 15:29:02 +01:00
parent 35d169b585
commit f0e568e694
25 changed files with 606 additions and 465 deletions
@@ -26,6 +26,7 @@ crWarningSounds cr = case cr ^. crType of
        , seagullCry1S
        , seagullCry2S
        ]
+    CrabCrit {} -> mempty
    HoverCrit {} -> mempty
    SwarmCrit -> mempty
    AutoCrit -> mempty
@@ -36,6 +37,7 @@ crDeathSounds :: Creature -> DeathType -> [SoundID]
 crDeathSounds cr dt = case cr ^. crType of
    Avatar{} -> mempty
    ChaseCrit{} -> defaultDeathSounds dt
+    CrabCrit{} -> defaultDeathSounds dt
    HoverCrit{} -> hoverDeathSounds dt
    SwarmCrit -> mempty
    AutoCrit -> mempty