Fix basic pathing

2021-09-06 11:35:30 +01:00
parent 4d3c0ae38f
commit 72e29ebac3
9 changed files with 86 additions and 193 deletions
@@ -43,8 +43,12 @@ generateLevelFromRoomList gr w = updateWallZoning
    $ w { _walls = wallsFromRooms rs
        , _floorTiles = floorsFromRooms rs
        , _gameRooms  = gameRoomsFromRooms rs
+        , _pathGraph = path
+        , _pathGraph' = pairPath
        }
  where
+    path = pairsToGraph dist pairPath
+    pairPath = concatMap _rmPath rs
    plmnts = concatMap _rmPS rs
    rs = zipWith addTile zs rs'
    zs = map fromIntegral $ randomRs (0,63::Int) $ _randGen w