Still working on it...

3 files changed, 0 insertions, 369 deletions

diff --git a/src/battlemap/attack.erl b/src/battlemap/attack.erl
deleted file mode 100644
index 7384f78..0000000
--- a/src/battlemap/attack.erl
+++ /dev/null
@@ -1,279 +0,0 @@
--module(attack).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-% TODO: find better names for those types.
--type hits() :: ('misses' | 'grazes' | 'hits').
--type critical() :: ('critical' | 'basic').
--type attack_order() :: 'first' | 'second' | 'counter'.
--type attack_order_with_parry() :: {attack_order(), boolean()}.
--type attack_category() ::
-   (
-      attack_order()
-      | {attack_order(), 'parry'}
-   ).
--type attack_effect() :: {hits(), critical(), non_neg_integer()}.
--type attack_desc() ::
-   (
-      {attack_category(), attack_effect()}
-      | 'nothing'
-   ).
-
--export_type
-(
-   [
-      hits/0,
-      critical/0,
-      attack_category/0,
-      attack_effect/0,
-      attack_desc/0
-   ]
-).
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--export
-(
-   [
-      get_sequence/3,
-      get_description_of/3,
-      apply_to_healths/3
-   ]
-).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--spec roll_hits
-   (
-      statistics:struct(),
-      statistics:struct()
-   )
-   -> hits().
-roll_hits (AttackerStatistics, DefenderStatistics) ->
-   DefenderDodges = statistics:get_dodges(DefenderStatistics),
-   AttackerAccuracy = statistics:get_accuracy(AttackerStatistics),
-   MissChance = max(0, (DefenderDodges - AttackerAccuracy)),
-   case roll:percentage() of
-      X when (X =< MissChance) -> misses;
-      X when (X =< (MissChance * 2)) -> grazes;
-      _ -> hits
-   end.
-
--spec roll_damage
-   (
-      statistics:struct(),
-      statistics:struct()
-   )
-   -> {critical(), non_neg_integer()}.
-roll_damage (AttackerStatistics, _DefenderStatistics) ->
-   {MinimumDamage, MaximumDamage} = statistics:get_damages(AttackerStatistics),
-   MaximumRoll = max(1, MaximumDamage - MinimumDamage),
-   BaseDamage = MinimumDamage + (rand:uniform(MaximumRoll) - 1),
-   CriticalHitChance = statistics:get_critical_hits(AttackerStatistics),
-   case roll:percentage() of
-      X when (X =< CriticalHitChance) -> {critical, (BaseDamage * 2)};
-      _ -> {basic, BaseDamage}
-   end.
-
--spec effect_of_attack
-   (
-      statistics:struct(),
-      statistics:struct()
-   )
-   -> attack_effect().
-effect_of_attack (AttackerStatistics, DefenderStatistics) ->
-   Hits = roll_hits(AttackerStatistics, DefenderStatistics),
-   {Critical, Damage} = roll_damage(AttackerStatistics, DefenderStatistics),
-   case Hits of
-      misses -> {Hits, Critical, 0};
-      grazes -> {Hits, Critical, trunc(Damage / 2)};
-      hits -> {Hits, Critical, Damage}
-   end.
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
--spec get_description_of
-   (
-      attack_order_with_parry(),
-      statistics:struct(),
-      statistics:struct()
-   )
-   -> attack_desc().
-get_description_of
-(
-   {first, DefenderCanParry},
-   AttackerStatistics,
-   DefenderStatistics
-) ->
-   DefenderParryChance = statistics:get_parries(DefenderStatistics),
-   ParryRoll =
-      case DefenderCanParry of
-         true -> roll:percentage();
-         _ -> 101
-      end,
-   if
-      (ParryRoll =< DefenderParryChance) ->
-            {
-               {first, parry},
-               effect_of_attack(DefenderStatistics, AttackerStatistics)
-            };
-
-      true ->
-         {first, effect_of_attack(AttackerStatistics, DefenderStatistics)}
-   end;
-get_description_of
-(
-   {second, DefenderCanParry},
-   AttackerStatistics,
-   DefenderStatistics
-) ->
-   DefenderParryChance = statistics:get_parries(DefenderStatistics),
-   ParryRoll =
-      case DefenderCanParry of
-         true -> roll:percentage();
-         _ -> 101
-      end,
-   AttackerDoubleAttackChange = statistics:get_double_hits(AttackerStatistics),
-   DoubleAttackRoll = roll:percentage(),
-   if
-      (DoubleAttackRoll > AttackerDoubleAttackChange) ->
-         nothing;
-
-      (ParryRoll =< DefenderParryChance) ->
-            {
-               {second, parry},
-               effect_of_attack(DefenderStatistics, AttackerStatistics)
-            };
-
-      true ->
-         {second, effect_of_attack(AttackerStatistics, DefenderStatistics)}
-   end;
-get_description_of
-(
-   {counter, AttackerCanParry},
-   AttackerStatistics,
-   DefenderStatistics
-) ->
-   AttackerParryChance = statistics:get_parries(AttackerStatistics),
-   ParryRoll =
-      case AttackerCanParry of
-         true -> roll:percentage();
-         _ -> 101
-      end,
-   if
-      (ParryRoll =< AttackerParryChance) ->
-            {
-               {counter, parry},
-               effect_of_attack(AttackerStatistics, DefenderStatistics)
-            };
-
-      true ->
-         {counter, effect_of_attack(DefenderStatistics, AttackerStatistics)}
-   end.
-
--spec apply_to_healths
-   (
-      attack_desc(),
-      non_neg_integer(),
-      non_neg_integer()
-   )
-   -> {attack_desc(), non_neg_integer(), non_neg_integer()}.
-apply_to_healths
-(
-   nothing,
-   AttackerHealth,
-   DefenderHealth
-) ->
-   {nothing, AttackerHealth, DefenderHealth};
-apply_to_healths
-(
-   {Attack, Effect},
-   AttackerHealth,
-   DefenderHealth
-)
-when
-(
-   (Attack == first)
-   or (Attack == second)
-   or (Attack == {counter, parry})
-) ->
-   {_Hits, _Critical, Damage} = Effect,
-   case AttackerHealth of
-      0 ->
-         {nothing, AttackerHealth, DefenderHealth};
-
-      _ ->
-         {
-            {Attack, Effect},
-            AttackerHealth,
-            max(0, (DefenderHealth - Damage))
-         }
-   end;
-apply_to_healths
-(
-   {Attack, Effect},
-   AttackerHealth,
-   DefenderHealth
-)
-when
-(
-   (Attack == {first, parry})
-   or (Attack == {second, parry})
-   or (Attack == counter)
-) ->
-   {_Hits, _Critical, Damage} = Effect,
-   case DefenderHealth of
-      0 ->
-         {nothing, AttackerHealth, DefenderHealth};
-
-      _ ->
-         {
-            {Attack, Effect},
-            max(0, (AttackerHealth - Damage)),
-            DefenderHealth
-         }
-   end.
-
--spec get_sequence
-   (
-      non_neg_integer(),
-      weapon:struct(),
-      weapon:struct()
-   )
-   -> list(attack_order_with_parry()).
-get_sequence (AttackRange, AttackerWeapon, DefenderWeapon) ->
-   {AttackerDefenseRange, AttackerAttackRange} =
-      weapon:get_ranges(AttackerWeapon),
-   {DefenderDefenseRange, DefenderAttackRange} =
-      weapon:get_ranges(DefenderWeapon),
-
-   AttackerCanAttack = (AttackRange =< AttackerAttackRange),
-   AttackerCanDefend =
-      (AttackerCanAttack and (AttackRange > AttackerDefenseRange)),
-   AttackerCanParry =
-      (AttackerCanDefend and weapon:can_parry(AttackerWeapon)),
-
-   DefenderCanAttack = (AttackRange =< DefenderAttackRange),
-   DefenderCanDefend =
-      (DefenderCanAttack and (AttackRange > DefenderDefenseRange)),
-   DefenderCanParry =
-      (DefenderCanDefend and weapon:can_parry(DefenderWeapon)),
-
-   First = {first, DefenderCanParry},
-   Second = {second, DefenderCanParry},
-   Counter = {counter, AttackerCanParry},
-
-   if
-      (not AttackerCanAttack) ->
-         [];
-
-      (not DefenderCanDefend) ->
-         [First, Second];
-
-      true ->
-         [First, Counter, Second]
-   end.
diff --git a/src/battlemap/movement.erl b/src/battlemap/movement.erl
deleted file mode 100644
index 02f0ebc..0000000
--- a/src/battlemap/movement.erl
+++ /dev/null
@@ -1,58 +0,0 @@
--module(movement).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--export([cross/4]).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--spec cross
-   (
-      battlemap:struct(),
-      array:array(location:type()),
-      list(direction:enum()),
-      non_neg_integer(),
-      location:type()
-   )
-   -> {location:type(), non_neg_integer()}.
-cross (_Battlemap, _ForbiddenLocations, [], Cost, Location) ->
-   {Location, Cost};
-cross (Battlemap, ForbiddenLocations, [Step|NextSteps], Cost, Location) ->
-   NextLocation = direction:apply_to(Step, Location),
-   NextTile = battlemap:get_tile_id(Battlemap, NextLocation),
-   NextCost = (Cost + tile:get_cost(NextTile)),
-   IsForbidden =
-      array:foldl
-      (
-         fun (_IX, ForbiddenLocation, Prev) ->
-            (Prev or (NextLocation == ForbiddenLocation))
-         end,
-         false,
-         ForbiddenLocations
-      ),
-
-   IsForbidden = false,
-
-   cross(Battlemap, ForbiddenLocations, NextSteps, NextCost, NextLocation).
-
--spec cross
-   (
-      battlemap:struct(),
-      array:array(location:type()),
-      list(direction:enum()),
-      location:type()
-   )
-   -> {location:type(), non_neg_integer()}.
-cross (Battlemap, ForbiddenLocations, Path, Location) ->
-   cross(Battlemap, ForbiddenLocations, Path, 0, Location).
diff --git a/src/battlemap/roll.erl b/src/battlemap/roll.erl
deleted file mode 100644
index 074054b..0000000
--- a/src/battlemap/roll.erl
+++ /dev/null
@@ -1,32 +0,0 @@
--module(roll).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--export
-(
-   [
-      percentage/0,
-      between/2
-   ]
-).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--spec between (non_neg_integer(), non_neg_integer()) -> non_neg_integer().
-between (Min, Max) ->
-   Diff = (Max - Min),
-   (Min + (rand:uniform(Diff + 1) - 1)).
-
--spec percentage () -> 0..100.
-percentage () ->
-   between(0, 100).