Start to implement lock and key system

2021-04-26 11:41:04 +02:00
parent 5d8575b03f
commit 3bc57ff650
19 changed files with 276 additions and 98 deletions
@@ -21,7 +21,7 @@ branchRectWith t = do
    y <- state $ randomR (100,200)
    b <- t
    root <- randomiseOutLinks $ roomRectAutoLinks x y
-    return $ Node (Left root) [Node (Right door) [], fmap rToL $ treeTrunk [Left door] b]
+    return $ Node (Left root) [Node (Right door) [], fmap rToL $ treeFromTrunk [Left door] b]
        where rToL :: Either a a -> Either a a
              rToL (Right r) = Left r
              rToL (Left r)  = Left r