From a2bac44a4c8abc064de55d0779edcb07aaa86e62 Mon Sep 17 00:00:00 2001 From: nsensfel Date: Mon, 25 Nov 2019 14:32:39 +0100 Subject: ... --- .../BattleCharacters/Comm/AddDataSetItem.elm | 48 ++++++++++++++++++++++ 1 file changed, 48 insertions(+) create mode 100644 src/shared/battle-characters/BattleCharacters/Comm/AddDataSetItem.elm (limited to 'src/shared/battle-characters/BattleCharacters/Comm/AddDataSetItem.elm') diff --git a/src/shared/battle-characters/BattleCharacters/Comm/AddDataSetItem.elm b/src/shared/battle-characters/BattleCharacters/Comm/AddDataSetItem.elm new file mode 100644 index 0000000..aa1ce94 --- /dev/null +++ b/src/shared/battle-characters/BattleCharacters/Comm/AddDataSetItem.elm @@ -0,0 +1,48 @@ +module BattleCharacters.Comm.AddDataSetItem exposing (prefix, get_decoder_for) + +-- Elm ------------------------------------------------------------------------- +import Json.Decode + +-- Battle Characters ----------------------------------------------------------- +import BattleCharacters.Comm.AddArmor +import BattleCharacters.Comm.AddGlyph +import BattleCharacters.Comm.AddGlyphBoard +import BattleCharacters.Comm.AddPortrait +import BattleCharacters.Comm.AddSkill +import BattleCharacters.Comm.AddWeapon + +-- Local Module ---------------------------------------------------------------- +import Struct.ServerReply + +-------------------------------------------------------------------------------- +-- TYPES ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- + +-------------------------------------------------------------------------------- +-- LOCAL ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- + +-------------------------------------------------------------------------------- +-- EXPORTED -------------------------------------------------------------------- +-------------------------------------------------------------------------------- +prefix : String +prefix = "acds" + +get_decoder_for : String -> (Json.Decode.Decoder Struct.ServerReply.Type) +get_decoder_for reply_type = + case reply_type of + "acds_armor" -> (BattleCharacters.Comm.AddArmor.decode) + "acds_weapon" -> (BattleCharacters.Comm.AddWeapon.decode) + "acds_portrait" -> (BattleCharacters.Comm.AddPortrait.decode) + "acds_glyph" -> (BattleCharacters.Comm.AddGlyph.decode) + "acds_glyph_board" -> (BattleCharacters.Comm.AddGlyphBoard.decode) + "acds_skill" -> (BattleCharacters.Comm.AddSkill.decode) + + other -> + (Json.Decode.fail + ( + "Unknown server command \"" + ++ other + ++ "\"" + ) + ) -- cgit v1.2.3-70-g09d2