Stop inanimate objects from opening walls

2021-03-29 13:36:03 +02:00
parent 502832b2b8
commit a4afe05478
8 changed files with 76 additions and 59 deletions
@@ -126,21 +126,25 @@ data TempLightSource = TLS
    }

 data Creature = Creature
-    { _crPos :: Point2
-    , _crOldPos :: Point2
-    , _crDir :: Float
-    , _crID :: Int
-    , _crPict :: Creature -> Picture
-    , _crUpdate :: World -> (World -> World,StdGen) -> Creature 
-                -> ((World -> World,StdGen), Maybe Creature)
-    , _crRad :: Float
-    , _crMass :: Float
-    , _crHP :: Int
-    , _crMaxHP :: Int
-    , _crInv :: IM.IntMap Item
-    , _crInvSel :: Int
-    , _crState :: CreatureState
-    , _crCorpse :: Picture
+    { _crPos        :: Point2
+    , _crOldPos     :: Point2
+    , _crDir        :: Float
+    , _crID         :: Int
+    , _crPict       :: Creature -> Picture
+    , _crUpdate     
+        :: World 
+        -> (World -> World,StdGen) 
+        -> Creature 
+        -> ((World -> World,StdGen), Maybe Creature)
+    , _crRad        :: Float
+    , _crMass       :: Float
+    , _crHP         :: Int
+    , _crMaxHP      :: Int
+    , _crInv        :: IM.IntMap Item
+    , _crInvSel     :: Int
+    , _crState      :: CreatureState
+    , _crCorpse     :: Picture
+    , _crIsAnimate  :: Bool
    }

 data CreatureState = CrSt