Improve rooms, make consumable use type

2022-03-09 10:51:01 +00:00
parent 8ff18178b1
commit a4ec4e4889
16 changed files with 98 additions and 50 deletions
@@ -64,13 +64,6 @@ someCrits = do
 --    crits <- takeN nCrits <=< shuffle $ fmap PutCrit $ [spreadGunCrit,pistolCrit,autoCrit,armourChaseCrit]
 --    return $ roomsContaining crits its

-roomsContaining :: RandomGen g => [Creature] -> [Item] -> State g (SubCompTree Room)
-roomsContaining crs its = do
-    endroom <- join $ takeOne
-        [ randomFourCornerRoomCrsIts crs its 
-        , tanksRoom crs its
-        ]
-    return $ treeFromPost [] $ PassDown endroom

 corridorBoss :: RandomGen g => Creature -> State g (SubCompTree Room)
 corridorBoss cr = do