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

Work on Falling carriage type

Browse Source
This commit is contained in:
justin
2026-04-03 11:03:05 +01:00
parent 43a5817ef3
commit d65a4529be
6 changed files with 54 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Room/Tutorial.hs
+31 -29
View File
@@ -58,34 +58,34 @@ tutAnoTree = do
, corDoor
, chasmSpitTerminal
-- , loadAmmoTut
, corDoor
, tToBTree "slowCrush" . return . cleatOnward <$> pushCaverns
, corDoor
, chasmSpitTerminal
-- a , return $ tToBTree "cor" $ return $ cleatOnward corridor
-- a , corDoor
-- a , tToBTree "sdr" . return . cleatOnward
-- a <$> (shuffleLinks =<< distributerRoom BulletAmmo 100000)
-- a , -- , return $ tToBTree "cor" $ return $ cleatOnward corridor
-- a -- --, tToBTree "sdr" . return . cleatOnward <$> slowDoorRoom
-- a ---- , tToBTree "sr" . return . cleatOnward <$> tanksRoom [] []
-- a -- , return $ tToBTree "door" $ return $ cleatOnward door
-- a -- , return $ tToBTree "cor" $ return $ cleatOnward corridor
-- a -- , tToBTree "sdr" . return . cleatOnward <$>
-- a -- (shuffleLinks =<< tanksPipesRoom)
-- a -- , return $ tToBTree "cor" $ return $ cleatOnward corridor
-- a -- , return $ tToBTree "cor" $ return $ cleatOnward corridor
-- a -- , return $ tToBTree "cor" $ return $ cleatOnward corridor
-- a return $ tToBTree "door" $ return $ cleatOnward door
-- a , return $ tToBTree "cor" $ return $ cleatOnward corridor
-- a , tutHub
-- a , chasmSpitTerminal
-- a , return $ tToBTree "cor" $ return $ cleatOnward corridor
-- a , tutLight
-- a , tutDrop
-- a , return $ tToBTree "cor" $ return $ cleatOnward corridor
-- a ---- , AnTree $ pickupTut
-- a ---- , AnTree $ weaponTut
--b , corDoor
--b , tToBTree "slowCrush" . return . cleatOnward <$> pushCaverns
--b , corDoor
--b , chasmSpitTerminal
--b -- a , return $ tToBTree "cor" $ return $ cleatOnward corridor
--b -- a , corDoor
--b -- a , tToBTree "sdr" . return . cleatOnward
--b -- a <$> (shuffleLinks =<< distributerRoom BulletAmmo 100000)
--b -- a , -- , return $ tToBTree "cor" $ return $ cleatOnward corridor
--b -- a -- --, tToBTree "sdr" . return . cleatOnward <$> slowDoorRoom
--b -- a ---- , tToBTree "sr" . return . cleatOnward <$> tanksRoom [] []
--b -- a -- , return $ tToBTree "door" $ return $ cleatOnward door
--b -- a -- , return $ tToBTree "cor" $ return $ cleatOnward corridor
--b -- a -- , tToBTree "sdr" . return . cleatOnward <$>
--b -- a -- (shuffleLinks =<< tanksPipesRoom)
--b -- a -- , return $ tToBTree "cor" $ return $ cleatOnward corridor
--b -- a -- , return $ tToBTree "cor" $ return $ cleatOnward corridor
--b -- a -- , return $ tToBTree "cor" $ return $ cleatOnward corridor
--b -- a return $ tToBTree "door" $ return $ cleatOnward door
--b -- a , return $ tToBTree "cor" $ return $ cleatOnward corridor
--b -- a , tutHub
--b -- a , chasmSpitTerminal
--b -- a , return $ tToBTree "cor" $ return $ cleatOnward corridor
--b -- a , tutLight
--b -- a , tutDrop
--b -- a , return $ tToBTree "cor" $ return $ cleatOnward corridor
--b -- a ---- , AnTree $ pickupTut
--b -- a ---- , AnTree $ weaponTut
]
foldMTRS ::
@@ -339,7 +339,9 @@ chasmSpitTerminal = do
tToBTree "chasmTerm" $
Node
(addDoorToggleTerminal' i1 (PS 150 0) y')
[ treePost [triggerDoorRoom i1, deadEndPSType (PutCrit chaseCrit)]
--[ treePost [triggerDoorRoom i1, deadEndPSType (PutCrit chaseCrit)]
[ treePost [triggerDoorRoom i1, deadEndPSType (PutCrit hoverCrit)]
--[ treePost [triggerDoorRoom i1, deadEndRoom]
, treePost [triggerDoorRoom i1, deadEndPSType (PutCrit hoverCrit)]
, return $ cleatOnward $ triggerDoorRoom i1
]