From c4a3e939ca10aca673732340b0c47d663da30302 Mon Sep 17 00:00:00 2001
From: nsensfel <SpamShield0@noot-noot.org>
Date: Tue, 6 Mar 2018 17:08:47 +0100
Subject: Changing how JSON is used...

---
 src/battlemap/src/Update/HandleServerReply.elm     |  8 ++++++++
 .../src/Update/HandleServerReply/AddChar.elm       | 22 +++++++++++++++++-----
 2 files changed, 25 insertions(+), 5 deletions(-)

diff --git a/src/battlemap/src/Update/HandleServerReply.elm b/src/battlemap/src/Update/HandleServerReply.elm
index 5a64918..3eb09c1 100644
--- a/src/battlemap/src/Update/HandleServerReply.elm
+++ b/src/battlemap/src/Update/HandleServerReply.elm
@@ -11,6 +11,14 @@ import Struct.Model
 import Update.HandleServerReply.AddChar
 import Update.HandleServerReply.SetMap
 
+--------------------------------------------------------------------------------
+-- TYPES -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+type ServerReply =
+   (SetMap Update.HandleServerReply.SetMap.Type)
+   | (AddChar Update.HandleServerReply.SetMap.Type)
+   | (Other String)
 --------------------------------------------------------------------------------
 -- LOCAL -----------------------------------------------------------------------
 --------------------------------------------------------------------------------
diff --git a/src/battlemap/src/Update/HandleServerReply/AddChar.elm b/src/battlemap/src/Update/HandleServerReply/AddChar.elm
index 382e68a..2fa4195 100644
--- a/src/battlemap/src/Update/HandleServerReply/AddChar.elm
+++ b/src/battlemap/src/Update/HandleServerReply/AddChar.elm
@@ -28,14 +28,19 @@ type alias CharAtt =
       str : Int
    }
 
+type alias Location =
+   {
+      x : Int,
+      y : Int
+   }
+
 type alias CharData =
    {
       ix : Int,
       nam : String,
       ico : String,
       prt : String,
-      lcx : Int,
-      lcy : Int,
+      lc : Location,
       hea : Int,
       pla : String,
       ena : Bool,
@@ -59,6 +64,14 @@ attributes_decoder =
       |> (Json.Decode.Pipeline.required "str" Json.Decode.int)
    )
 
+location_decoder : (Json.Decode.Decoder Location)
+location_decoder =
+   (Json.Decode.Pipeline.decode
+      Location
+      |> (Json.Decode.Pipeline.required "x" Json.Decode.int)
+      |> (Json.Decode.Pipeline.required "y" Json.Decode.int)
+   )
+
 char_decoder : (Json.Decode.Decoder CharData)
 char_decoder =
    (Json.Decode.Pipeline.decode
@@ -67,8 +80,7 @@ char_decoder =
       |> (Json.Decode.Pipeline.required "nam" Json.Decode.string)
       |> (Json.Decode.Pipeline.required "ico" Json.Decode.string)
       |> (Json.Decode.Pipeline.required "prt" Json.Decode.string)
-      |> (Json.Decode.Pipeline.required "lcx" Json.Decode.int)
-      |> (Json.Decode.Pipeline.required "lcy" Json.Decode.int)
+      |> (Json.Decode.Pipeline.required "lc" location_decoder)
       |> (Json.Decode.Pipeline.required "hea" Json.Decode.int)
       |> (Json.Decode.Pipeline.required "pla" Json.Decode.string)
       |> (Json.Decode.Pipeline.required "ena" Json.Decode.bool)
@@ -96,7 +108,7 @@ apply_to model serialized_char =
                char_data.nam
                char_data.ico
                char_data.prt
-               {x = char_data.lcx, y = char_data.lcy}
+               {x = lc.x, y = lc.y}
                char_data.hea
                char_data.pla
                char_data.ena
-- 
cgit v1.2.3-70-g09d2