summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'client/elm/battlemap/src/Update/DirectionRequest.elm')
-rw-r--r-- | client/elm/battlemap/src/Update/DirectionRequest.elm | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/client/elm/battlemap/src/Update/DirectionRequest.elm b/client/elm/battlemap/src/Update/DirectionRequest.elm deleted file mode 100644 index da32240..0000000 --- a/client/elm/battlemap/src/Update/DirectionRequest.elm +++ /dev/null @@ -1,37 +0,0 @@ -module Update.DirectionRequest exposing (apply_to) - -import Dict - -import Battlemap.Direction -import Battlemap.Navigator.Move - -import Model -import Error - -make_it_so : Model.Type -> Battlemap.Direction.Type -> Model.Type -make_it_so model dir = - case model.selection of - Nothing -> {model | state = (Model.Error Error.Programming)} - (Just selection) -> - let - (new_bmap, new_nav) = - (Battlemap.Navigator.Move.to - model.battlemap - selection.navigator - dir - (Dict.values model.characters) - ) - in - {model | - state = Model.MovingCharacterWithButtons, - battlemap = new_bmap, - selection = (Just {selection | navigator = new_nav}) - } - - -apply_to : Model.Type -> Battlemap.Direction.Type -> Model.Type -apply_to model dir = - case model.state of - Model.MovingCharacterWithButtons -> (make_it_so model dir) - Model.MovingCharacterWithClick -> (make_it_so model dir) - _ -> {model | state = (Model.Error Error.IllegalAction)} |