summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'elm/battlemap/src/Battlemap/Navigator.elm')
-rw-r--r--elm/battlemap/src/Battlemap/Navigator.elm9
1 files changed, 6 insertions, 3 deletions
diff --git a/elm/battlemap/src/Battlemap/Navigator.elm b/elm/battlemap/src/Battlemap/Navigator.elm
index 9cdfc1f..2c2734d 100644
--- a/elm/battlemap/src/Battlemap/Navigator.elm
+++ b/elm/battlemap/src/Battlemap/Navigator.elm
@@ -11,6 +11,7 @@ module Battlemap.Navigator exposing
import Dict
import Battlemap.Location
+import Battlemap.Direction
import Battlemap.Navigator.Path
import Battlemap.Navigator.RangeIndicator
@@ -81,15 +82,17 @@ add_step : (
Type ->
Battlemap.Direction.Type ->
(Battlemap.Location.Type -> Bool) ->
+ (Battlemap.Location.Type -> Int) ->
(Maybe Type)
)
-add_step navigator dir can_cross =
+add_step navigator dir can_cross cost_fun =
case
- (Battlemap.Navigator.Path.follow_direction
+ (Battlemap.Navigator.Path.try_following_direction
can_cross
+ cost_fun
(Just navigator.path)
dir
)
of
- (Just path) -> (Just {navigator | path = path}
+ (Just path) -> (Just {navigator | path = path})
Nothing -> Nothing