| summaryrefslogtreecommitdiff | 
diff options
Diffstat (limited to 'src/battlemap/src/Send/CharacterTurn.elm')
| -rw-r--r-- | src/battlemap/src/Send/CharacterTurn.elm | 55 | 
1 files changed, 27 insertions, 28 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 +                           _ -> ""                          )                       ) -                  ] -               ) ---            ) +                  ) +               ] +            )           )        _ -> | 


