From 6d34b7976486f2f2eb5aae7046684b7f56f84b61 Mon Sep 17 00:00:00 2001
From: jgk <justin.g.kruger@gmail.com>
Date: Sun, 7 Mar 2021 13:02:09 +0100
Subject: [PATCH] Increase door room width

---
 src/Dodge/Rooms.hs | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/src/Dodge/Rooms.hs b/src/Dodge/Rooms.hs
index f69f03b72..0640d971d 100644
--- a/src/Dodge/Rooms.hs
+++ b/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)