Continue to work on pathfinding

src/Dodge/Room/Room.hs

@@ -399,9 +399,9 @@ critsRoom :: Int -> State LayoutVars (Tree Room)
 critsRoom i =
     join $
         takeOne
---            [ return <$> roomCCrits i
---            , return <$> critsPillarRoom i
-            [ return <$> glassSwitchBackCrits i
+            [ return <$> roomCCrits i
+            , return <$> critsPillarRoom i
+            , return <$> glassSwitchBackCrits i
             ]
 
 --    cor <- shuffleLinks corridor

src/Dodge/Room/Tutorial.hs

@@ -43,10 +43,10 @@ tutAnoTree = do
     foldMTRS
         [ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
         , corDoor
-        , corDoor
+        , return $ tToBTree "cor" $ return $ cleatOnward corridor
         , tToBTree "t" . return . cleatOnward <$> slowDoorRoom
         , corDoor
-        , corDoor
+        , return $ tToBTree "cor" $ return $ cleatOnward corridor
         , tutHub
         , tutLight
         , tutDrop