Tweak start rooms

This commit is contained in:
2021-11-26 14:40:32 +00:00
parent 040849a550
commit b0f89db66e
5 changed files with 19 additions and 17 deletions
+6 -7
View File
@@ -65,15 +65,14 @@ room2 :: RandomGen g => Int -> State g (SubCompTree Room)
room2 = lasCenSensEdge
startRoom :: RandomGen g => Int -> State g (SubCompTree Room)
--startRoom i = join $ takeOne
startRoom _ = join $ takeOne
startRoom i = join $ takeOne
[-- roomMiniIntro
--minigunfakeout
-- rezBoxesWp
rezBoxesThenWeaponRoom
-- , rezBoxThenWeaponRoom
-- rezBoxesWpCrit
-- , runPastStart i
rezBoxesWp
, rezBoxesThenWeaponRoom
, rezBoxThenWeaponRoom
, rezBoxesWpCrit
, runPastStart i
]
runPastStart :: RandomGen g => Int -> State g (SubCompTree Room)