{-
Rooms that connect other rooms, blocking sight.
-}
module Dodge.Room.Door
    where
import Geometry
import Dodge.Room.Data
import Dodge.LevelGen.Data
import Dodge.Default.Room

--import Control.Monad.State
--import System.Random

door :: Room
door = defaultRoom
    { _rmPolys = [rectNSWE 40 0 0 40]
    , _rmLinks = lnks
    , _rmPath  = [(V2 20 35,V2 20 5)]
-- door extends into side walls (for shadows as rendered 12/03)
    , _rmPS    = [sPS (V2 0 20) 0 $ PutAutoDoor (V2 0 0) (V2 40 0)]
    , _rmBound = [] 
    }
    where lnks = [(V2 20 35,0)
                 ,(V2 20  5,pi)
                 ]


