Add wall placement obstructions, start to generalise pictures

2022-07-10 00:17:09 +01:00
parent d53e87e5eb
commit dc803b64b0
4 changed files with 37 additions and 32 deletions
@@ -325,7 +325,7 @@ spawnerRoom = do

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