From d0dc7f665ba90d126e41048b2d7b992c3e804163 Mon Sep 17 00:00:00 2001 From: nsensfel Date: Tue, 17 Oct 2017 11:04:55 +0200 Subject: Separates Navigator from Tiles. --- elm/battlemap/src/Battlemap/Navigator.elm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'elm/battlemap/src/Battlemap/Navigator.elm') 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 -- cgit v1.2.3-70-g09d2