Stop inanimate objects from opening walls

src/Dodge/Item/Weapon/Bullet.hs

@@ -6,7 +6,7 @@ import Dodge.WorldEvent
 import Dodge.SoundLogic
 import Dodge.RandomHelp
 
-import Dodge.Creature.LookupStatus
+import Dodge.Creature.Property
 
 import Geometry
 
@@ -22,7 +22,7 @@ import Picture
 -- bullet effects
 bulHitCr' :: Particle' -> Point2 -> Creature -> World -> World
 bulHitCr' bt p cr w 
-    | isArmouredFrom p cr
+    | crIsArmouredFrom p cr
         = createSpark 8 colID p1 (argV (p1 -.- p) + d1) Nothing
             . addDamageArmoured $ w
     | otherwise
@@ -43,7 +43,7 @@ bulHitCr' bt p cr w
 
 bulBounceArmCr' :: Particle' -> Point2 -> Creature -> World -> World
 bulBounceArmCr' bt p cr w 
-    | isArmouredFrom p cr
+    | crIsArmouredFrom p cr
         = addBouncer . addDamageArmoured $ w
     | otherwise
         = addDamage . hitSound . flashEff $ w