Simplify and unify block placement

2021-03-27 02:18:37 +01:00
parent 32376022cc
commit 151fa5b6bd
8 changed files with 198 additions and 187 deletions
@@ -32,6 +32,17 @@ lev1 = do
            (
            [return $ return $ Right deadEndRoom
            ]
+            ++ [return $ connectRoom corridor
+               ,return $ connectRoom door
+               ,glassSwitchBack >>= randomiseLinks]
+            ++ [return $ connectRoom corridor
+               ,return $ connectRoom door]
+            ++ [miniRoom3]
+            ++ [return $ connectRoom corridor
+               ,return $ connectRoom door]
+            ++ [roomCCrits]
+            ++ [return $ connectRoom corridor
+               ,return $ connectRoom door]
              ++[roomMiniIntro]
            ++ [longRoom >>= randomiseLinks]
            ++ [return $ connectRoom corridor