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

Tweak start again

Browse Source
This commit is contained in:
justin
2021-11-26 14:53:06 +00:00
parent b0f89db66e
commit 044a870412
1 changed files with 2 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Room/Start.hs
+2 -6
View File
@@ -66,9 +66,8 @@ room2 = lasCenSensEdge
startRoom :: RandomGen g => Int -> State g (SubCompTree Room) startRoom :: RandomGen g => Int -> State g (SubCompTree Room)
startRoom i = join $ takeOne startRoom i = join $ takeOne
[-- roomMiniIntro [ chainUses <$> sequence [minigunFakeout,weaponRoom]
--minigunfakeout , rezBoxesWp
rezBoxesWp
, rezBoxesThenWeaponRoom , rezBoxesThenWeaponRoom
, rezBoxThenWeaponRoom , rezBoxThenWeaponRoom
, rezBoxesWpCrit , rezBoxesWpCrit
@@ -86,7 +85,6 @@ rezBoxStart = do
ls <- rezColor ls <- rezColor
return $ treeFromPost [PassDown $ rezBox ls] (UseAll door) return $ treeFromPost [PassDown $ rezBox ls] (UseAll door)
rezBoxesThenWeaponRoom :: RandomGen g => State g (SubCompTree Room) rezBoxesThenWeaponRoom :: RandomGen g => State g (SubCompTree Room)
rezBoxesThenWeaponRoom = do rezBoxesThenWeaponRoom = do
rboxes <- rezBoxes rboxes <- rezBoxes
@@ -98,8 +96,6 @@ rezBoxThenWeaponRoom = do
rcol <- rezColor rcol <- rezColor
treeFromTrunk [PassDown $ rezBox rcol,PassDown door] <$> weaponRoom treeFromTrunk [PassDown $ rezBox rcol,PassDown door] <$> weaponRoom
startRoom' :: RandomGen g => State g (SubCompTree Room) startRoom' :: RandomGen g => State g (SubCompTree Room)
startRoom' = do startRoom' = do
w <- state $ randomR (100,400) w <- state $ randomR (100,400)