From cdc21c9fb1636ae80144b24d206c0e0ab0cf413a Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Sat, 28 Feb 2026 18:34:40 +0000
Subject: [PATCH] Tweak tutorial room

---
 src/Dodge/Room/Tutorial.hs | 60 +++++++++++++++++++-------------------
 tags                       |  4 +--
 2 files changed, 32 insertions(+), 32 deletions(-)

diff --git a/src/Dodge/Room/Tutorial.hs b/src/Dodge/Room/Tutorial.hs
index 76b38301d..ec303fe6f 100644
--- a/src/Dodge/Room/Tutorial.hs
+++ b/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
         ]
diff --git a/tags b/tags
index afd98829b..e798f2d8c 100644
--- a/tags
+++ b/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