Add no weapon start

src/Dodge/Room.hs

@@ -65,7 +65,10 @@ airlockOneWay n = Room
                  ]
           cond w = or $ M.lookup (DoorNumOpen n) (_worldState w)
           col = dim $ dim $ bright red
-airlock :: Int -> Room
+
+airlock 
+    :: Int  -- ^ Door id
+    -> Room
 airlock n = Room
     { _rmPolys =
         [ rectNSWE 100 0 0 40
@@ -85,11 +88,13 @@ airlock n = Room
         ]
     , _rmBound = rectNSWE 75 15 0 40
     }
-    where lnks = [((20,85),0)
-                 ,((20, 5),pi)
-                 ]
-          cond w = or $ M.lookup (DoorNumOpen n) (_worldState w)
-          col = dim $ dim $ bright red
+  where 
+    lnks = [((20,85),0)
+           ,((20, 5),pi)
+           ]
+    cond w = or $ M.lookup (DoorNumOpen n) (_worldState w)
+    col = dim $ dim $ bright red
+
 roomC :: Float -> Float -> Room
 roomC x y = Room
     { _rmPolys = [rectNSWE y 0 0 x]
@@ -312,8 +317,8 @@ randFirstWeapon = do
         ++ replicate 5 multGun
         ++ replicate 2 autoGun
         ++ [launcher]
-        ++ [lasGun]
-        ++ [flamer]
+--        ++ [lasGun]
+--        ++ [flamer]
 
 --randC1 :: State StdGen PSType
 randC1 = RandPS $ takeOne $ map PutCrit $ (armourChaseCrit : replicate 50 chaseCrit)
@@ -381,17 +386,6 @@ weaponBetweenPillars = do
       (fmap connectRoom . randomiseOutLinks) =<< (filterLinks f $ over rmPS (++plmnts) $ roomPillars)
     where f (_,a) = a == 0
 
-blockedCorridor :: RandomGen g => State g (Tree (Either Room Room))
-blockedCorridor = 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
-
 weaponLongCorridor :: RandomGen g => State g (Tree (Either Room Room))
 weaponLongCorridor = do
     root <- takeOne $ [tEast, tWest]