43 lines
1.1 KiB
Haskell
43 lines
1.1 KiB
Haskell
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
|