Continue to work on pathfinding

2025-10-21 15:35:37 +01:00
parent 0b997579ad
commit 6742241e5d
22 changed files with 296 additions and 298 deletions
@@ -43,10 +43,10 @@ tutAnoTree = do
    foldMTRS
        [ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
        , corDoor
-        , corDoor
+        , return $ tToBTree "cor" $ return $ cleatOnward corridor
        , tToBTree "t" . return . cleatOnward <$> slowDoorRoom
        , corDoor
-        , corDoor
+        , return $ tToBTree "cor" $ return $ cleatOnward corridor
        , tutHub
        , tutLight
        , tutDrop