Add more information to Room Positions

2022-06-15 12:34:36 +01:00
parent bf1bfa5453
commit 62dae5bebe
12 changed files with 192 additions and 112 deletions
@@ -55,6 +55,7 @@ powerFakeout = do
                , keyholeCorridor, corridor
            ,cleatOnward door]

+-- the i is used either for a PickOnePlacement or a room id, this is not great
 startRoom :: RandomGen g => Int -> State g (MetaTree Room String)
 startRoom i = join $ takeOne
    [ attachOnward "startThenWeaponRoom" <$> preCritStart <*> weaponRoom i