Tweak starting rooms

2021-11-16 22:48:45 +00:00
parent 5d0b48829c
commit 559d7e3a23
6 changed files with 102 additions and 92 deletions
@@ -48,11 +48,15 @@ rezBoxesThenWeaponRoom = do
    wroom  <- weaponRoom
    return $ rboxes `appendEitherTree` [wroom]

+rezBoxThenWeaponRoom :: RandomGen g => State g (Tree (Either Room Room))
+rezBoxThenWeaponRoom = treeFromTrunk [Left rezBox,Left door] <$> weaponRoom
+
 startRoom :: RandomGen g => State g (Tree (Either Room Room))
 startRoom = join $ takeOne 
-    [-- rezBoxesWp
-    rezBoxesThenWeaponRoom
-    --, rezBoxesWpCrit
+    [ rezBoxesWp
+    , rezBoxesThenWeaponRoom
+    , rezBoxThenWeaponRoom
+    , rezBoxesWpCrit
    ]

 rezBoxesWpCrit :: RandomGen g => State g (Tree (Either Room Room))