Tweak tutorial room

src/Dodge/Room/Tutorial.hs

@@ -57,36 +57,36 @@ tutAnoTree = do
         , lasCenRunClose
 --        , passthroughLockKeyLists lockRoomKeyItems itemRooms
         , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
---l--        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
---l--        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
---l--            , passthroughLockKeyLists
---l--                    [(sensorRoomRunPast ElectricSensor, takeOne 
---l--                        [-- CRAFT (ENERGYBALLCRAFT TeslaBall) , 
---l--                        HELD SPARKGUN])]
---l--                    itemRooms
---l--        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
---l--        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
---l        , tToBTree "sdr" . return . cleatOnward <$> 
---l                (shuffleLinks =<< distributerRoom BulletAmmo 100000)
---l--        , return $ tToBTree "cor" $ return $ cleatOnward corridor
---l--        --, tToBTree "sdr" . return . cleatOnward <$> slowDoorRoom
---l----        , tToBTree "sr" . return . cleatOnward <$> tanksRoom [] []
---l--        , return $ tToBTree "door" $ return $ cleatOnward door
---l--        , return $ tToBTree "cor" $ return $ cleatOnward corridor
---l--        , tToBTree "sdr" . return . cleatOnward <$> 
---l--            (shuffleLinks =<< tanksPipesRoom)
---l--        , return $ tToBTree "cor" $ return $ cleatOnward corridor
---l--        , return $ tToBTree "cor" $ return $ cleatOnward corridor
---l--        , return $ tToBTree "cor" $ return $ cleatOnward corridor
---l        , return $ tToBTree "cor" $ return $ cleatOnward corridor
---l        , return $ tToBTree "cor" $ return $ cleatOnward corridor
---l        , return $ tToBTree "cor" $ return $ cleatOnward corridor
---l        , return $ tToBTree "door" $ return $ cleatOnward door
---l        , tutHub
---l        , chasmSpitTerminal
---l        , tutLight
---l        , tutDrop
---l        , return $ tToBTree "cor" $ return $ cleatOnward corridor
+--        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
+--        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
+--            , passthroughLockKeyLists
+--                    [(sensorRoomRunPast ElectricSensor, takeOne 
+--                        [-- CRAFT (ENERGYBALLCRAFT TeslaBall) , 
+--                        HELD SPARKGUN])]
+--                    itemRooms
+--        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
+--        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
+        , tToBTree "sdr" . return . cleatOnward <$> 
+                (shuffleLinks =<< distributerRoom BulletAmmo 100000)
+--        , return $ tToBTree "cor" $ return $ cleatOnward corridor
+--        --, tToBTree "sdr" . return . cleatOnward <$> slowDoorRoom
+----        , tToBTree "sr" . return . cleatOnward <$> tanksRoom [] []
+--        , return $ tToBTree "door" $ return $ cleatOnward door
+--        , return $ tToBTree "cor" $ return $ cleatOnward corridor
+--        , tToBTree "sdr" . return . cleatOnward <$> 
+--            (shuffleLinks =<< tanksPipesRoom)
+--        , return $ tToBTree "cor" $ return $ cleatOnward corridor
+--        , return $ tToBTree "cor" $ return $ cleatOnward corridor
+--        , return $ tToBTree "cor" $ return $ cleatOnward corridor
+        , return $ tToBTree "cor" $ return $ cleatOnward corridor
+        , return $ tToBTree "cor" $ return $ cleatOnward corridor
+        , return $ tToBTree "cor" $ return $ cleatOnward corridor
+        , return $ tToBTree "door" $ return $ cleatOnward door
+        , tutHub
+        , chasmSpitTerminal
+        , tutLight
+        , tutDrop
+        , return $ tToBTree "cor" $ return $ cleatOnward corridor
         ----        , AnTree $ pickupTut
         ----        , AnTree $ weaponTut
         ]

tags

@@ -3954,8 +3954,8 @@ lasCenSensEdge	src/Dodge/Room/LasTurret.hs	132;"	f
 lasGunPic	src/Dodge/Item/Draw/SPic.hs	414;"	f
 lasPulseS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	731;"	f
 lasSensorTurretTest	src/Dodge/Room/LasTurret.hs	125;"	f
-lasTunnel	src/Dodge/Room/LasTurret.hs	159;"	f
-lasTunnelRunPast	src/Dodge/Room/LasTurret.hs	200;"	f
+lasTunnel	src/Dodge/Room/LasTurret.hs	172;"	f
+lasTunnelRunPast	src/Dodge/Room/LasTurret.hs	213;"	f
 lasTurret	src/Dodge/Placement/Instance/Turret.hs	35;"	f
 laser	src/Dodge/Item/Held/BatteryGuns.hs	34;"	f
 lastMap	src/Dodge/DoubleTree.hs	253;"	f