Start to make wall flags/pathing interaction more sensible

src/Dodge/Default/Wall.hs

@@ -8,6 +8,7 @@ module Dodge.Default.Wall (
     defaultDirtWall,
 ) where
 
+import qualified Data.Set as S
 import Control.Lens
 import Dodge.Data.Wall
 import Geometry.Data
@@ -20,6 +21,8 @@ defaultWall =
         { _wlLine = (V2 0 0, V2 50 0)
         , _wlID = 0
         , _wlColor = greyN 0.6
+        , _wlPathFlag = S.fromList [WallBlockVisibility
+                , WallNotAutoOpen, WallNotDestrucable]
         , --, _wlOpacity = Opaque 11
           _wlOpacity = Opaque 11
         , _wlPathable = False
@@ -38,6 +41,7 @@ defaultWall =
 
 defaultDoorWall :: Wall
 defaultDoorWall = defaultWall { _wlMaterial = Metal }
+    & wlPathFlag . at WallNotDestrucable .~ Nothing
 
 {- Indestructible see-through wall.  -}
 defaultCrystalWall :: Wall