Simplify slime compression

2026-05-07 10:04:42 +01:00
parent b76148ae2a
commit 7c1ada4546
9 changed files with 158 additions and 154 deletions
@@ -51,6 +51,7 @@ crslime :: Creature -> Int
 crslime cr = case cr ^. crType of
    SlimeCrit {_slimeSlime=r} | HP{} <- cr ^. crHP -> r -- r ^ (2::Int)
    HiveCrit {_hiveSlime=x} -> x
+    BeeCrit {} | CrDestroyed{} <- cr ^. crHP -> 0
    BeeCrit {_beeSlime=x} -> 400 + x
    _ -> 0