...

4 files changed, 894 insertions, 6 deletions

diff --git a/src/balancer/struct/blc_armor.erl b/src/balancer/struct/blc_armor.erl
index 46189d2..9677f88 100644
--- a/src/balancer/struct/blc_armor.erl
+++ b/src/balancer/struct/blc_armor.erl
@@ -1,6 +1,6 @@
 -module(blc_armor).
 
--include("base_attributes.hrl").
+-include("tacticians/attributes.hrl").
 
 -define
 (
@@ -57,7 +57,6 @@
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 -export_type([proto_armor/0]).
 
-% FIXME: quick debug
 -export
 (
    [
@@ -97,7 +96,7 @@
    )
    -> {proto_armor(), non_neg_integer()}.
 increase_health_by (Amount, Armor) ->
-   NewHealth = Armor#proto_armor.health + Amount,
+   NewHealth = (Armor#proto_armor.health + Amount),
    case (NewHealth > ?ATTRIBUTE_HEALTH_MAX) of
       true ->
          {
@@ -122,7 +121,7 @@ increase_health_by (Amount, Armor) ->
    )
    -> {proto_armor(), non_neg_integer()}.
 increase_damage_modifier_by (Amount, Armor) ->
-   NewDamageModifier = Armor#proto_armor.damage_modifier + Amount,
+   NewDamageModifier = (Armor#proto_armor.damage_modifier + Amount),
    case (NewDamageModifier > ?ATTRIBUTE_DAMAGE_MODIFIER_MAX) of
       true ->
          {
@@ -153,7 +152,7 @@ increase_damage_modifier_by (Amount, Armor) ->
    )
    -> {proto_armor(), non_neg_integer()}.
 increase_dodge_chance_by (Amount, Armor) ->
-   NewDodgeChance = Armor#proto_armor.dodge + Amount,
+   NewDodgeChance = (Armor#proto_armor.dodge + Amount),
    case (NewDodgeChance > ?ATTRIBUTE_DODGE_CHANCE_MAX) of
       true ->
          {
@@ -178,7 +177,7 @@ increase_dodge_chance_by (Amount, Armor) ->
    )
    -> {proto_armor(), non_neg_integer()}.
 increase_movement_points_by (Amount, Armor) ->
-   NewMvtPoints = Armor#proto_armor.mvt_points + Amount,
+   NewMvtPoints = (Armor#proto_armor.mvt_points + Amount),
    case (NewMvtPoints > ?ATTRIBUTE_MOVEMENT_POINTS_MAX) of
       true ->
          {
diff --git a/src/balancer/struct/blc_error.erl b/src/balancer/struct/blc_error.erl
new file mode 100644
index 0000000..9bd3548
--- /dev/null
+++ b/src/balancer/struct/blc_error.erl
@@ -0,0 +1,24 @@
+-module(blc_error).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+-type type() ::
+   (
+      {error, balance, non_neg_integer(), non_neg_integer()}
+      | {error, incompatible}
+   ).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+-export_type([type/0]).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
diff --git a/src/balancer/struct/blc_glyph.erl b/src/balancer/struct/blc_glyph.erl
new file mode 100644
index 0000000..9b43f88
--- /dev/null
+++ b/src/balancer/struct/blc_glyph.erl
@@ -0,0 +1,451 @@
+-module(blc_glyph).
+
+-include("tacticians/attributes.hrl").
+
+-define(SPENDABLE_GLYPH_POINTS, 100).
+-define(NEGATIVE_POINTS_MODIFIER, 0.75).
+-define(NEGATIVE_POINTS_MULTIPLIER, (2 - ?NEGATIVE_POINTS_MODIFIER)).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+-record
+(
+   proto_glyph,
+   {
+      remaining_positive_points :: non_neg_integer(),
+      points_balance :: integer(),
+      omnimods :: shr_omnimods:type(),
+      defense_coef :: blc_damage_type:coefficient(),
+      attack_coef :: blc_damage_type:coefficient(),
+      defense_score :: non_neg_integer(),
+      defense_sign :: integer(),
+      attack_score :: non_neg_integer(),
+      attack_sign :: integer()
+   }
+).
+
+-opaque type() :: #proto_glyph{}.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+-export_type([type/0]).
+
+-export
+(
+   [
+      increase_attribute_by/3,
+      decrease_attribute_by/3,
+      increase_attribute_for/3,
+      decrease_attribute_for/3,
+      set_attack_coefficients/2,
+      set_defense_coefficients/2
+   ]
+).
+
+-export
+(
+   [
+      new/2,
+      get_remaining_positive_points/1,
+      get_points_balance/1
+   ]
+).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+-spec increase_attribute_by
+   (
+      shr_attributes:meta_enum(),
+      non_neg_integer(),
+      type()
+   )
+   -> ({ok, type()} | blc_error:type()).
+increase_attribute_by (?ATTRIBUTE_ATTACK_SCORE, S0Amount, Glyph) ->
+   S0NewAttackScore = (Glyph#proto_glyph.attack_score + S0Amount),
+   {S1NewAttackScore, S1Amount} =
+      case (S0NewAttackScore > ?ATTRIBUTE_ATTACK_SCORE_MAX) of
+         true ->
+            {
+               ?ATTRIBUTE_ATTACK_SCORE_MAX,
+               (?ATTRIBUTE_ATTACK_SCORE_MAX - Glyph#proto_glyph.attack_score)
+            };
+
+         false -> {S0NewAttackScore, S0Amount}
+      end,
+
+   Cost = (S1Amount * ?ATTRIBUTE_ATTACK_SCORE_COST),
+
+   if
+      (Glyph#proto_glyph.attack_sign == -1) -> {error, incompatible};
+      (Cost > (Glyph#proto_glyph.remaining_positive_points)) ->
+         {error, balance, Glyph#proto_glyph.remaining_positive_points, Cost};
+
+      true ->
+         {
+            ok,
+            Glyph#proto_glyph
+            {
+               attack_score = S1NewAttackScore,
+               attack_sign = 1,
+               omnimods =
+                  shr_omnimods:set_attack_modifiers
+                  (
+                     blc_damage_type:generate_entries_from_score
+                     (
+                        S1NewAttackScore,
+                        Glyph#proto_glyph.attack_coef
+                     ),
+                     Glyph#proto_glyph.omnimods
+                  ),
+               remaining_positive_points =
+                  (Glyph#proto_glyph.remaining_positive_points - Cost),
+               points_balance = (Glyph#proto_glyph.points_balance - Cost)
+            }
+         }
+   end;
+increase_attribute_by (?ATTRIBUTE_DEFENSE_SCORE, S0Amount, Glyph) ->
+   S0NewDefenseScore = (Glyph#proto_glyph.defense_score + S0Amount),
+   {S1NewDefenseScore, S1Amount} =
+      case (S0NewDefenseScore > ?ATTRIBUTE_DEFENSE_SCORE_MAX) of
+         true ->
+            {
+               ?ATTRIBUTE_DEFENSE_SCORE_MAX,
+               (?ATTRIBUTE_DEFENSE_SCORE_MAX - Glyph#proto_glyph.defense_score)
+            };
+
+         false -> {S0NewDefenseScore, S0Amount}
+      end,
+
+   Cost = (S1Amount * ?ATTRIBUTE_DEFENSE_SCORE_COST),
+
+   if
+      (Glyph#proto_glyph.defense_sign == -1) -> {error, incompatible};
+      (Cost > (Glyph#proto_glyph.remaining_positive_points)) ->
+         {error, balance, Glyph#proto_glyph.remaining_positive_points, Cost};
+
+      true ->
+         {
+            ok,
+            Glyph#proto_glyph
+            {
+               defense_score = S1NewDefenseScore,
+               defense_sign = 1,
+               omnimods =
+                  shr_omnimods:set_defense_modifiers
+                  (
+                     blc_damage_type:generate_entries_from_score
+                     (
+                        S1NewDefenseScore,
+                        Glyph#proto_glyph.defense_coef
+                     ),
+                     Glyph#proto_glyph.omnimods
+                  ),
+               remaining_positive_points =
+                  (Glyph#proto_glyph.remaining_positive_points - Cost),
+               points_balance = (Glyph#proto_glyph.points_balance - Cost)
+            }
+         }
+   end;
+increase_attribute_by (Attribute, S0Amount, Glyph) ->
+   {_AttMin, _AttDef, AttMax, AttCost} = blc_attribute:get_info(Attribute),
+   CurrentOmnimods = Glyph#proto_glyph.omnimods,
+   CurrentValue = shr_omnimods:get_attribute(Attribute, CurrentOmnimods),
+
+   S1Amount =
+      case ((CurrentValue + S0Amount) > AttMax) of
+         true -> (AttMax - CurrentValue);
+         false -> S0Amount
+      end,
+
+   Cost = (S1Amount * AttCost),
+
+   if
+      (CurrentValue < 0) -> {error, incompatible};
+      (Cost > (Glyph#proto_glyph.remaining_positive_points)) ->
+         {error, balance, Glyph#proto_glyph.remaining_positive_points, Cost};
+
+      true ->
+         {
+            ok,
+            Glyph#proto_glyph
+            {
+               omnimods =
+                  shr_omnimods:mod_attribute
+                  (
+                     Attribute,
+                     S1Amount,
+                     CurrentOmnimods
+                  ),
+               remaining_positive_points =
+                  (Glyph#proto_glyph.remaining_positive_points - Cost),
+               points_balance = (Glyph#proto_glyph.points_balance - Cost)
+            }
+         }
+   end.
+
+-spec decrease_attribute_by
+   (
+      shr_attributes:meta_enum(),
+      non_neg_integer(),
+      type()
+   )
+   -> ({ok, type()} | blc_error:type()).
+decrease_attribute_by (?ATTRIBUTE_ATTACK_SCORE, Amount, Glyph) ->
+   NewAttackScore = (Glyph#proto_glyph.attack_score + Amount),
+
+   Cost =
+      trunc
+      (
+         (Amount * ?ATTRIBUTE_ATTACK_SCORE_COST)
+         * ?NEGATIVE_POINTS_MULTIPLIER
+      ),
+
+   if
+      (Glyph#proto_glyph.attack_sign == -1) -> {error, incompatible};
+      true ->
+         {
+            ok,
+            Glyph#proto_glyph
+            {
+               attack_score = NewAttackScore,
+               attack_sign = -1,
+               omnimods =
+                  shr_omnimods:set_attack_modifiers
+                  (
+                     lists:map
+                     (
+                        fun ({Name, Value}) -> {Name, (-1 * Value)} end,
+                        blc_damage_type:generate_entries_from_score
+                        (
+                           NewAttackScore,
+                           Glyph#proto_glyph.attack_coef
+                        )
+                     ),
+                     Glyph#proto_glyph.omnimods
+                  ),
+               points_balance = (Glyph#proto_glyph.points_balance + Cost)
+            }
+         }
+   end;
+decrease_attribute_by (?ATTRIBUTE_DEFENSE_SCORE, Amount, Glyph) ->
+   NewDefenseScore = (Glyph#proto_glyph.defense_score + Amount),
+
+   Cost =
+      trunc
+      (
+         (Amount * ?ATTRIBUTE_DEFENSE_SCORE_COST)
+         * ?NEGATIVE_POINTS_MULTIPLIER
+      ),
+
+   if
+      (Glyph#proto_glyph.defense_sign == -1) -> {error, incompatible};
+      true ->
+         {
+            ok,
+            Glyph#proto_glyph
+            {
+               defense_score = NewDefenseScore,
+               defense_sign = -1,
+               omnimods =
+                  shr_omnimods:set_defense_modifiers
+                  (
+                     lists:map
+                     (
+                        fun ({Name, Value}) -> {Name, (-1 * Value)} end,
+                        blc_damage_type:generate_entries_from_score
+                        (
+                           NewDefenseScore,
+                           Glyph#proto_glyph.defense_coef
+                        )
+                     ),
+                     Glyph#proto_glyph.omnimods
+                  ),
+               points_balance = (Glyph#proto_glyph.points_balance + Cost)
+            }
+         }
+   end;
+decrease_attribute_by (Attribute, Amount, Glyph) ->
+   {_AttMin, _AttDef, _AttMax, AttCost} = blc_attribute:get_info(Attribute),
+   CurrentOmnimods = Glyph#proto_glyph.omnimods,
+   CurrentValue = shr_omnimods:get_attribute(Attribute, CurrentOmnimods),
+
+   Cost = ((Amount * AttCost) * ?NEGATIVE_POINTS_MULTIPLIER),
+
+   if
+      (CurrentValue > 0) -> {error, incompatible};
+
+      true ->
+         {
+            ok,
+            Glyph#proto_glyph
+            {
+               omnimods =
+                  shr_omnimods:mod_attribute
+                  (
+                     Attribute,
+                     (-1 * Amount),
+                     CurrentOmnimods
+                  ),
+               points_balance = (Glyph#proto_glyph.points_balance + Cost)
+            }
+         }
+   end.
+
+-spec set_attack_coefficients
+   (
+      list(blc_damage_type:coefficient()),
+      type()
+   )
+   -> type().
+set_attack_coefficients (Coefficients, Glyph) ->
+   NewGlyph =
+      Glyph#proto_glyph
+      {
+         attack_coef = blc_damage_type:sort_entries(Coefficients)
+      },
+
+   case (NewGlyph#proto_glyph.attack_sign) of
+      0 -> NewGlyph;
+      1 ->
+         NewGlyph#proto_glyph
+         {
+            omnimods =
+               shr_omnimods:set_attack_modifiers
+               (
+                  blc_damage_type:generate_entries_from_score
+                  (
+                     NewGlyph#proto_glyph.attack_score,
+                     NewGlyph#proto_glyph.attack_coef
+                  ),
+                  NewGlyph#proto_glyph.omnimods
+               )
+         };
+      -1 ->
+         NewGlyph#proto_glyph
+         {
+            omnimods =
+               shr_omnimods:set_attack_modifiers
+               (
+                  lists:map
+                  (
+                     fun ({Name, Value}) -> {Name, (-1 * Value)} end,
+                     blc_damage_type:generate_entries_from_score
+                     (
+                        NewGlyph#proto_glyph.attack_score,
+                        NewGlyph#proto_glyph.attack_coef
+                     )
+                  ),
+                  NewGlyph#proto_glyph.omnimods
+               )
+         }
+   end.
+
+-spec set_defense_coefficients
+   (
+      list(blc_damage_type:coefficient()),
+      type()
+   )
+   -> type().
+set_defense_coefficients (Coefficients, Glyph) ->
+   NewGlyph =
+      Glyph#proto_glyph
+      {
+         defense_coef = blc_damage_type:sort_entries(Coefficients)
+      },
+
+   case (NewGlyph#proto_glyph.defense_sign) of
+      0 -> NewGlyph;
+      1 ->
+         NewGlyph#proto_glyph
+         {
+            omnimods =
+               shr_omnimods:set_defense_modifiers
+               (
+                  blc_damage_type:generate_entries_from_score
+                  (
+                     NewGlyph#proto_glyph.defense_score,
+                     NewGlyph#proto_glyph.defense_coef
+                  ),
+                  NewGlyph#proto_glyph.omnimods
+               )
+         };
+      -1 ->
+         NewGlyph#proto_glyph
+         {
+            omnimods =
+               shr_omnimods:set_defense_modifiers
+               (
+                  lists:map
+                  (
+                     fun ({Name, Value}) -> {Name, (-1 * Value)} end,
+                     blc_damage_type:generate_entries_from_score
+                     (
+                        NewGlyph#proto_glyph.defense_score,
+                        NewGlyph#proto_glyph.defense_coef
+                     )
+                  ),
+                  NewGlyph#proto_glyph.omnimods
+               )
+         }
+   end.
+
+-spec new
+   (
+      list(blc_damage_type:coefficient()),
+      list(blc_damage_type:coefficient())
+   )
+   -> type().
+new (AttackCoefficients, DefenseCoefficients) ->
+   #proto_glyph
+   {
+      remaining_positive_points = ?SPENDABLE_GLYPH_POINTS,
+      points_balance = 0,
+      omnimods = omnimods:new(),
+      attack_coef = blc_damage_type:sort_entries(AttackCoefficients),
+      attack_score = 0,
+      attack_sign = 0,
+      defense_coef = blc_damage_type:sort_entries(DefenseCoefficients),
+      defense_score = 0,
+      defense_sign = 0
+   }.
+
+-spec increase_attribute_for
+   (
+      shr_attributes:meta_enum(),
+      non_neg_integer(),
+      type()
+   )
+   -> ({ok, type} | blc_error:type()).
+increase_attribute_for (Attribute, GivenPoints, Glyph) ->
+   {_AttMin, _AttDef, _AttMax, AttCost} = blc_attribute:get_info(Attribute),
+   AmountOfIncrease = trunc(GivenPoints / AttCost),
+   increase_attribute_by(Attribute, AmountOfIncrease, Glyph).
+
+-spec decrease_attribute_for
+   (
+      shr_attributes:meta_enum(),
+      non_neg_integer(),
+      type()
+   )
+   -> ({ok, type} | blc_error:type()).
+decrease_attribute_for (Attribute, GivenPoints, Glyph) ->
+   {_AttMin, _AttDef, _AttMax, AttCost} = blc_attribute:get_info(Attribute),
+   AmountOfDecrease =
+      trunc((GivenPoints * ?NEGATIVE_POINTS_MULTIPLIER) / AttCost),
+
+   increase_attribute_by(Attribute, AmountOfDecrease, Glyph).
+
+-spec get_remaining_positive_points (type()) -> non_neg_integer().
+get_remaining_positive_points (Glyph) ->
+   Glyph#proto_glyph.remaining_positive_points.
+
+-spec get_points_balance (type()) -> non_neg_integer().
+get_points_balance (Glyph) ->
+   Glyph#proto_glyph.points_balance.
diff --git a/src/balancer/struct/blc_weapon.erl b/src/balancer/struct/blc_weapon.erl
new file mode 100644
index 0000000..0edeb35
--- /dev/null
+++ b/src/balancer/struct/blc_weapon.erl
@@ -0,0 +1,414 @@
+-module(blc_weapon).
+
+-include("tacticians/attributes.hrl").
+
+-define(WEAPON_ATTRIBUTE_RANGE_MIN,       0).
+-define(WEAPON_ATTRIBUTE_RANGE_MAX,       2).
+-define(WEAPON_ATTRIBUTE_RANGE_DEFAULT,   0).
+-define(WEAPON_ATTRIBUTE_RANGE_COST,      1).
+
+-define(WEAPON_ATTRIBUTE_TYPE_MIN,     0).
+-define(WEAPON_ATTRIBUTE_TYPE_MAX,     1).
+-define(WEAPON_ATTRIBUTE_TYPE_DEFAULT, 0).
+-define(WEAPON_ATTRIBUTE_TYPE_COST,    100).
+
+
+-define
+(
+   SPENDABLE_WEAPON_POINTS,
+   (
+      (
+         ?ATTRIBUTE_ACCURACY_COST
+         * (?ATTRIBUTE_ACCURACY_DEFAULT - ?ATTRIBUTE_ACCURACY_MIN)
+      )
+      +
+      (
+         ?ATTRIBUTE_CRITICAL_HIT_CHANCE_COST
+         *
+         (
+            ?ATTRIBUTE_CRITICAL_HIT_CHANCE_DEFAULT
+            - ?ATTRIBUTE_CRITICAL_HIT_CHANCE_MIN
+         )
+      )
+      +
+      (
+         ?ATTRIBUTE_DOUBLE_HIT_CHANCE_COST
+         *
+         (
+            ?ATTRIBUTE_DOUBLE_HIT_CHANCE_DEFAULT
+            - ?ATTRIBUTE_DOUBLE_HIT_CHANCE_MIN
+         )
+      )
+      +
+      (
+         ?ATTRIBUTE_ATTACK_SCORE_COST
+         * (?ATTRIBUTE_ATTACK_SCORE_DEFAULT - ?ATTRIBUTE_ATTACK_SCORE_MIN)
+      )
+      +
+      (
+         ?WEAPON_ATTRIBUTE_RANGE_COST
+         * (?WEAPON_ATTRIBUTE_RANGE_DEFAULT - ?WEAPON_ATTRIBUTE_RANGE_MIN)
+      )
+   )
+).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+-record
+(
+   proto_weapon,
+   {
+      range :: non_neg_integer(),
+      type :: non_neg_integer(),
+      accuracy :: non_neg_integer(),
+      critical_hit_chance :: non_neg_integer(),
+      double_hit_chance :: non_neg_integer(),
+      attack :: list(blc_damage_type:entry()),
+      attack_coef :: list(blc_damage_type:coefficient()),
+      attack_score :: non_neg_integer()
+   }
+).
+
+-opaque proto_weapon() :: #proto_weapon{}.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+-export_type([proto_weapon/0]).
+
+-export
+(
+   [
+      increase_range_by/2,
+      increase_type_by/2,
+      increase_accuracy_by/2,
+      increase_critical_hit_chance_by/2,
+      increase_double_hit_chance_by/2,
+      increase_attack_score_by/2,
+      increase_range_for/2,
+      increase_type_for/2,
+      increase_accuracy_for/2,
+      increase_critical_hit_chance_for/2,
+      increase_double_hit_chance_for/2,
+      increase_attack_score_for/2,
+      set_attack_coefficients/2
+   ]
+).
+
+-export
+(
+   [
+      new/1,
+      get_spendable_points/0
+   ]
+).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+-spec increase_accuracy_by
+   (
+      non_neg_integer(),
+      proto_weapon()
+   )
+   -> {proto_weapon(), non_neg_integer()}.
+increase_accuracy_by (Amount, Weapon) ->
+   NewAccuracy = (Weapon#proto_weapon.accuracy + Amount),
+   case (NewAccuracy > ?ATTRIBUTE_ACCURACY_MAX) of
+      true ->
+         {
+            Weapon#proto_weapon{ accuracy = ?ATTRIBUTE_ACCURACY_MAX },
+            (
+               (?ATTRIBUTE_ACCURACY_MAX - Weapon#proto_weapon.accuracy)
+               * ?ATTRIBUTE_ACCURACY_COST
+            )
+         };
+
+      false ->
+         {
+            Weapon#proto_weapon{ accuracy = NewAccuracy },
+            (Amount * ?ATTRIBUTE_ACCURACY_COST)
+         }
+   end.
+
+-spec increase_range_by
+   (
+      non_neg_integer(),
+      proto_weapon()
+   )
+   -> {proto_weapon(), non_neg_integer()}.
+increase_range_by (Amount, Weapon) ->
+   NewDamageModifier = Weapon#proto_weapon.range + Amount,
+   case (NewDamageModifier > ?WEAPON_ATTRIBUTE_RANGE_MAX) of
+      true ->
+         {
+            Weapon#proto_weapon
+            {
+               range = ?WEAPON_ATTRIBUTE_RANGE_MAX
+            },
+            (
+               (
+                  ?WEAPON_ATTRIBUTE_RANGE_MAX
+                  - Weapon#proto_weapon.range
+               )
+               * ?WEAPON_ATTRIBUTE_RANGE_COST
+            )
+         };
+
+      false ->
+         {
+            Weapon#proto_weapon{ range = NewDamageModifier },
+            (Amount * ?WEAPON_ATTRIBUTE_RANGE_COST)
+         }
+   end.
+
+-spec increase_type_by
+   (
+      non_neg_integer(),
+      proto_weapon()
+   )
+   -> {proto_weapon(), non_neg_integer()}.
+increase_type_by (Amount, Weapon) ->
+   NewType = Weapon#proto_weapon.type + Amount,
+   case (NewType > ?WEAPON_ATTRIBUTE_TYPE_MAX) of
+      true ->
+         {
+            Weapon#proto_weapon { type = ?WEAPON_ATTRIBUTE_TYPE_MAX },
+            (
+               (?WEAPON_ATTRIBUTE_TYPE_MAX - Weapon#proto_weapon.type)
+               * ?WEAPON_ATTRIBUTE_TYPE_COST
+            )
+         };
+
+      false ->
+         {
+            Weapon#proto_weapon{ type = NewType },
+            (Amount * ?WEAPON_ATTRIBUTE_TYPE_COST)
+         }
+   end.
+
+-spec increase_critical_hit_chance_by
+   (
+      non_neg_integer(),
+      proto_weapon()
+   )
+   -> {proto_weapon(), non_neg_integer()}.
+increase_critical_hit_chance_by (Amount, Weapon) ->
+   NewCriticalHitChance = (Weapon#proto_weapon.critical_hit_chance + Amount),
+   case (NewCriticalHitChance > ?ATTRIBUTE_CRITICAL_HIT_CHANCE_MAX) of
+      true ->
+         {
+            Weapon#proto_weapon
+            {
+               critical_hit_chance = ?ATTRIBUTE_CRITICAL_HIT_CHANCE_MAX
+            },
+            (
+               (
+                  ?ATTRIBUTE_CRITICAL_HIT_CHANCE_MAX
+                  - Weapon#proto_weapon.critical_hit_chance
+               )
+               * ?ATTRIBUTE_CRITICAL_HIT_CHANCE_COST
+            )
+         };
+
+      false ->
+         {
+            Weapon#proto_weapon{ critical_hit_chance = NewCriticalHitChance },
+            (Amount * ?ATTRIBUTE_CRITICAL_HIT_CHANCE_COST)
+         }
+   end.
+
+-spec increase_double_hit_chance_by
+   (
+      non_neg_integer(),
+      proto_weapon()
+   )
+   -> {proto_weapon(), non_neg_integer()}.
+increase_double_hit_chance_by (Amount, Weapon) ->
+   NewDoubleHitChance = Weapon#proto_weapon.double_hit_chance + Amount,
+   case (NewDoubleHitChance > ?ATTRIBUTE_DOUBLE_HIT_CHANCE_MAX) of
+      true ->
+         {
+            Weapon#proto_weapon
+            {
+               double_hit_chance = ?ATTRIBUTE_DOUBLE_HIT_CHANCE_MAX
+            },
+            (
+               (
+                  ?ATTRIBUTE_DOUBLE_HIT_CHANCE_MAX
+                  - Weapon#proto_weapon.double_hit_chance
+               )
+               * ?ATTRIBUTE_DOUBLE_HIT_CHANCE_COST
+            )
+         };
+
+      false ->
+         {
+            Weapon#proto_weapon{ double_hit_chance = NewDoubleHitChance },
+            (Amount * ?ATTRIBUTE_DOUBLE_HIT_CHANCE_COST)
+         }
+   end.
+
+
+-spec increase_attack_score_by
+   (
+      non_neg_integer(),
+      proto_weapon()
+   )
+   -> {proto_weapon(), non_neg_integer()}.
+increase_attack_score_by (Amount, Weapon) ->
+   NewAttackScore = (Weapon#proto_weapon.attack_score + Amount),
+   case (NewAttackScore > ?ATTRIBUTE_ATTACK_SCORE_MAX) of
+      true ->
+         {
+            Weapon#proto_weapon
+            {
+               attack_score = ?ATTRIBUTE_ATTACK_SCORE_MAX,
+               attack =
+                  blc_damage_type:generate_entries_from_score
+                  (
+                     NewAttackScore,
+                     Weapon#proto_weapon.attack_coef
+                  )
+            },
+            (
+               (?ATTRIBUTE_ATTACK_SCORE_MAX - Weapon#proto_weapon.attack_score)
+               * Amount
+            )
+         };
+
+      false ->
+         {
+            Weapon#proto_weapon
+            {
+               attack_score = NewAttackScore,
+               attack =
+                  blc_damage_type:generate_entries_from_score
+                  (
+                     NewAttackScore,
+                     Weapon#proto_weapon.attack_coef
+                  )
+            },
+            (Amount * ?ATTRIBUTE_ATTACK_SCORE_COST)
+         }
+   end.
+
+-spec set_attack_coefficients
+   (
+      list(blc_damage_type:coefficient()),
+      proto_weapon()
+   )
+   -> proto_weapon().
+set_attack_coefficients (Coefficients, Weapon) ->
+   {Result, 0} =
+      increase_attack_score_by
+      (
+         0,
+         Weapon#proto_weapon
+         {
+            attack_coef = blc_damage_type:sort_entries(Coefficients)
+         }
+      ),
+
+   Result.
+
+-spec new (list(blc_damage_type:coefficient())) -> proto_weapon().
+new (Coefficients) ->
+   {Result, _AttackScoreIncreaseCost} =
+      increase_attack_score_by
+      (
+         ?ATTRIBUTE_ATTACK_SCORE_MIN,
+         #proto_weapon
+         {
+            range = ?WEAPON_ATTRIBUTE_RANGE_MIN,
+            type = ?WEAPON_ATTRIBUTE_TYPE_MIN,
+            accuracy = ?ATTRIBUTE_ACCURACY_MIN,
+            critical_hit_chance = ?ATTRIBUTE_CRITICAL_HIT_CHANCE_MIN,
+            double_hit_chance = ?ATTRIBUTE_DOUBLE_HIT_CHANCE_MIN,
+            attack = [],
+            attack_coef = blc_damage_type:sort_entries(Coefficients),
+            attack_score = 0
+         }
+      ),
+
+   Result.
+
+-spec increase_range_for
+   (
+      non_neg_integer(),
+      proto_weapon()
+   )
+   -> {proto_weapon(), non_neg_integer()}.
+increase_range_for (GivenPoints, Weapon) ->
+   AmountOfIncrease = trunc(GivenPoints / ?WEAPON_ATTRIBUTE_RANGE_COST),
+   {Result, SpentPoints} = increase_range_by(AmountOfIncrease, Weapon),
+   {Result, (GivenPoints - SpentPoints)}.
+
+-spec increase_type_for
+   (
+      non_neg_integer(),
+      proto_weapon()
+   )
+   -> {proto_weapon(), non_neg_integer()}.
+increase_type_for (GivenPoints, Weapon) ->
+   AmountOfIncrease = trunc(GivenPoints / ?WEAPON_ATTRIBUTE_TYPE_COST),
+   {Result, SpentPoints} = increase_type_by(AmountOfIncrease, Weapon),
+   {Result, (GivenPoints - SpentPoints)}.
+
+-spec increase_accuracy_for
+   (
+      non_neg_integer(),
+      proto_weapon()
+   )
+   -> {proto_weapon(), non_neg_integer()}.
+increase_accuracy_for (GivenPoints, Weapon) ->
+   AmountOfIncrease = trunc(GivenPoints / ?ATTRIBUTE_ACCURACY_COST),
+   {Result, SpentPoints} = increase_accuracy_by(AmountOfIncrease, Weapon),
+   {Result, (GivenPoints - SpentPoints)}.
+
+-spec increase_critical_hit_chance_for
+   (
+      non_neg_integer(),
+      proto_weapon()
+   )
+   -> {proto_weapon(), non_neg_integer()}.
+increase_critical_hit_chance_for (GivenPoints, Weapon) ->
+   AmountOfIncrease = trunc(GivenPoints / ?ATTRIBUTE_CRITICAL_HIT_CHANCE_COST),
+   {Result, SpentPoints} =
+      increase_critical_hit_chance_by(AmountOfIncrease, Weapon),
+
+   {Result, (GivenPoints - SpentPoints)}.
+
+-spec increase_double_hit_chance_for
+   (
+      non_neg_integer(),
+      proto_weapon()
+   )
+   -> {proto_weapon(), non_neg_integer()}.
+increase_double_hit_chance_for (GivenPoints, Weapon) ->
+   AmountOfIncrease = trunc(GivenPoints / ?ATTRIBUTE_DOUBLE_HIT_CHANCE_COST),
+   {Result, SpentPoints} =
+      increase_double_hit_chance_by(AmountOfIncrease, Weapon),
+
+   {Result, (GivenPoints - SpentPoints)}.
+
+
+-spec increase_attack_score_for
+   (
+      non_neg_integer(),
+      proto_weapon()
+   )
+   -> {proto_weapon(), non_neg_integer()}.
+increase_attack_score_for (GivenPoints, Weapon) ->
+   AmountOfIncrease = trunc(GivenPoints / ?ATTRIBUTE_ATTACK_SCORE_COST),
+   {Result, SpentPoints} = increase_attack_score_by(AmountOfIncrease, Weapon),
+   {Result, (GivenPoints - SpentPoints)}.
+
+
+-spec get_spendable_points () -> non_neg_integer().
+get_spendable_points () -> ?SPENDABLE_WEAPON_POINTS.