| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'client/elm/battlemap/src/Update.elm')
| -rw-r--r-- | client/elm/battlemap/src/Update.elm | 12 |
1 files changed, 9 insertions, 3 deletions
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 |