summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'elm/battlemap/src/Battlemap/Navigator.elm')
-rw-r--r-- | elm/battlemap/src/Battlemap/Navigator.elm | 9 |
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 |