From 4905bb9d6322c14034ef3278f67917cf09aae8be Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Wed, 4 Mar 2020 14:38:49 +0100
Subject: ...

---
 .../BattleCharacters/Struct/StatusIndicator.elm    | 44 ++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 src/shared/battle-characters/BattleCharacters/Struct/StatusIndicator.elm

(limited to 'src/shared')

diff --git a/src/shared/battle-characters/BattleCharacters/Struct/StatusIndicator.elm b/src/shared/battle-characters/BattleCharacters/Struct/StatusIndicator.elm
new file mode 100644
index 0000000..c982898
--- /dev/null
+++ b/src/shared/battle-characters/BattleCharacters/Struct/StatusIndicator.elm
@@ -0,0 +1,44 @@
+module BattleCharacters.Struct.StatusIndicator exposing
+   (
+      Type,
+      decoder
+   )
+
+-- Elm -------------------------------------------------------------------------
+import Set
+
+import Json.Decode
+import Json.Decode.Pipeline
+
+-- Battle Character ------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- TYPES -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+type Visibility =
+   None
+   | Limited (Set.Set Int)
+   | All
+
+type alias Type =
+   {
+      ix : Int,
+      category : String,
+      parameter : String
+   }
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+decoder : (Json.Decode.Decoder Type)
+decoder =
+   (Json.Decode.succeed
+      Type
+      |> (Json.Decode.Pipeline.required "i" Json.Decode.int)
+      |> (Json.Decode.Pipeline.required "c" Json.Decode.string)
+      |> (Json.Decode.Pipeline.required "p" Json.Decode.string)
+   )
-- 
cgit v1.2.3-70-g09d2