1 files changed, 0 insertions, 204 deletions
diff --git a/src/shared/battle/Battle/Struct/Attributes.elm b/src/shared/battle/Battle/Struct/Attributes.elm
deleted file mode 100644
index 9d83bef..0000000
--- a/src/shared/battle/Battle/Struct/Attributes.elm
+++ /dev/null
@@ -1,204 +0,0 @@
-module Battle.Struct.Attributes exposing
-   (
-      Type,
-      Category(..),
-      get_constitution,
-      get_dexterity,
-      get_intelligence,
-      get_mind,
-      get_speed,
-      get_strength,
-      get_effective_constitution,
-      get_effective_dexterity,
-      get_effective_intelligence,
-      get_effective_mind,
-      get_effective_speed,
-      get_effective_strength,
-      mod_constitution,
-      mod_dexterity,
-      mod_intelligence,
-      mod_mind,
-      mod_speed,
-      mod_strength,
-      mod,
-      get,
-      new,
-      decode_category,
-      encode_category,
-      default
-   )
-
---------------------------------------------------------------------------------
--- TYPES -----------------------------------------------------------------------
---------------------------------------------------------------------------------
-type Category =
-   Constitution
-   | Dexterity
-   | Intelligence
-   | Mind
-   | Speed
-   | Strength
-
-type alias Type =
-   {
-      constitution : Int,
-      dexterity : Int,
-      intelligence : Int,
-      mind : Int,
-      speed : Int,
-      strength : Int
-   }
-
---------------------------------------------------------------------------------
--- LOCAL -----------------------------------------------------------------------
---------------------------------------------------------------------------------
-get_within_range : Int -> Int -> Int -> Int
-get_within_range vmin vmax v = (min vmax (max vmin v))
-
-get_within_att_range : Int -> Int
-get_within_att_range v = (get_within_range 0 100 v)
-
---------------------------------------------------------------------------------
--- EXPORTED --------------------------------------------------------------------
---------------------------------------------------------------------------------
-get_constitution : Type -> Int
-get_constitution t = t.constitution
-
-get_dexterity : Type -> Int
-get_dexterity t = t.dexterity
-
-get_intelligence : Type -> Int
-get_intelligence t = t.intelligence
-
-get_mind : Type -> Int
-get_mind t = t.mind
-
-get_speed : Type -> Int
-get_speed t = t.speed
-
-get_strength : Type -> Int
-get_strength t = t.strength
-
-get_effective_constitution : Type -> Int
-get_effective_constitution t = (get_within_att_range t.constitution)
-
-get_effective_dexterity : Type -> Int
-get_effective_dexterity t = (get_within_att_range t.dexterity)
-
-get_effective_intelligence : Type -> Int
-get_effective_intelligence t = (get_within_att_range t.intelligence)
-
-get_effective_mind : Type -> Int
-get_effective_mind t = (get_within_att_range t.mind)
-
-get_effective_speed : Type -> Int
-get_effective_speed t = (get_within_att_range t.speed)
-
-get_effective_strength : Type -> Int
-get_effective_strength t = (get_within_att_range t.strength)
-
-mod_constitution : Int -> Type -> Type
-mod_constitution i t =
-   {t |
-      constitution = (i + t.constitution)
-   }
-
-mod_dexterity : Int -> Type -> Type
-mod_dexterity i t =
-   {t |
-      dexterity = (i + t.dexterity)
-   }
-
-mod_intelligence : Int -> Type -> Type
-mod_intelligence i t =
-   {t |
-      intelligence = (i + t.intelligence)
-   }
-
-mod_mind : Int -> Type -> Type
-mod_mind i t =
-   {t |
-      mind = (i + t.mind)
-   }
-
-mod_speed : Int -> Type -> Type
-mod_speed i t =
-   {t |
-      speed = (i + t.speed)
-   }
-
-mod_strength : Int -> Type -> Type
-mod_strength i t =
-   {t |
-      strength = (i + t.strength)
-   }
-
-mod : Category -> Int -> Type -> Type
-mod cat i t =
-   case cat of
-      Constitution -> (mod_constitution i t)
-      Dexterity -> (mod_dexterity i t)
-      Intelligence -> (mod_intelligence i t)
-      Mind -> (mod_mind i t)
-      Speed -> (mod_speed i t)
-      Strength -> (mod_strength i t)
-
-get : Category -> Type -> Int
-get cat t =
-   case cat of
-      Constitution -> (get_constitution t)
-      Dexterity -> (get_dexterity t)
-      Intelligence -> (get_intelligence t)
-      Mind -> (get_mind t)
-      Speed -> (get_speed t)
-      Strength -> (get_strength t)
-
-new : (
-      Int -> -- constitution
-      Int -> -- dexterity
-      Int -> -- intelligence
-      Int -> -- mind
-      Int -> -- speed
-      Int -> -- strength
-      Type
-   )
-new con dex int min spe str =
-   {
-      constitution = con,
-      dexterity = dex,
-      intelligence = int,
-      mind = min,
-      speed = spe,
-      strength = str
-   }
-
-default : Type
-default =
-   {
-      constitution = 50,
-      dexterity = 50,
-      intelligence = 50,
-      mind = 50,
-      speed = 50,
-      strength = 50
-   }
-
-decode_category : String -> Category
-decode_category str =
-   case str of
-      "con" -> Constitution
-      "dex" -> Dexterity
-      "int" -> Intelligence
-      "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"