justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Increase door room width

Browse Source
This commit is contained in:
justin
2021-03-07 13:02:09 +01:00
parent baed2716da
commit 6d34b79764
1 changed files with 6 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Rooms.hs
+6 -7
View File
@@ -48,7 +48,7 @@ lev1 = do
-- [randomiseLinks =<< pistolerRoom] -- [randomiseLinks =<< pistolerRoom]
[return $ return $ Right deadEndRoom [return $ return $ Right deadEndRoom
] ]
++ [slowDoorRoom] -- ++ [slowDoorRoom]
++ [return $ connectRoom corridor ++ [return $ connectRoom corridor
,return $ connectRoom door] ,return $ connectRoom door]
-- ++ [randomiseLinks =<< longRoom] -- ++ [randomiseLinks =<< longRoom]
@@ -275,13 +275,13 @@ linksAndPath lnks subpth = subpth ++ concatMap linkClosest lnks
door :: Room door :: Room
door = Room door = Room
{ _rmPolys = [rectNSWE 30 0 0 40] { _rmPolys = [rectNSWE 40 0 0 40]
, _rmLinks = lnks , _rmLinks = lnks
, _rmPath = [((20,25),(20,5))] , _rmPath = [((20,35),(20,5))]
, _rmPS = [PS (0,15) 0 $ PutAutoDoor (0,0) (40,0)] , _rmPS = [PS (0,20) 0 $ PutAutoDoor (0,0) (40,0)]
, _rmBound = [] , _rmBound = []
} }
where lnks = [((20,25),0) where lnks = [((20,35),0)
,((20, 5),pi) ,((20, 5),pi)
] ]
roomPillars :: Room roomPillars :: Room
@@ -711,8 +711,7 @@ slowDoorRoom = do
xs' <- sequence $ replicate 5 $ state $ randomR (10,x-10) xs' <- sequence $ replicate 5 $ state $ randomR (10,x-10)
ys' <- sequence $ replicate 5 $ state $ randomR (h+20,y) ys' <- sequence $ replicate 5 $ state $ randomR (h+20,y)
let crits = zipWith (\p r -> PS p r randC1) ps rs 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 barrels = zipWith (\x y -> PS (x,y) 0 $ PutCrit explosiveBarrel) xs' ys'
let pillarsa = [] let pillarsa = []
let pillarsb = putBlockRect (x/5-20) (x/5+20) (h/2-20) (h/2+20) let pillarsb = putBlockRect (x/5-20) (x/5+20) (h/2-20) (h/2+20)