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

Tweaks to make playable

Browse Source
This commit is contained in:
justin
2021-04-26 12:03:22 +02:00
parent 3bc57ff650
commit f8351fb150
4 changed files with 16 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Floor.hs
+11 -8
View File
@@ -41,13 +41,6 @@ roomTreex = do
let t' = padCorridors struct
t = treeFromTrunk
[[StartRoom]
,[Corridor]
,[SpecificRoom $ fmap (pure . Right) armouredCorridor]
,[Corridor]
,[TreasureAno [addArmour autoCrit,addArmour autoCrit] [launcher]]
-- ,[BossAno $ addArmour launcherCrit & crHP +~ 800
-- & crState . crDropsOnDeath .~ DropSpecific [0]
-- ]
,[Corridor]
,[OrAno [[DoorAno]
,[Corridor]
@@ -55,7 +48,17 @@ roomTreex = do
]
,[FirstWeapon]
,[Corridor]
,[SpecificRoom $ branchRectWith $ fmap (pure . Left) armouredChasers]
,[SpecificRoom $ fmap (pure . Right) testRoom]
,[Corridor]
,[OrAno [[SpecificRoom $ branchRectWith $ fmap (pure . Left) armouredChasers]
,[BossAno $ addArmour launcherCrit & crHP +~ 800
& crState . crDropsOnDeath .~ DropSpecific [0] ]
]
]
,[Corridor]
,[SpecificRoom $ fmap (pure . Right) armouredCorridor]
,[Corridor]
,[TreasureAno [addArmour autoCrit,addArmour autoCrit] [launcher]]
]
t'
fmap (shiftExpandTree . expandTreeBy id) $ mapM annoToRoomTree t