Increase door room width

src/Dodge/Rooms.hs

@@ -48,7 +48,7 @@ lev1 = do
 --            [randomiseLinks =<< pistolerRoom] 
             [return $ return $ Right deadEndRoom
             ]
-            ++ [slowDoorRoom]
+--            ++ [slowDoorRoom]
             ++ [return $ connectRoom corridor
                ,return $ connectRoom door]
 --            ++ [randomiseLinks =<< longRoom]
@@ -275,13 +275,13 @@ linksAndPath lnks subpth = subpth ++ concatMap linkClosest lnks
 
 door :: Room
 door = Room
-    { _rmPolys = [rectNSWE 30 0 0 40]
+    { _rmPolys = [rectNSWE 40 0 0 40]
     , _rmLinks = lnks
-    , _rmPath  = [((20,25),(20,5))]
-    , _rmPS    = [PS (0,15) 0 $ PutAutoDoor (0,0) (40,0)]
+    , _rmPath  = [((20,35),(20,5))]
+    , _rmPS    = [PS (0,20) 0 $ PutAutoDoor (0,0) (40,0)]
     , _rmBound = [] 
     }
-    where lnks = [((20,25),0)
+    where lnks = [((20,35),0)
                  ,((20, 5),pi)
                  ]
 roomPillars :: Room
@@ -711,8 +711,7 @@ slowDoorRoom = do
      xs' <- sequence $ replicate 5 $ state $ randomR (10,x-10)
      ys' <- sequence $ replicate 5 $ state $ randomR (h+20,y)
      let crits = zipWith (\p r -> PS p r randC1) ps rs
-         --lsources = [PS (x/2,30) 0 basicLS, PS (x/2,y-30) 0 basicLS]
-         lsources = [PS (x/2,y-30) 0 basicLS]
+         lsources = [PS (x/2,30) 0 basicLS, PS (x/2,y-30) 0 basicLS]
      let barrels = zipWith (\x y -> PS (x,y) 0 $ PutCrit explosiveBarrel) xs' ys'
      let pillarsa = []
      let pillarsb = putBlockRect (x/5-20) (x/5+20) (h/2-20) (h/2+20)