24 lines
512 B
Haskell
24 lines
512 B
Haskell
{-|
|
|
Random generation of high level layout of rooms.
|
|
-}
|
|
module Dodge.Layout.Generate
|
|
where
|
|
import Data.Tree
|
|
import Control.Monad.State
|
|
--import System.Random
|
|
|
|
generateLayout :: State g (Tree RoomProperties)
|
|
generateLayout = undefined
|
|
|
|
data RoomProperties = RProps
|
|
{ _pickUpLevel :: [Int]
|
|
, _pickUps :: [Int]
|
|
}
|
|
|
|
randomTreeStructure :: Int -> State g (Tree ())
|
|
randomTreeStructure = undefined
|
|
|
|
treeMaxDepthFromTrunk :: Int -> Int -> State g (Tree ())
|
|
treeMaxDepthFromTrunk = do
|
|
undefined
|