Commit before attempting to simplify auto door placement

src/Dodge/Default/Wall.hs

@@ -73,7 +73,7 @@ defaultDirtWall =
         , _wlColor = dirtColor
         , _wlOpacity = Opaque 6
         , _wlRotateTo = False
-        , _wlFireThrough = True
+        , _wlFireThrough = False
         , _wlPenetrable = True
         , _wlMaterial = Dirt
         }
@@ -89,7 +89,7 @@ defaultWindow =
         , _wlID = 0
         , _wlColor = withAlpha 0.5 cyan
         , _wlOpacity = SeeThrough
-        , _wlFireThrough = True
+        , _wlFireThrough = False
         , _wlMaterial = Glass
         , _wlPenetrable = True
         }

src/Dodge/Item/BackgroundEffect.hs

@@ -81,7 +81,7 @@ shieldWall crid =
         , _wlOpacity = SeeAbove
         , _wlPathable = True
         , _wlWalkable = True
-        , _wlFireThrough = True
+        , _wlFireThrough = False
         , _wlReflect = True
         , _wlRotateTo = False
         , _wlStructure = CreaturePart crid -- shieldWallDamage

src/Dodge/Placement/Instance/Door.hs

@@ -87,12 +87,8 @@ putAutoDoor a b = PlacementUsingPos (addZ 0 a) $
                 b
                 3
   where
-    --cond az bz = any (crNearSeg 40 (stripZ az) (stripZ bz)) . IM.filter isAnimate . _creatures
     cond az bz = WdBlCrFilterNearPoint 40 (0.5 *.* (stripZ az +.+ stripZ bz)) CrIsAnimate
 
---  any (crNearPoint 40 (0.5 *.* (stripZ az +.+ stripZ bz)))
--- . IM.filter isAnimate . _creatures
-
 switchDoor :: Point2 -> Float -> Point2 -> Point2 -> Color -> Placement
 switchDoor btpos btrot dra drb col = pContID
     (PS btpos btrot)

src/Dodge/Placement/Instance/Wall.hs

@@ -93,7 +93,7 @@ baseBlockPane =
         --, _wlOpacity = Opaque 10
         , _wlOpacity = Opaque 17
         , _wlUnshadowed = True
-        , _wlFireThrough = True
+        , _wlFireThrough = False
         , _wlPenetrable = True
         }
 

src/Dodge/Wall/ForceField.hs

@@ -11,7 +11,7 @@ forceField =
         , _wlOpacity = DrawnWall DrawForceField
         , _wlPathable = True
         , _wlWalkable = True
-        , _wlFireThrough = True
+        , _wlFireThrough = False
         , _wlReflect = True
         , _wlUnshadowed = True
         , _wlRotateTo = False