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