module Dodge.Room.Breather where
--import Dodge.Cleat
import Dodge.Combine.Data
import Dodge.Data
--import Dodge.PlacementSpot
--import Dodge.RoomLink
--import Dodge.Default.Room
import Dodge.Item
--import Dodge.Creature
--import Dodge.Room.Pillar
--import Dodge.Room.Girder
--import Dodge.Room.Modify.Girder
--import Dodge.LevelGen.Data
import RandomHelp
import Dodge.Tree
--import Dodge.Placement.Instance
--import Dodge.LevelGen.Data
--import Dodge.Room.Procedural
--import Dodge.Room.Corridor
--import Dodge.Room.Tanks
--import Dodge.Room.Link
--import Dodge.Room.Door
--import Dodge.Room.Airlock
import Dodge.Room.Containing
--import Geometry
--import MonadHelp
--import LensHelp

--import qualified Data.Set as S

firstBreather :: State StdGen (MetaTree Room String)
firstBreather = do
    itms <- takeOne 
        [[itemFromBase $ CRAFT TUBE]
        ,[itemFromBase $ CRAFT PIPE]
        ,[itemFromBase $ CRAFT HARDWARE]
        ,[itemFromBase $ CRAFT CAN]
        ,[itemFromBase $ CRAFT TIN]
        ,[itemFromBase $ CRAFT PLANK]
        ,[itemFromBase $ CRAFT DRUM]
        ]
    roomsContaining [] itms
