summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/shared/battle/Battle/Struct/Attributes.elm')
-rw-r--r-- | src/shared/battle/Battle/Struct/Attributes.elm | 36 |
1 files changed, 30 insertions, 6 deletions
diff --git a/src/shared/battle/Battle/Struct/Attributes.elm b/src/shared/battle/Battle/Struct/Attributes.elm index db16b5c..9d83bef 100644 --- a/src/shared/battle/Battle/Struct/Attributes.elm +++ b/src/shared/battle/Battle/Struct/Attributes.elm @@ -8,6 +8,12 @@ module Battle.Struct.Attributes exposing 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, @@ -73,40 +79,58 @@ 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 = (get_within_att_range (i + t.constitution)) + constitution = (i + t.constitution) } mod_dexterity : Int -> Type -> Type mod_dexterity i t = {t | - dexterity = (get_within_att_range (i + t.dexterity)) + dexterity = (i + t.dexterity) } mod_intelligence : Int -> Type -> Type mod_intelligence i t = {t | - intelligence = (get_within_att_range (i + t.intelligence)) + intelligence = (i + t.intelligence) } mod_mind : Int -> Type -> Type mod_mind i t = {t | - mind = (get_within_att_range (i + t.mind)) + mind = (i + t.mind) } mod_speed : Int -> Type -> Type mod_speed i t = {t | - speed = (get_within_att_range (i + t.speed)) + speed = (i + t.speed) } mod_strength : Int -> Type -> Type mod_strength i t = {t | - strength = (get_within_att_range (i + t.strength)) + strength = (i + t.strength) } mod : Category -> Int -> Type -> Type |