From 5f318a009042d92acaddc426811db9d608f1dcac Mon Sep 17 00:00:00 2001
From: nsensfel <SpamShield0@noot-noot.org>
Date: Fri, 27 Oct 2017 13:34:40 +0200
Subject: Starting to add communications w/ the server.

---
 src/battlemap/src/Constants/IO.elm          |  7 +++++
 src/battlemap/src/Send/CharacterActions.elm | 48 +++++++++++++++++++++++++++++
 2 files changed, 55 insertions(+)
 create mode 100644 src/battlemap/src/Constants/IO.elm
 create mode 100644 src/battlemap/src/Send/CharacterActions.elm

diff --git a/src/battlemap/src/Constants/IO.elm b/src/battlemap/src/Constants/IO.elm
new file mode 100644
index 0000000..c6f3e48
--- /dev/null
+++ b/src/battlemap/src/Constants/IO.elm
@@ -0,0 +1,7 @@
+module Constants.IO exposing (..)
+
+base_url : String
+base_url = "https://tacticians.online"
+
+battlemap_handler_url : String
+battlemap_handler_url = (base_url ++ "/handler/battlemap/")
diff --git a/src/battlemap/src/Send/CharacterActions.elm b/src/battlemap/src/Send/CharacterActions.elm
new file mode 100644
index 0000000..7d2f380
--- /dev/null
+++ b/src/battlemap/src/Send/CharacterActions.elm
@@ -0,0 +1,48 @@
+module IO.CharacterTurn exposing (send)
+
+-- Elm -------------------------------------------------------------------------
+import Http
+
+import Json.Encode
+import Json.Decode
+
+-- Battlemap -------------------------------------------------------------------
+import Constants.IO
+
+import Event
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+encode : Model -> Json.Encode.Value
+encode model =
+   (Json.Encode.encode
+      0
+      (Json.Encode.object
+         [
+            ("user_token", Json.Encode.string model.user_token),
+            ("char_id", Json.Encode.string ...),
+            ("path", Jsong.Encode.string ...),
+            ("target_id", Jsong.Encode.string ...)
+         ]
+      )
+   )
+
+decode : (Json.Decode.Decoder a)
+decode =
+
+receive : (Http.Result (Http.Error a)) -> Event
+receive reply =
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+send : Model -> (Http.Request String)
+send model =
+   (Http.send
+      (receive)
+      (Http.post
+         Constants.IO.battlemap_handler_url
+         (Http.jsonBody (encode model))
+         (decode)
+      )
+   )
-- 
cgit v1.2.3-70-g09d2