36 lines
1.0 KiB
Haskell
36 lines
1.0 KiB
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.Room.Link
|
|
import Dodge.Room.Ngon
|
|
import LensHelp
|
|
import Geometry
|
|
--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
|
|
|
|
pedestalRoom :: RandomGen g => Item -> State g Room
|
|
pedestalRoom it = do
|
|
let flit = PutFlIt it
|
|
x <- state $ randomR (150,250)
|
|
ngon <- state $ randomR (5,9)
|
|
r <- takeOne
|
|
[ shuffleLinks =<< (centerVaultRoom x x 50 <&> rmPmnts .:~ sps0 flit)
|
|
, shuffleLinks $ roomRectAutoLinks (2*x) (2*x) & rmPmnts .:~ sPS (V2 x x) 0 flit
|
|
, shuffleLinks $ roomNgon ngon x & rmPmnts .:~ sps0 flit
|
|
]
|
|
r <&> rmName .++~ "ped-"
|