Add PathEdge data to pathfinding graph

2022-07-01 23:17:41 +01:00
parent f6084f37ed
commit 66fe1abc6f
4 changed files with 36 additions and 16 deletions
@@ -32,8 +32,10 @@ module Dodge.Data
    , module Dodge.Data.ItemAmount
    , module Dodge.RoomCluster.Data
    , module Dodge.Data.Room
+    , module Dodge.Data.PathGraph
    ) where
 import Dodge.Data.Room
+import Dodge.Data.PathGraph
 import Dodge.Data.Zoning
 import Dodge.Data.ForegroundShape
 import Dodge.Data.LoadAction
@@ -146,7 +148,7 @@ data World = World
    , _shapes               :: IM.IntMap ForegroundShape
    , _corpses              :: IM.IntMap Corpse
    , _clickMousePos        :: Point2
-    , _pathGraph            :: Gr Point2 Float
+    , _pathGraph            :: Gr Point2 PathEdge
    , _pathGraphP           :: S.Set (Point2,Point2)
    , _phZoning             :: Zoning [] (Int,Point2)
    , _hud                  :: HUD