Add no weapon start

src/Dodge/Room/RoadBlock.hs

@@ -7,12 +7,15 @@ import Geometry
 import Dodge.Room.Data
 import Dodge.Room.Link
 import Dodge.Room.Placement
+import Dodge.Room.Corridor
 import Dodge.LevelGen.Data
 import Dodge.RandomHelp
 import Dodge.Creature
+import Dodge.Layout.Tree.Polymorphic
 
 import Data.Tree
 import Control.Monad.State
+import Control.Lens
 import System.Random
 
 armouredCorridor :: RandomGen g => State g Room
@@ -46,3 +49,30 @@ litCorridor90 = do
             ]
         , _rmBound = poly
         }
+
+noWeaponTest :: RandomGen g => State g (Tree (Either Room Room))
+noWeaponTest = do
+    undefined
+
+-- | A random length corridor with a descrutible block blocking it.
+longBlockedCorridor :: RandomGen g => State g (Tree (Either Room Room))
+longBlockedCorridor = do
+    r <- state $ randomR (0,pi)
+    n <- state $ randomR (0,3)
+    let plmnts = [PS (20,40) r $ PutBlock [5,5,5] (150/256, 75/256, 0, 250/256) 
+                                          $ reverse $ rectNSWE 10 (-10) (-10) 10
+                 ,PS (20,15) 0 $ putLamp
+                 ]
+    sequence $ treeFromPost (replicate n $ fmap Left $ randomiseOutLinks corridor) 
+                        $ fmap Right $ return $ set rmPS plmnts corridor
+
+-- | A single corridor with a descrutible block blocking it.
+blockedCorridor :: RandomGen g => State g (Tree (Either Room Room))
+blockedCorridor = do
+    r <- state $ randomR (0,pi)
+    let plmnts = [PS (20,40) r $ PutBlock [5,5,5] (150/256, 75/256, 0, 250/256) 
+                                          $ reverse $ rectNSWE 10 (-10) (-10) 10
+                 ,PS (20,15) 0 $ putLamp
+                 ]
+    sequence $ treeFromPost [] 
+                        $ fmap Right $ return $ set rmPS plmnts corridor