From 0d5fba42a1597e5a43266c071776e7acf58071e2 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Thu, 21 Sep 2017 16:32:09 +0200 Subject: Adds movement points, indicator for current char. --- client/elm/battlemap/src/Update.elm | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'client/elm/battlemap/src/Update.elm') diff --git a/client/elm/battlemap/src/Update.elm b/client/elm/battlemap/src/Update.elm index 2c86c4a..0fef667 100644 --- a/client/elm/battlemap/src/Update.elm +++ b/client/elm/battlemap/src/Update.elm @@ -7,7 +7,7 @@ import Battlemap.Direction exposing (Direction) import Battlemap.Navigator as Nr exposing (go, reset_navigation) -import Dict as Dt exposing (get, update) +import Dict as Dt exposing (get, update, values) import Character exposing (CharacterRef) @@ -29,6 +29,7 @@ handle_direction_request model dir = model.battlemap nav dir + (Dt.values model.characters) ) in {model | @@ -50,7 +51,7 @@ handle_select_character model char_id = (case (Dt.get char_id model.characters) of Nothing -> Nothing (Just char) -> - (Just (Nr.new_navigator char.location)) + (Just (Nr.new_navigator char.location char.movement_points)) ) } @@ -65,7 +66,12 @@ handle_end_turn model = (Just char) -> {model | navigator = - (Just (Nr.new_navigator nav.current_location)), + (Just + (Nr.new_navigator + nav.current_location + char.movement_points + ) + ), battlemap = (apply_to_all_tiles (apply_to_tile_unsafe -- cgit v1.2.3-70-g09d2