module Dodge.Default.Room where
import Data.Tile
import Geometry.Data
import Dodge.LevelGen.Data
import qualified Data.IntMap.Strict as IM
import qualified Data.Set as S

defaultRoom :: Room
defaultRoom = Room
    { _rmPolys  = []
    , _rmLinks  = []
    , _rmLinkEff = []
    , _rmPos    = []
    , _rmPath   = []
    , _rmPmnts  = []
    , _rmInPmnt   = []
    , _rmOutPmnt    = []
    , _rmBound      = []
    , _rmFloor      = InheritFloor
    , _rmName       = "defaultRoom"
    , _rmShift      = (V2 0 0 , 0)
    , _rmViewpoints = []
    , _rmRandPSs    = []
--    , _rmLabel      = Nothing
--    , _rmTakeFrom   = Nothing
    , _rmStartWires = IM.empty
    , _rmEndWires   = IM.empty
    , _rmConnectsTo = S.member OutLink
    , _rmMID        = Nothing
    , _rmMParent    = Nothing
    , _rmChildren   = []
    , _rmType       = DefaultRoomType
    }