Implement torch

2022-07-14 01:11:48 +01:00
parent 2a5b512d61
commit bfe9073808
4 changed files with 21 additions and 4 deletions
@@ -327,7 +327,7 @@ spawnerRoom = do

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