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

Hack fix to wall carving, expand polygon and retry if first cut fails

Browse Source
This commit is contained in:
justin
2021-04-04 14:53:23 +02:00
parent 1b6b89f4d7
commit b218c9f298
3 changed files with 63 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Floor.hs
+34 -34
View File
@@ -36,41 +36,41 @@ lev1 = do
++ [return $ connectRoom corridor
,return $ connectRoom door
,glassSwitchBack >>= randomiseLinks]
-- ++ [return $ connectRoom corridor
-- ,return $ connectRoom door]
-- ++ [miniRoom3]
-- ++ [return $ connectRoom corridor
-- ,return $ connectRoom door]
-- ++ [roomCCrits]
-- ++ [return $ connectRoom corridor
-- ,return $ connectRoom door]
-- ++[roomMiniIntro]
-- ++ [longRoom >>= randomiseLinks]
-- ++ [return $ connectRoom corridor
-- ,return $ connectRoom door]
++ [return $ connectRoom corridor
,return $ connectRoom door]
++ [miniRoom3]
++ [return $ connectRoom corridor
,return $ connectRoom door]
++ [roomCCrits]
++ [return $ connectRoom corridor
,return $ connectRoom door]
++[roomMiniIntro]
++ [longRoom >>= randomiseLinks]
++ [return $ connectRoom corridor
,return $ connectRoom door]
++ firstWeapon
-- ++ [return $ connectRoom corridor
-- ,return $ connectRoom door]
-- ++ [randomiseLinks =<< pistolerRoom]
-- ++ [return $ connectRoom door]
-- ++ [randomiseLinks =<< shooterRoom]
-- ++ (replicate 3 $ randomiseLinks corridor)
-- ++ [return $ connectRoom (set rmPS [PS (20,40) 0 basicLS] corridor)]
-- ++ [return $ connectRoom corridor]
-- ++ (replicate 3 $ randomiseLinks corridor)
-- ++ [return $ connectRoom corridor]
-- ++[return $ connectRoom corridor,return $ connectRoom door]
-- ++ [shootingRange]
-- ++ (replicate 3 $ randomiseLinks corridor)
-- ++[roomMiniIntro]
-- ++ (replicate 3 $ randomiseLinks corridor)
-- ++ [return $ connectRoom corridor
-- ,return $ connectRoom door
-- ,slowDoorRoom]
-- ++ [return $ connectRoom corridor
-- ,spawnerRoom
-- ,return $ connectRoom corridor
-- ]
++ [return $ connectRoom corridor
,return $ connectRoom door]
++ [randomiseLinks =<< pistolerRoom]
++ [return $ connectRoom door]
++ [randomiseLinks =<< shooterRoom]
++ (replicate 3 $ randomiseLinks corridor)
++ [return $ connectRoom (set rmPS [PS (20,40) 0 basicLS] corridor)]
++ [return $ connectRoom corridor]
++ (replicate 3 $ randomiseLinks corridor)
++ [return $ connectRoom corridor]
++[return $ connectRoom corridor,return $ connectRoom door]
++ [shootingRange]
++ (replicate 3 $ randomiseLinks corridor)
++[roomMiniIntro]
++ (replicate 3 $ randomiseLinks corridor)
++ [return $ connectRoom corridor
,return $ connectRoom door
,slowDoorRoom]
++ [return $ connectRoom corridor
,spawnerRoom
,return $ connectRoom corridor
]
)
$ randomiseLinks corridor