| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/battlemap/src/Update.elm')
| -rw-r--r-- | src/battlemap/src/Update.elm | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/src/battlemap/src/Update.elm b/src/battlemap/src/Update.elm index c62100d..a171aa6 100644 --- a/src/battlemap/src/Update.elm +++ b/src/battlemap/src/Update.elm @@ -2,6 +2,8 @@ module Update exposing (update) import Event +import Error + import UI import Model @@ -10,6 +12,8 @@ import Model.SelectTile import Model.SelectCharacter import Model.EndTurn +import Send.CharacterTurn + update : Event.Type -> Model.Type -> (Model.Type, (Cmd Event.Type)) update event model = let @@ -26,7 +30,14 @@ update event model = ((Model.SelectCharacter.apply_to new_model char_id), Cmd.none) Event.TurnEnded -> - ((Model.EndTurn.apply_to new_model), Cmd.none) + ( + (Model.EndTurn.apply_to new_model), +-- Cmd.none + (case (Send.CharacterTurn.try_sending model) of + (Just cmd) -> cmd + Nothing -> Cmd.none + ) + ) (Event.ScaleChangeRequested mod) -> if (mod == 0.0) @@ -50,3 +61,12 @@ update event model = (Model.reset {model | controlled_team = 0} model.characters), Cmd.none ) + + (Event.ServerReplied _) -> + ( + (Model.invalidate + model + (Error.new Error.Unimplemented "Handle server reply.") + ), + Cmd.none + ) |