Start 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

@@ -230,7 +230,7 @@ removeLights = rmPmnts %~ mapMaybe f
 
 tutHub :: State LayoutVars (MetaTree Room String)
 tutHub = do
-    (is, wbp) <- setTreeInts =<< critsRoom 2
+    (is, wbp) <- setTreeInts =<< critsRoom 1
     i <- nextLayoutInt
     j <- nextLayoutInt
     k <- nextLayoutInt