summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--src/battlemap/src/Send/CharacterTurn.elm55
-rw-r--r--src/battlemap/src/Send/LoadBattlemap.elm27
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 --------------------------------------------------------------------