module Dodge.Room.Girder where
import Dodge.Data
import RandomHelp
import Dodge.Room.Foreground
import Dodge.Room.Modify.Girder
import Color

addRandomGirderEW :: RandomGen g => Room -> State g Room
addRandomGirderEW rm = do
    hgshape <- takeOne [girder 96 20 10, girderZ 96 20 10, girderV 96 20 10]
    lgshape <- takeOne [girder 60 20 10, girderZ 60 20 10, girderV 60 20 10]
    addgird <- takeOne [ addGirderNS' hgshape black , addGirderNS' lgshape red ]
    addgird rm

addRandomGirderFrom :: RandomGen g => CardinalPoint -> Int -> Room -> State g Room
addRandomGirderFrom cp i rm = do
    (h,col) <- takeOne [(96,black),(60,red)]
    gtype   <- takeOne [girder,girderZ,girderV]
    return $ addGirderFrom cp i (gtype h 20 10) col rm
