Make item display universal

src/Dodge/Creature/ReaderUpdate.hs

@@ -18,6 +18,7 @@ import Dodge.Data
 import Dodge.Creature.Test
 import Dodge.Creature.Volition
 import Dodge.Base
+import Dodge.Zone
 import Geometry
 import FoldableHelp
 

src/Dodge/Creature/Test.hs

@@ -108,3 +108,9 @@ crNearSeg d p1 p2 cr = circOnSeg p1 p2 (_crPos cr) (_crRad cr + d)
 
 crNearPoint :: Float -> Point2 -> Creature -> Bool
 crNearPoint d p cr = dist (_crPos cr) p < d + _crRad cr
+
+isAnimate :: Creature -> Bool
+{-# INLINE isAnimate #-}
+isAnimate cr = case _crActionPlan cr of
+    Inanimate -> False
+    _   -> True