22 lines
589 B
Haskell
22 lines
589 B
Haskell
module Dodge.Room.Breather where
|
|
|
|
import Dodge.Data.GenWorld
|
|
import Dodge.Item
|
|
import Dodge.Room.Containing
|
|
import Dodge.Tree
|
|
import RandomHelp
|
|
|
|
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 STEELDRUM]
|
|
]
|
|
roomsContaining [] itms
|