Add flavour text, start smoke, support for different reload sounds

src/Dodge/Room/Start.hs

@@ -1,9 +1,11 @@
 module Dodge.Room.Start
     where
 import Dodge.Room.Data
+import Dodge.Room.Door
 import Dodge.Room.Link
 import Dodge.Room.Procedural
 import Dodge.Room.Foreground
+import Dodge.Layout.Tree.Polymorphic
 import Dodge.LevelGen.Data
 import Picture
 --import Geometry
@@ -13,19 +15,19 @@ import Control.Monad.State
 import Control.Lens
 import System.Random
 
+rezBox :: Room
+rezBox = shiftRoomBy ((-20,-10),0) $ roomRect 40 20 1 1 & rmPS .~ []
+
 startRoom :: RandomGen g => State g (Tree (Either Room Room))
 startRoom = do
     w <- state $ randomR (100,400)
     h <- state $ randomR (200,400)
     let fground = sPS (0,0) 0 $ PutForeground $ pictures
-            --[ highDiagonalMesh (0,0) (0,h) w 50
-            ----, setDepth (-0.1) $ color orange $ pictures
-            ----    [ polygon $ rectNSEW 50 40 140 (-20)
-            ----    , translate 60 45 $ scale 0.5 1 $  thickArc 0 pi 75 10
-            ----    , translate (-20) 300 $ polygon $ rectNSEW 10 0 40 0
-            ----    ]
-            --, highDiagonalMesh (w,0) (0,0) h 50
             [ highPipe (0,h/2) (w, h/2)
-            , girderV 10 (0,3*h/4) (w, 3*h/4)
+            , girderV cola 10 (0,3*h/4) (w, 3*h/4)
+            , girder colb 5 (0,5*h/8) (w, 5*h/8)
             ]
-    pure . Right <$> randomiseOutLinks (shiftRoomBy ((-20,-20),0) $ roomRectAutoLinks w h & rmPS %~ (fground :))
+    treeFromPost [Left rezBox, Left door] . Right <$> randomiseOutLinks (shiftRoomBy ((-20,-20),0) $ roomRectAutoLinks w h & rmPS %~ (fground :))
+  where
+    cola = dark . dark . light . light $ light red
+    colb = dark . dark . light . light $ light blue