Split autodoor module

src/Dodge/Rooms.hs

@@ -48,7 +48,7 @@ lev1 = do
 --            [randomiseLinks =<< pistolerRoom] 
             [return $ return $ Right deadEndRoom
             ]
-            ++ [roomMiniIntro]
+            ++ [slowDoorRoom]
             ++ [return $ connectRoom corridor
                ,return $ connectRoom door]
 --            ++ [randomiseLinks =<< longRoom]
@@ -711,7 +711,8 @@ 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,30) 0 basicLS, PS (x/2,y-30) 0 basicLS]
+         lsources = [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)