| summaryrefslogtreecommitdiff | 
diff options
| author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2019-06-14 10:25:55 +0200 | 
|---|---|---|
| committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2019-06-14 10:25:55 +0200 | 
| commit | 182462aaf6b2b02c5feabb86810402368149cfcf (patch) | |
| tree | 0e560d5c634ab9c937d315db6e0ce76d94c3efc0 /src/shared/battle/Battle/Struct/Attributes.elm | |
| parent | 158c04ad2ece69aeeb5bf812ec81bd85c3a8128e (diff) | |
Removes all references to attributes.
Diffstat (limited to 'src/shared/battle/Battle/Struct/Attributes.elm')
| -rw-r--r-- | src/shared/battle/Battle/Struct/Attributes.elm | 204 | 
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" | 


