Add more info on the client when making requests.

2 files changed, 37 insertions, 45 deletions

diff --git a/src/battlemap/src/Send/CharacterTurn.elm b/src/battlemap/src/Send/CharacterTurn.elm
index ce1438e..38ae6af 100644
--- a/src/battlemap/src/Send/CharacterTurn.elm
+++ b/src/battlemap/src/Send/CharacterTurn.elm
@@ -29,38 +29,37 @@ try_encoding model =
    case (Model.get_state model) of
       (Model.ControllingCharacter char_ref) ->
          (Just
---            (Json.Encode.encode
---               0
-               (Json.Encode.object
-                  [
-                 --  ("user_token", Json.Encode.string model.user_token),
-                     ("user_token", Json.Encode.string "user0"),
-                     ("char_id", Json.Encode.string char_ref),
-                     (
-                        "path",
-                        (Json.Encode.list
-                           (List.map
-                              (
-                                 (Json.Encode.string)
-                                 <<
-                                 (Battlemap.Direction.to_string)
-                              )
-                              (Battlemap.get_navigator_path model.battlemap)
+            (Json.Encode.object
+               [
+                  ("session_token", Json.Encode.string "0"),
+                  ("player_id", Json.Encode.string "0"),
+                  ("battlemap_id", Json.Encode.string "0"),
+                  ("instance_id", Json.Encode.string "0"),
+                  ("char_id", Json.Encode.string char_ref),
+                  (
+                     "path",
+                     (Json.Encode.list
+                        (List.map
+                           (
+                              (Json.Encode.string)
+                              <<
+                              (Battlemap.Direction.to_string)
                            )
+                           (Battlemap.get_navigator_path model.battlemap)
                         )
-                     ),
-                     (
-                        "target_id",
-                        (Json.Encode.string
-                           (case (UI.get_previous_action model.ui) of
-                              (Just (UI.AttackedCharacter id)) -> id
-                              _ -> ""
-                           )
+                     )
+                  ),
+                  (
+                     "target_id",
+                     (Json.Encode.string
+                        (case (UI.get_previous_action model.ui) of
+                           (Just (UI.AttackedCharacter id)) -> id
+                           _ -> ""
                         )
                      )
-                  ]
-               )
---            )
+                  )
+               ]
+            )
          )
 
       _ ->
diff --git a/src/battlemap/src/Send/LoadBattlemap.elm b/src/battlemap/src/Send/LoadBattlemap.elm
index 6024acd..1aba7d7 100644
--- a/src/battlemap/src/Send/LoadBattlemap.elm
+++ b/src/battlemap/src/Send/LoadBattlemap.elm
@@ -28,23 +28,16 @@ import Event
 --------------------------------------------------------------------------------
 try_encoding : Model.Type -> (Maybe Json.Encode.Value)
 try_encoding model =
-   case (Model.get_state model) of
-      (Model.ControllingCharacter char_ref) ->
-         (Just
---            (Json.Encode.encode
---               0
-               (Json.Encode.object
-                  [
-                     ("player_id", (Json.Encode.string "0")),
-                     ("battlemap_id", (Json.Encode.string "0")),
-                     ("instance_id", (Json.Encode.string "0"))
-                  ]
-               )
---            )
-         )
-
-      _ ->
-         Nothing
+   (Just
+      (Json.Encode.object
+         [
+            ("session_token", (Json.Encode.string "0")),
+            ("player_id", (Json.Encode.string "0")),
+            ("battlemap_id", (Json.Encode.string "0")),
+            ("instance_id", (Json.Encode.string "0"))
+         ]
+      )
+   )
 
 --------------------------------------------------------------------------------
 -- EXPORTED --------------------------------------------------------------------