Slime crit collisions

2026-04-12 19:11:01 +01:00
parent f0da9b5f8c
commit 8a57aa2f2c
5 changed files with 21 additions and 3 deletions
@@ -133,7 +133,8 @@ isAnimate :: Creature -> Bool
 {-# INLINE isAnimate #-}
 isAnimate cr = case _crActionPlan cr of
    Inanimate -> False
-    _ -> True
+    SlimeIntelligence -> False
+    ActionPlan{} -> True

 hasAutoDoorBody :: Creature -> Bool
 hasAutoDoorBody cr = case cr ^. crHP of