Start work on pathfinding

2025-10-13 06:30:55 +01:00
parent 9e7b7a3f76
commit 6b5090e697
7 changed files with 265 additions and 287 deletions
@@ -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