From 16abf2b1e598cb89a1d4251c2313e6f2e165f7da Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Fri, 22 Sep 2017 14:35:25 +0200 Subject: Clears up Update.elm a bit. --- .../elm/battlemap/src/Update/SelectCharacter.elm | 32 ++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 client/elm/battlemap/src/Update/SelectCharacter.elm (limited to 'client/elm/battlemap/src/Update/SelectCharacter.elm') diff --git a/client/elm/battlemap/src/Update/SelectCharacter.elm b/client/elm/battlemap/src/Update/SelectCharacter.elm new file mode 100644 index 0000000..c9c1c94 --- /dev/null +++ b/client/elm/battlemap/src/Update/SelectCharacter.elm @@ -0,0 +1,32 @@ +module Update.SelectCharacter exposing (apply_to) + +import Dict + +import Character + +import Battlemap +import Battlemap.Navigator + +import Model + +apply_to : Model.Type -> Character.Ref -> Model.Type +apply_to model char_id = + {model | + selection = (Just char_id), + battlemap = + (Battlemap.apply_to_all_tiles + model.battlemap + (Battlemap.Navigator.reset_navigation) + ), + navigator = + (case (Dict.get char_id model.characters) of + Nothing -> Nothing + (Just char) -> + (Just + (Battlemap.Navigator.new_navigator + char.location + char.movement_points + ) + ) + ) + } -- cgit v1.2.3-70-g09d2