21 lines
530 B
Haskell
21 lines
530 B
Haskell
module Dodge.Room.Containing where
|
|
import Dodge.Data
|
|
import Dodge.Tree
|
|
import Dodge.LevelGen.Data
|
|
import Dodge.RandomHelp
|
|
import Dodge.Room.Procedural
|
|
import Dodge.Room.Tanks
|
|
--import Dodge.Item.Equipment
|
|
|
|
import System.Random
|
|
import Control.Monad.State
|
|
|
|
|
|
roomsContaining :: RandomGen g => [Creature] -> [Item] -> State g (SubCompTree Room)
|
|
roomsContaining crs its = do
|
|
endroom <- join $ takeOne
|
|
[ randomFourCornerRoomCrsIts crs its
|
|
, tanksRoom crs its
|
|
]
|
|
return $ treeFromPost [] $ UseAll endroom
|