...

2 files changed, 23 insertions, 0 deletions

diff --git a/src/shared/battle/Battle/Struct/Attributes.elm b/src/shared/battle/Battle/Struct/Attributes.elm
index ee12dbd..6f6fe10 100644
--- a/src/shared/battle/Battle/Struct/Attributes.elm
+++ b/src/shared/battle/Battle/Struct/Attributes.elm
@@ -18,6 +18,7 @@ module Battle.Struct.Attributes exposing
       get,
       new,
       decode_category,
+      encode_category,
       default
    )
 
@@ -167,3 +168,13 @@ decode_category str =
       "min" -> Mind
       "spe" -> Speed
       _ -> Strength
+
+encode_category : Category -> string
+encode_category cat =
+   case cat of
+      Constitution -> "con"
+      Dexterity -> "dex"
+      Intelligence -> "int"
+      Mind -> "min"
+      Speed -> "spe"
+      Strength -> "str"
diff --git a/src/shared/battle/Battle/Struct/Statistics.elm b/src/shared/battle/Battle/Struct/Statistics.elm
index e21b4f6..43bd27d 100644
--- a/src/shared/battle/Battle/Struct/Statistics.elm
+++ b/src/shared/battle/Battle/Struct/Statistics.elm
@@ -11,6 +11,7 @@ module Battle.Struct.Statistics exposing
       get_critical_hits,
       get_damage_modifier,
       decode_category,
+      encode_category,
       mod,
       new_raw
    )
@@ -208,3 +209,14 @@ decode_category str =
       "accu" -> Accuracy
       "dhit" -> DoubleHits
       _  -> CriticalHits
+
+encode_category : Category -> String
+encode_category cat =
+   case cat of
+      MaxHealth -> "mheal"
+      MovementPoints -> "mpts"
+      Dodges -> "dodg"
+      Parries -> "pary"
+      Accuracy -> "accu"
+      DoubleHits -> "dhit"
+      CriticalHits -> "crit"