Work on autodoor pathing

2025-10-24 13:19:21 +01:00
parent 7b622c8e31
commit 9eed2706b0
13 changed files with 68 additions and 87 deletions
@@ -16,12 +16,7 @@ defaultAutoWall =
    defaultDoorWall
 --        & wlColor .~ dim yellow
        & wlOpacity .~ Opaque 9
-
-defaultSwitchWall :: Wall
-defaultSwitchWall =
-    defaultDoorWall
--        & wlColor .~ red
-        & wlOpacity .~ Opaque 0
+        & wlPathFlag . at WallNotAutoOpen .~ Nothing

 defaultDoor :: Door
 defaultDoor =