Work on connecting pathfinding grid

2022-07-09 12:36:17 +01:00
parent 9c352e4a83
commit fb66a45495
11 changed files with 16 additions and 32 deletions
@@ -325,5 +325,7 @@ spawnerRoom = do

 corDoor :: State StdGen (MetaTree Room String)
 corDoor = do
-    cor <- shuffleLinks $ cleatOnward corridor
-    return $ tToBTree "corDoor" $ treePost [door,cor]
+    --cor <- shuffleLinks $ cleatOnward corridor
+    --return $ tToBTree "corDoor" $ treePost [door,cor]
+    cor <- shuffleLinks corridor
+    return $ tToBTree "corDoor" $ treePost [door,cor,cleatOnward door]