Add more rooms

2022-06-15 14:05:59 +01:00
parent 29e1ee14a1
commit e30f7a0585
5 changed files with 39 additions and 16 deletions
@@ -21,11 +21,11 @@ roomsContaining crs its = tToBTree "roomsContaining" <$> roomsContaining' crs it
 roomsContaining' :: RandomGen g => [Creature] -> [Item] -> State g (Tree Room)
 roomsContaining' crs its = do
    endroom <- join $ takeOne
-        [roomPillarsSquare
--        [ randomFourCornerRoomCrsIts crs its 
--        , tanksRoom crs its
--        , roomPillarsContaining crs its
--        , roomPillarsPassage <&> rmPmnts .++~ crsItmsUnused crs its
+        [ roomPillarsSquare <&> rmPmnts .++~ crsItmsUnused crs its
+        , randomFourCornerRoomCrsIts crs its 
+        , tanksRoom crs its
+        , roomPillarsContaining crs its
+        , roomPillarsPassage <&> rmPmnts .++~ crsItmsUnused crs its
        ]
    return (pure $ cleatOnward endroom)