Remove destroyed creatures rather than setting flag

Sill only set flag for avatar
2026-05-08 10:45:05 +01:00
parent 84e95da2b5
commit ad998fb622
7 changed files with 26 additions and 18 deletions
@@ -51,7 +51,6 @@ 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