From 33e57128d48a012533c42635f52037fcdedd4c56 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Tue, 26 Sep 2017 19:13:04 +0200 Subject: Range indicators are now clickable. --- client/elm/battlemap/src/Update.elm | 33 +++++++++++++-------------------- 1 file changed, 13 insertions(+), 20 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 5c97ab8..b6b2a80 100644 --- a/client/elm/battlemap/src/Update.elm +++ b/client/elm/battlemap/src/Update.elm @@ -1,32 +1,25 @@ -module Update exposing (update, Type(..)) +module Update exposing (update) + +import Event import Model import Update.DirectionRequest +import Update.SelectTile import Update.SelectCharacter import Update.EndTurn -import Battlemap -import Battlemap.Direction -import Battlemap.Navigator - -import Dict - -import Character - -type Type = - DirectionRequest Battlemap.Direction.Type - | SelectCharacter Character.Ref - | EndTurn - -update : Type -> Model.Type -> Model.Type -update msg model = - case msg of - (DirectionRequest d) -> +update : Event.Type -> Model.Type -> Model.Type +update event model = + case event of + (Event.DirectionRequest d) -> (Update.DirectionRequest.apply_to model d) - (SelectCharacter char_id) -> + (Event.SelectTile loc) -> + (Update.SelectTile.apply_to model loc) + + (Event.SelectCharacter char_id) -> (Update.SelectCharacter.apply_to model char_id) - EndTurn -> + Event.EndTurn -> (Update.EndTurn.apply_to model) -- cgit v1.2.3-70-g09d2