{-|
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