Update tutorial rooms

2026-02-02 22:45:29 +00:00
parent 68609c9d54
commit be6acfa58b
2 changed files with 89 additions and 86 deletions
@@ -301,6 +301,7 @@ chasmSimpleMaze =
            , cChasm
            , pc1
            , pc2
+            , midChasmSpit
            ]
  where
    pc1 = do
@@ -315,7 +316,7 @@ chasmSimpleMaze =
 tutLight :: State LayoutVars (MetaTree Room String)
 tutLight = do
    x <- shuffleRoomPos =<< chasmSimpleMaze
-    y <- midChasmSpit
+    y <- shuffleRoomPos =<< chasmSimpleMaze
    z <- chasmSimpleMaze
    return $
        tToBTree "TutLight" $
@@ -325,7 +326,7 @@ tutLight = do
                    ,sps g (PutFlIt battery)
                    ]
                , corridor & rmPmnts .~ mempty
-                , y
+                , removeLights y
                , corridor & rmPmnts .~ mempty
                , removeLights z
                , door