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
@@ -112,7 +112,7 @@ switchDoor btpos btrot dra drb col = pContID
            sps0 (doorbetween btid drb drc)
  where
    --doorbetween btid a b = PutSlideDr thedoor (switchWallCol col) 
-    doorbetween btid a b = PutSlideDr thedoor defaultSwitchWall 
+    doorbetween btid a b = PutSlideDr thedoor defaultDoorWall 
        (S.fromList (WallObstacle <$> [WallNotAutoOpen,WallBlockVisibility])) 1 a b
      where
        thedoor =