From 7b9ac4352353203fd1422a93fc7ef3a0daf8a768 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Thu, 21 Sep 2017 15:54:23 +0200 Subject: Improves path indicators. --- client/elm/battlemap/src/Battlemap/Navigator.elm | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) (limited to 'client') diff --git a/client/elm/battlemap/src/Battlemap/Navigator.elm b/client/elm/battlemap/src/Battlemap/Navigator.elm index d26a56a..e821ac0 100644 --- a/client/elm/battlemap/src/Battlemap/Navigator.elm +++ b/client/elm/battlemap/src/Battlemap/Navigator.elm @@ -64,7 +64,17 @@ go battlemap nav dir = ) of Nothing -> battlemap - (Just bmap) -> bmap + (Just bmap0) -> + (case + (apply_to_tile + bmap0 + next_location + (set_direction dir) + ) + of + Nothing -> battlemap + (Just bmap1) -> bmap1 + ) ), {nav | current_location = next_location, @@ -92,7 +102,7 @@ go battlemap nav dir = (case (apply_to_tile battlemap - next_location + nav.current_location (set_direction None) ) of -- cgit v1.2.3-70-g09d2