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