1 files changed, 76 insertions, 0 deletions
diff --git a/src/battle/src/Update/RequestDirection.elm b/src/battle/src/Update/RequestDirection.elm
new file mode 100644
index 0000000..b6c8f13
--- /dev/null
+++ b/src/battle/src/Update/RequestDirection.elm
@@ -0,0 +1,76 @@
+module Update.RequestDirection exposing (apply_to)
+
+-- Elm -------------------------------------------------------------------------
+
+-- Map -------------------------------------------------------------------
+import Struct.CharacterTurn
+import Struct.Direction
+import Struct.Error
+import Struct.Event
+import Struct.Model
+import Struct.Navigator
+import Struct.UI
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+make_it_so : (
+      Struct.Model.Type ->
+      Struct.Navigator.Type ->
+      Struct.Direction.Type ->
+      Struct.Model.Type
+   )
+make_it_so model navigator dir =
+   case (Struct.Navigator.try_adding_step dir navigator) of
+      (Just new_navigator) ->
+         {model |
+            char_turn =
+               (Struct.CharacterTurn.set_navigator
+                  new_navigator
+                  model.char_turn
+               ),
+            ui =
+               (Struct.UI.set_previous_action
+                  (Just Struct.UI.UsedManualControls)
+                  model.ui
+               )
+         }
+
+      Nothing ->
+         (Struct.Model.invalidate
+            (Struct.Error.new
+               Struct.Error.IllegalAction
+               "Unreachable/occupied tile."
+            )
+            model
+         )
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+apply_to : (
+      Struct.Model.Type ->
+      Struct.Direction.Type ->
+      (Struct.Model.Type, (Cmd Struct.Event.Type))
+   )
+apply_to model dir =
+   case
+      (Struct.CharacterTurn.try_getting_navigator model.char_turn)
+   of
+      (Just navigator) ->
+         (
+            (make_it_so model navigator dir),
+            Cmd.none
+         )
+
+      _ ->
+         (
+            (Struct.Model.invalidate
+               (Struct.Error.new
+                  Struct.Error.IllegalAction
+                  "This can only be done while moving a character."
+               )
+               model
+            ),
+            Cmd.none
+         )