Changing how the server services are organized...

15 files changed, 0 insertions, 2352 deletions

diff --git a/src/struct/attack.erl b/src/struct/attack.erl
deleted file mode 100644
index 71bc2bb..0000000
--- a/src/struct/attack.erl
+++ /dev/null
@@ -1,299 +0,0 @@
--module(attack).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--type order() :: ('first' | 'second' | 'counter').
--type precision() :: ('misses' | 'grazes' | 'hits').
-
--record
-(
-   attack,
-   {
-      order :: order(),
-      precision :: precision(),
-      is_critical :: boolean(),
-      is_parry :: boolean(),
-      damage :: non_neg_integer()
-   }
-).
-
--opaque struct() :: #attack{}.
--type maybe_struct() :: ('nothing' | struct()).
--opaque step() :: {order(), boolean()}.
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--export_type([struct/0, maybe_struct/0, step/0]).
-
--export
-(
-   [
-      get_sequence/3,
-      get_description_of/3,
-      apply_to_healths/3
-   ]
-).
-
--export
-(
-   [
-      encode/1
-   ]
-).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--spec roll_precision
-   (
-      statistics:struct(),
-      statistics:struct()
-   )
-   -> precision().
-roll_precision (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()
-   )
-   -> {non_neg_integer(), boolean()}.
-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) -> {(BaseDamage * 2), true};
-      _ -> {BaseDamage, false}
-   end.
-
--spec roll_parry (statistics:struct()) -> boolean().
-roll_parry (DefenderStatistics) ->
-   DefenderParryChance = statistics:get_parries(DefenderStatistics),
-   (roll:percentage() =< DefenderParryChance).
-
--spec effect_of_attack
-   (
-      order(),
-      statistics:struct(),
-      statistics:struct(),
-      boolean()
-   )
-   -> struct().
-effect_of_attack (Order, AttackerStatistics, DefenderStatistics, CanParry) ->
-   ParryIsSuccessful = (CanParry and roll_parry(DefenderStatistics)),
-   {ActualAtkStatistics, ActualDefStatistics} =
-      case ParryIsSuccessful of
-         true -> {DefenderStatistics, AttackerStatistics};
-         false -> {AttackerStatistics, DefenderStatistics}
-      end,
-
-   Precision = roll_precision(ActualAtkStatistics, ActualDefStatistics),
-   {Damage, IsCritical} = roll_damage(ActualAtkStatistics, ActualDefStatistics),
-   ActualDamage =
-      case Precision of
-         misses -> 0;
-         grazes -> trunc(Damage / 2);
-         hits -> Damage
-      end,
-
-   #attack
-   {
-      order = Order,
-      precision = Precision,
-      is_critical = IsCritical,
-      is_parry = ParryIsSuccessful,
-      damage = ActualDamage
-   }.
-
--spec encode_order (order()) -> binary().
-encode_order (first) -> <<"f">>;
-encode_order (counter) -> <<"c">>;
-encode_order (second) -> <<"s">>.
-
--spec encode_precision (precision()) -> binary().
-encode_precision (hits) -> <<"h">>;
-encode_precision (grazes) -> <<"g">>;
-encode_precision (misses) -> <<"m">>.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
--spec get_description_of
-   (
-      step(),
-      statistics:struct(),
-      statistics:struct()
-   )
-   -> maybe_struct().
-get_description_of
-(
-   {first, CanParry},
-   AttackerStatistics,
-   DefenderStatistics
-) ->
-   effect_of_attack(first, AttackerStatistics, DefenderStatistics, CanParry);
-get_description_of
-(
-   {second, CanParry},
-   AttackerStatistics,
-   DefenderStatistics
-) ->
-   AttackerDoubleAttackChange = statistics:get_double_hits(AttackerStatistics),
-
-   case roll:percentage() of
-      X when (X =< AttackerDoubleAttackChange) ->
-         effect_of_attack
-         (
-            second,
-            AttackerStatistics,
-            DefenderStatistics,
-            CanParry
-         );
-
-      _ ->
-         nothing
-   end;
-get_description_of
-(
-   {counter, CanParry},
-   AttackerStatistics,
-   DefenderStatistics
-) ->
-   effect_of_attack(counter, DefenderStatistics, AttackerStatistics, CanParry).
-
--spec apply_to_healths
-   (
-      maybe_struct(),
-      non_neg_integer(),
-      non_neg_integer()
-   )
-   -> {maybe_struct(), non_neg_integer(), non_neg_integer()}.
-apply_to_healths
-(
-   nothing,
-   AttackerHealth,
-   DefenderHealth
-) ->
-   {nothing, AttackerHealth, DefenderHealth};
-apply_to_healths
-(
-   Attack,
-   AttackerHealth,
-   DefenderHealth
-)
-when
-(
-   (Attack#attack.order == first)
-   or (Attack#attack.order == second)
-   or ((Attack#attack.order == counter) and Attack#attack.is_parry)
-) ->
-   Damage = Attack#attack.damage,
-
-   case AttackerHealth of
-      0 ->
-         {nothing, AttackerHealth, DefenderHealth};
-
-      _ ->
-         {
-            Attack,
-            AttackerHealth,
-            max(0, (DefenderHealth - Damage))
-         }
-   end;
-apply_to_healths
-(
-   Attack,
-   AttackerHealth,
-   DefenderHealth
-)
-when
-(
-   (Attack#attack.order == counter)
-   or
-   (
-      (Attack#attack.is_parry)
-      and ((Attack#attack.order == first) or (Attack#attack.order == second))
-   )
-) ->
-   Damage = Attack#attack.damage,
-
-   case DefenderHealth of
-      0 ->
-         {nothing, AttackerHealth, DefenderHealth};
-
-      _ ->
-         {
-            Attack,
-            max(0, (AttackerHealth - Damage)),
-            DefenderHealth
-         }
-   end.
-
--spec get_sequence
-   (
-      non_neg_integer(),
-      weapon:struct(),
-      weapon:struct()
-   )
-   -> list(step()).
-get_sequence (AttackRange, AttackerWeapon, DefenderWeapon) ->
-   {AttackerDefenseRange, AttackerAttackRange} =
-      weapon:get_ranges(AttackerWeapon),
-   {DefenderDefenseRange, DefenderAttackRange} =
-      weapon:get_ranges(DefenderWeapon),
-
-   AttackerCanAttack = (AttackRange =< AttackerAttackRange),
-   AttackerCanAttack = true,
-   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 DefenderCanDefend) ->
-         [First, Second];
-
-      true ->
-         [First, Counter, Second]
-   end.
-
--spec encode (struct()) -> {list(any())}.
-% This shouldn't be a possibility. Types in this module are a mess...
-encode (Attack) ->
-   Order = Attack#attack.order,
-   Precision = Attack#attack.precision,
-   IsCritical = Attack#attack.is_critical,
-   IsParry = Attack#attack.is_parry,
-   Damage = Attack#attack.damage,
-
-   {
-      [
-         {<<"ord">>, encode_order(Order)},
-         {<<"pre">>, encode_precision(Precision)},
-         {<<"cri">>, IsCritical},
-         {<<"par">>, IsParry},
-         {<<"dmg">>, Damage}
-      ]
-   }.
diff --git a/src/struct/attributes.erl b/src/struct/attributes.erl
deleted file mode 100644
index 6728831..0000000
--- a/src/struct/attributes.erl
+++ /dev/null
@@ -1,108 +0,0 @@
--module(attributes).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--record
-(
-   attributes,
-   {
-      constitution :: integer(),
-      dexterity :: integer(),
-      intelligence :: integer(),
-      mind :: integer(),
-      speed :: integer(),
-      strength :: integer()
-   }
-).
-
--opaque struct() :: #attributes{}.
-
--export_type([struct/0]).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%% Accessors
--export
-(
-   [
-      get_constitution/1,
-      get_dexterity/1,
-      get_intelligence/1,
-      get_mind/1,
-      get_speed/1,
-      get_strength/1,
-
-      set_constitution/2,
-      set_dexterity/2,
-      set_intelligence/2,
-      set_mind/2,
-      set_speed/2,
-      set_strength/2
-   ]
-).
-
-%%%% Accessors
--export
-(
-   [
-      random/0
-   ]
-).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%% Accessors
--spec get_constitution (struct()) -> integer().
-get_constitution (Att) -> Att#attributes.constitution.
-
--spec get_dexterity (struct()) -> integer().
-get_dexterity (Att) -> Att#attributes.dexterity.
-
--spec get_intelligence (struct()) -> integer().
-get_intelligence (Att) -> Att#attributes.intelligence.
-
--spec get_mind (struct()) -> integer().
-get_mind (Att) -> Att#attributes.mind.
-
--spec get_speed (struct()) -> integer().
-get_speed (Att) -> Att#attributes.speed.
-
--spec get_strength (struct()) -> integer().
-get_strength (Att) -> Att#attributes.strength.
-
--spec set_constitution (integer(), struct()) -> struct().
-set_constitution (Val, Att) -> Att#attributes{ constitution = Val }.
-
--spec set_dexterity (integer(), struct()) -> struct().
-set_dexterity (Val, Att) -> Att#attributes{ dexterity = Val }.
-
--spec set_intelligence (integer(), struct()) -> struct().
-set_intelligence (Val, Att) -> Att#attributes{ intelligence = Val }.
-
--spec set_mind (integer(), struct()) -> struct().
-set_mind (Val, Att) -> Att#attributes{ mind = Val }.
-
--spec set_speed (integer(), struct()) -> struct().
-set_speed (Val, Att) -> Att#attributes{ speed = Val }.
-
--spec set_strength (integer(), struct()) -> struct().
-set_strength (Val, Att) -> Att#attributes{ strength = Val }.
-
--spec random () -> struct().
-random () ->
-   #attributes
-   {
-      constitution = roll:percentage(),
-      dexterity = roll:percentage(),
-      intelligence = roll:percentage(),
-      mind = roll:percentage(),
-      speed = roll:percentage(),
-      strength = roll:percentage()
-   }.
diff --git a/src/struct/battle.erl b/src/struct/battle.erl
deleted file mode 100644
index 5ac12e4..0000000
--- a/src/struct/battle.erl
+++ /dev/null
@@ -1,250 +0,0 @@
--module(battle).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--type id() :: binary().
-
--record
-(
-   battle,
-   {
-      id :: id(),
-      battlemap :: battlemap:struct(),
-      character_instances :: array:array(character_instance:struct()),
-      players :: array:array(player:struct()),
-      current_player_turn :: player_turn:struct()
-   }
-).
-
--opaque struct() :: #battle{}.
-
--export_type([struct/0, id/0]).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%% Accessors
--export
-(
-   [
-      get_id/1,
-      get_battlemap/1,
-      get_character_instances/1,
-      get_character_instance/2,
-      get_players/1,
-      get_player/2,
-      get_current_player_turn/1,
-      get_encoded_last_turns_effects/1,
-
-      set_battlemap/2,
-      set_character_instances/2,
-      set_character_instance/3,
-      set_players/2,
-      set_player/3,
-      set_current_player_turn/2
-   ]
-).
-
--export
-(
-   [
-      random/4
-   ]
-).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-get_all_timelines (Result, CurrentIndex, EndPoint, ArraySize, Players) ->
-   Player = array:get(CurrentIndex, Players),
-   Timeline = player:get_timeline(Player),
-   NextIndex = ((CurrentIndex + 1) rem ArraySize),
-   NextResult = (Timeline ++ Result),
-   case CurrentIndex of
-      EndPoint ->
-         NextResult;
-
-      _ ->
-         get_all_timelines(NextResult, NextIndex, EndPoint, ArraySize, Players)
-   end.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%% Accessors
--spec get_id (struct()) -> id().
-get_id (Battle) -> Battle#battle.id.
-
--spec get_battlemap (struct()) -> battlemap:struct().
-get_battlemap (Battle) ->
-   Battle#battle.battlemap.
-
--spec get_character_instances (struct()) ->
-   array:array(character_instance:struct()).
-get_character_instances (Battle) ->
-   Battle#battle.character_instances.
-
--spec get_character_instance (non_neg_integer(), struct()) ->
-   character_instance:struct().
-get_character_instance (IX, Battle) ->
-   array:get(IX, Battle#battle.character_instances).
-
--spec get_players (struct()) -> array:array(player:struct()).
-get_players (Battle) ->
-   Battle#battle.players.
-
--spec get_player (non_neg_integer(), struct()) -> player:struct().
-get_player (IX, Battle) ->
-   array:get(IX, Battle#battle.players).
-
--spec get_current_player_turn (struct()) -> player_turn:struct().
-get_current_player_turn (Battle) ->
-   Battle#battle.current_player_turn.
-
--spec get_encoded_last_turns_effects (struct()) -> list(any()).
-get_encoded_last_turns_effects (Battle) ->
-   CurrentPlayerTurn = Battle#battle.current_player_turn,
-   Players = Battle#battle.players,
-   CurrentPlayerIX = player_turn:get_player_ix(CurrentPlayerTurn),
-
-   PlayersCount = array:size(Players),
-   StartingPoint = ((CurrentPlayerIX + 1) rem PlayersCount),
-   get_all_timelines([], StartingPoint, CurrentPlayerIX, PlayersCount, Players).
-
--spec set_battlemap (battlemap:struct(), struct()) -> struct().
-set_battlemap (Battlemap, Battle) ->
-   Battle#battle
-   {
-      battlemap = Battlemap
-   }.
-
--spec set_character_instances
-   (
-      array:array(character_instance:struct()),
-      struct()
-   )
-   -> struct().
-set_character_instances (CharacterInstances, Battle) ->
-   Battle#battle
-   {
-      character_instances = CharacterInstances
-   }.
-
--spec set_character_instance
-   (
-      non_neg_integer(),
-      character_instance:struct(),
-      struct()
-   )
-   -> struct().
-set_character_instance (IX, CharacterInstance, Battle) ->
-   Battle#battle
-   {
-      character_instances =
-         array:set
-         (
-            IX,
-            CharacterInstance,
-            Battle#battle.character_instances
-         )
-   }.
-
--spec set_players
-   (
-      array:array(player:struct()),
-      struct()
-   )
-   -> struct().
-set_players (Players, Battle) ->
-   Battle#battle
-   {
-      players = Players
-   }.
-
--spec set_player
-   (
-      non_neg_integer(),
-      player:struct(),
-      struct()
-   )
-   -> struct().
-set_player (IX, Player, Battle) ->
-   Battle#battle
-   {
-      players =
-         array:set
-         (
-            IX,
-            Player,
-            Battle#battle.players
-         )
-   }.
-
--spec set_current_player_turn
-   (
-      player_turn:struct(),
-      struct()
-   )
-   -> struct().
-set_current_player_turn (PlayerTurn, Battle) ->
-   Battle#battle
-   {
-      current_player_turn = PlayerTurn
-   }.
-
--spec random
-   (
-      id(),
-      list(player:struct()),
-      battlemap:struct(),
-      list(character:struct())
-   )
-   -> struct().
-random (ID, PlayersAsList, Battlemap, Characters) ->
-   BattlemapWidth = battlemap:get_width(Battlemap),
-   BattlemapHeight = battlemap:get_height(Battlemap),
-   {CharacterInstancesAsList, _ForbiddenLocations} =
-      lists:mapfoldl
-      (
-         fun (Character, ForbiddenLocations) ->
-            CharacterOwner = character:get_owner_id(Character),
-            NewCharacterInstance =
-               character_instance:random
-               (
-                  Character,
-                  BattlemapWidth,
-                  BattlemapHeight,
-                  ForbiddenLocations
-               ),
-            NewCharacterInstanceActive =
-               case CharacterOwner of
-                  <<"0">> ->
-                     character_instance:set_is_active
-                     (
-                        true,
-                        NewCharacterInstance
-                     );
-
-                  _ ->
-                     NewCharacterInstance
-               end,
-            NewCharacterInstanceLocation =
-               character_instance:get_location(NewCharacterInstanceActive),
-            {
-               NewCharacterInstanceActive,
-               [NewCharacterInstanceLocation|ForbiddenLocations]
-            }
-         end,
-         [],
-         Characters
-      ),
-
-   #battle
-   {
-      id = ID,
-      battlemap = Battlemap,
-      character_instances = array:from_list(CharacterInstancesAsList),
-      players = array:from_list(PlayersAsList),
-      current_player_turn = player_turn:new(0, 0)
-   }.
diff --git a/src/struct/battle_action.erl b/src/struct/battle_action.erl
deleted file mode 100644
index 8aaaef9..0000000
--- a/src/struct/battle_action.erl
+++ /dev/null
@@ -1,300 +0,0 @@
--module(battle_action).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--record
-(
-   move,
-   {
-      path :: list(direction:enum())
-   }
-).
-
--record
-(
-   switch_weapon,
-   {
-   }
-).
-
--record
-(
-   attack,
-   {
-      target_ix :: non_neg_integer()
-   }
-).
-
--type category() :: ('move' | 'switch_weapon' | 'attack' | 'nothing').
--opaque struct() :: (#move{} | #switch_weapon{} | #attack{}).
-
--export_type([category/0, struct/0]).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--export
-(
-   [
-      decode/1,
-      handle/4,
-      can_follow/2
-   ]
-).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--spec decode_mov_action (map()) -> struct().
-decode_mov_action (JSONMap) ->
-   PathInBinary = maps:get(<<"p">>, JSONMap),
-   Path = lists:map(fun direction:decode/1, PathInBinary),
-
-   #move { path = Path }.
-
--spec decode_atk_action (map()) -> struct().
-decode_atk_action (JSONMap) ->
-   TargetIX = binary_to_integer(maps:get(<<"tix">>, JSONMap)),
-
-   #attack { target_ix = TargetIX }.
-
--spec decode_swp_action (map()) -> struct().
-decode_swp_action (_JSONMap) ->
-   #switch_weapon{}.
-
--spec handle_attack_sequence
-   (
-      character_instance:struct(),
-      character_instance:struct(),
-      list(attack:step())
-   )
-   -> {list(attack:struct()), non_neg_integer(), non_neg_integer()}.
-handle_attack_sequence
-(
-   CharacterInstance,
-   TargetCharacterInstance,
-   AttackSequence
-) ->
-   Character = character_instance:get_character(CharacterInstance),
-   TargetCharacter = character_instance:get_character(TargetCharacterInstance),
-   CharacterStatistics = character:get_statistics(Character),
-   TargetCharacterStatistics = character:get_statistics(TargetCharacter),
-
-   AttackPlannedEffects =
-      lists:map
-      (
-         fun (AttackStep) ->
-            attack:get_description_of
-            (
-               AttackStep,
-               CharacterStatistics,
-               TargetCharacterStatistics
-            )
-         end,
-         AttackSequence
-      ),
-
-   lists:foldl
-   (
-      fun
-      (
-         AttackEffectCandidate,
-         {AttackValidEffects, AttackerHealth, DefenderHealth}
-      ) ->
-         {AttackResult, NewAttackerHealth, NewDefenderHealth} =
-            attack:apply_to_healths
-            (
-               AttackEffectCandidate,
-               AttackerHealth,
-               DefenderHealth
-            ),
-         case AttackResult of
-            nothing -> {AttackValidEffects, AttackerHealth, DefenderHealth};
-            _ ->
-               {
-                  (AttackValidEffects ++ [AttackResult]),
-                  NewAttackerHealth,
-                  NewDefenderHealth
-               }
-         end
-      end,
-      {
-         [],
-         character_instance:get_current_health(CharacterInstance),
-         character_instance:get_current_health(TargetCharacterInstance)
-      },
-      AttackPlannedEffects
-   ).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--spec decode (map()) -> struct().
-decode (EncodedAction) ->
-   JSONActionMap = EncodedAction, %jiffy:decode(EncodedAction, [return_maps]),
-   ActionType = maps:get(<<"t">>, JSONActionMap),
-   case ActionType of
-      <<"mov">> -> decode_mov_action(JSONActionMap);
-      <<"atk">> -> decode_atk_action(JSONActionMap);
-      <<"swp">> -> decode_swp_action(JSONActionMap)
-   end.
-
--spec can_follow (category(), category()) -> boolean().
-can_follow (nothing, attack) -> true;
-can_follow (nothing, switch_weapon) -> true;
-can_follow (nothing, move) -> true;
-can_follow (switch_weapon, attack) -> true;
-can_follow (move, attack) -> true;
-can_follow (_, _) -> false.
-
--spec handle
-(
-   battle:struct(),
-   character_instance:struct(),
-   non_neg_integer(),
-   struct()
-)
-->
-{
-   list(database_diff:struct()),
-   list(turn_result:struct()),
-   battle:struct(),
-   character_instance:struct()
-}.
-handle (Battle, CharacterInstance, CharacterInstanceIX, BattleAction)
-when is_record(BattleAction, switch_weapon) ->
-   Character = character_instance:get_character(CharacterInstance),
-   CharacterAttributes = character:get_attributes(Character),
-   {PrimaryWeaponID, SecondaryWeaponID} = character:get_weapon_ids(Character),
-
-   UpdatedWeaponIDs = {SecondaryWeaponID, PrimaryWeaponID},
-   UpdatedCharacterStatistics =
-      statistics:new(CharacterAttributes, UpdatedWeaponIDs),
-   UpdatedCharacter =
-      character:set_statistics
-      (
-         UpdatedCharacterStatistics,
-         character:set_weapon_ids(UpdatedWeaponIDs, Character)
-      ),
-   UpdatedCharacterInstance =
-      character_instance:set_character(UpdatedCharacter, CharacterInstance),
-
-   {
-      % TODO: hide that into database_diff structs.
-      [
-         {character_instance, CharacterInstanceIX, wp0, SecondaryWeaponID},
-         {character_instance, CharacterInstanceIX, wp1, PrimaryWeaponID}
-         % ... statistics as well.
-      ],
-      [turn_result:new_character_switched_weapons(CharacterInstanceIX)],
-      Battle,
-      UpdatedCharacterInstance
-   };
-handle (Battle, CharacterInstance, CharacterInstanceIX, BattleAction)
-when is_record(BattleAction, move) ->
-   Character = character_instance:get_character(CharacterInstance),
-   CharacterStatistics = character:get_statistics(Character),
-   Battlemap = battle:get_battlemap(Battle),
-   Path = BattleAction#move.path,
-   CharacterMovementPoints =
-      statistics:get_movement_points(CharacterStatistics),
-
-   ForbiddenLocations =
-      array:foldl
-      (
-         fun (IX, CharInst, Prev) ->
-            case IX of
-               CharacterInstanceIX -> Prev;
-               _ -> [character_instance:get_location(CharInst)|Prev]
-            end
-         end,
-         [],
-         battle:get_character_instances(Battle)
-      ),
-
-   {NewLocation, Cost} =
-      movement:cross
-      (
-         Battlemap,
-         ForbiddenLocations,
-         Path,
-         character_instance:get_location(CharacterInstance)
-      ),
-
-   true = (Cost =< CharacterMovementPoints),
-
-   UpdatedCharacterInstance =
-      character_instance:set_location(NewLocation, CharacterInstance),
-
-   {
-      % TODO: hide that into database_diff structs.
-      [{character_instance, CharacterInstanceIX, loc, NewLocation}],
-      % TODO: hide that into turn_result structs.
-      [turn_result:new_character_moved(CharacterInstanceIX, Path, NewLocation)],
-      Battle,
-      UpdatedCharacterInstance
-   };
-handle (Battle, CharacterInstance, CharacterInstanceIX, BattleAction)
-when is_record(BattleAction, attack) ->
-   Character = character_instance:get_character(CharacterInstance),
-   TargetIX = BattleAction#attack.target_ix,
-   TargetCharacterInstance = battle:get_character_instance(TargetIX, Battle),
-   TargetCharacter = character_instance:get_character(TargetCharacterInstance),
-
-   Range =
-      location:dist
-      (
-         character_instance:get_location(CharacterInstance),
-         character_instance:get_location(TargetCharacterInstance)
-      ),
-
-   {AttackingWeaponID, _} = character:get_weapon_ids(Character),
-   {DefendingWeaponID, _} = character:get_weapon_ids(TargetCharacter),
-
-   AttackingWeapon = weapon:from_id(AttackingWeaponID),
-   DefendingWeapon = weapon:from_id(DefendingWeaponID),
-
-   AttackSequence =
-      attack:get_sequence(Range, AttackingWeapon, DefendingWeapon),
-
-   {AttackEffects, RemainingAttackerHealth, RemainingDefenderHealth} =
-      handle_attack_sequence
-      (
-         CharacterInstance,
-         TargetCharacterInstance,
-         AttackSequence
-      ),
-
-   UpdatedCharacterInstance =
-      character_instance:set_current_health
-      (
-         RemainingAttackerHealth,
-         CharacterInstance
-      ),
-
-   UpdatedBattle =
-      battle:set_character_instance
-      (
-         TargetIX,
-         character_instance:set_current_health
-         (
-            RemainingDefenderHealth,
-            TargetCharacterInstance
-         ),
-         Battle
-      ),
-   {
-      % TODO: hide that into database_diff structs.
-      [], % TODO
-      [
-         turn_result:new_character_attacked
-         (
-            CharacterInstanceIX,
-            TargetIX,
-            AttackEffects
-         )
-      ],
-      UpdatedBattle,
-      UpdatedCharacterInstance
-   }.
diff --git a/src/struct/battlemap.erl b/src/struct/battlemap.erl
deleted file mode 100644
index 59e0639..0000000
--- a/src/struct/battlemap.erl
+++ /dev/null
@@ -1,121 +0,0 @@
--module(battlemap).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--type id() :: binary().
-
--record
-(
-   battlemap,
-   {
-      id :: id(),
-      width :: integer(),
-      height :: integer(),
-      tile_ids :: array:array(tile:id())
-   }
-).
-
--opaque struct() :: #battlemap{}.
-
--export_type([struct/0, id/0]).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%% Accessors
--export
-(
-   [
-      get_id/1,
-      get_width/1,
-      get_height/1,
-      get_tile_ids/1,
-      get_tile_id/2
-   ]
-).
-
--export
-(
-   [
-      random/3
-   ]
-).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--spec generate_random_tile_ids
-   (
-      tile:id(),
-      list(tile:id()),
-      non_neg_integer(),
-      non_neg_integer(),
-      non_neg_integer()
-   )
-   -> list(tile:id()).
-generate_random_tile_ids (_PreviousTileID, Result, _X, 0, _Width) ->
-   Result;
-generate_random_tile_ids (PreviousTileID, Result, 0, Y, Width) ->
-   generate_random_tile_ids(PreviousTileID, Result, Width, (Y - 1), Width);
-generate_random_tile_ids (PreviousTileID, Result, X, Y, Width) ->
-   NewTile =
-      case roll:percentage() of
-         N when (N >= 10) -> PreviousTileID;
-         _ -> tile:random_id()
-      end,
-   generate_random_tile_ids(NewTile, [NewTile|Result], (X - 1), Y, Width).
-
--spec location_to_array_index
-   (
-      non_neg_integer(),
-      location:type()
-   )
-   -> ('error' | non_neg_integer()).
-location_to_array_index (ArrayWidth, {X, Y}) ->
-   if
-      (X < 0) -> error;
-      (Y < 0) -> error;
-      (X >= ArrayWidth) -> error;
-      true -> ((Y * ArrayWidth) + X)
-   end.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%% Accessors
--spec get_id (struct()) -> id().
-get_id (Battlemap) -> Battlemap#battlemap.id.
-
--spec get_width (struct()) -> integer().
-get_width (Battlemap) -> Battlemap#battlemap.width.
-
--spec get_height (struct()) -> integer().
-get_height (Battlemap) -> Battlemap#battlemap.height.
-
--spec get_tile_ids (struct()) -> array:array(tile:id()).
-get_tile_ids (Battlemap) -> Battlemap#battlemap.tile_ids.
-
--spec get_tile_id (location:type(), struct()) -> tile:id().
-get_tile_id (Location, Battlemap) ->
-   TileIX = location_to_array_index(Battlemap#battlemap.width, Location),
-   array:get(TileIX, Battlemap#battlemap.tile_ids).
-
--spec random
-   (
-      non_neg_integer(),
-      non_neg_integer(),
-      non_neg_integer()
-   )
-   -> struct().
-random (ID, Width, Height) ->
-   InitialTile = tile:random_id(),
-   TileIDs = generate_random_tile_ids(InitialTile, [], Width, Height, Width),
-
-   #battlemap
-   {
-      id = list_to_binary(integer_to_list(ID)),
-      width = Width,
-      height = Height,
-      tile_ids = array:from_list(TileIDs)
-   }.
diff --git a/src/struct/character.erl b/src/struct/character.erl
deleted file mode 100644
index 8e1099e..0000000
--- a/src/struct/character.erl
+++ /dev/null
@@ -1,133 +0,0 @@
--module(character).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--type id() :: non_neg_integer().
-
--record
-(
-   character,
-   {
-      id :: id(),
-      owner_id :: player:id(),
-      name :: binary(),
-      icon :: binary(),
-      portrait :: binary(),
-      attributes :: attributes:struct(),
-      statistics :: statistics:struct(),
-      weapon_ids :: {weapon:id(), weapon:id()}
-   }
-).
-
--opaque struct() :: #character{}.
-
--export_type([struct/0, id/0]).
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%% Accessors
--export
-(
-   [
-      get_id/1,
-      get_owner_id/1,
-      get_name/1,
-      get_icon/1,
-      get_portrait/1,
-      get_attributes/1,
-      get_statistics/1,
-      get_weapon_ids/1,
-
-      set_weapon_ids/2,
-      set_statistics/2
-   ]
-).
-
--export
-(
-   [
-      random/2
-   ]
-).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%% Accessors
--spec get_id (struct()) -> id().
-get_id (Char) -> Char#character.id.
-
--spec get_owner_id (struct()) -> player:id().
-get_owner_id (Char) -> Char#character.owner_id.
-
--spec get_name (struct()) -> binary().
-get_name (Char) -> Char#character.name.
-
--spec get_icon (struct()) -> binary().
-get_icon (Char) -> Char#character.icon.
-
--spec get_portrait (struct()) -> binary().
-get_portrait (Char) -> Char#character.portrait.
-
--spec get_attributes (struct()) -> attributes:struct().
-get_attributes (Char) -> Char#character.attributes.
-
--spec get_weapon_ids (struct()) -> {weapon:id(), weapon:id()}.
-get_weapon_ids (Char) -> Char#character.weapon_ids.
-
--spec get_statistics (struct()) -> statistics:struct().
-get_statistics (Char) -> Char#character.statistics.
-
--spec set_weapon_ids
-   (
-      {weapon:id(), weapon:id()},
-      struct()
-   )
-   -> struct().
-set_weapon_ids (WeaponIDs, Char) ->
-   Char#character
-   {
-      weapon_ids = WeaponIDs
-   }.
-
--spec set_statistics
-   (
-      statistics:struct(),
-      struct()
-   )
-   -> struct().
-set_statistics (Stats, Char) ->
-   Char#character
-   {
-      statistics = Stats
-   }.
-
--spec random
-   (
-      non_neg_integer(),
-      player:id()
-   )
-   -> struct().
-random (ID, OwnerID) ->
-   WeaponIDs = {weapon:random_id(), weapon:random_id()},
-   Attributes = attributes:random(),
-   Statistics = statistics:new(Attributes, WeaponIDs),
-   IDAsListString = integer_to_list(ID),
-   IDAsBinaryString = list_to_binary(IDAsListString),
-
-   #character
-   {
-      id = ID,
-      owner_id = OwnerID,
-      name = list_to_binary("Char" ++ IDAsListString),
-      icon = IDAsBinaryString,
-      portrait = IDAsBinaryString,
-      attributes = Attributes,
-      weapon_ids = WeaponIDs,
-      statistics = Statistics
-   }.
diff --git a/src/struct/character_instance.erl b/src/struct/character_instance.erl
deleted file mode 100644
index 9b64f9a..0000000
--- a/src/struct/character_instance.erl
+++ /dev/null
@@ -1,160 +0,0 @@
--module(character_instance).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--record
-(
-   character_instance,
-   {
-      character :: character:struct(),
-      location :: {non_neg_integer(), non_neg_integer()},
-      current_health :: non_neg_integer(),
-      active :: boolean()
-   }
-).
-
--opaque struct() :: #character_instance{}.
-
--export_type([struct/0]).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--export
-(
-   [
-      new/2,
-      random/4
-   ]
-).
-
-%%%% Accessors
--export
-(
-   [
-      get_character/1,
-      get_location/1,
-      get_current_health/1,
-      get_is_active/1,
-
-      set_character/2,
-      set_location/2,
-      set_current_health/2,
-      set_is_active/2
-   ]
-).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--spec find_random_location
-   (
-      non_neg_integer(),
-      non_neg_integer(),
-      list({non_neg_integer(), non_neg_integer()})
-   )
-   -> {non_neg_integer(), non_neg_integer()}.
-find_random_location (BattlemapWidth, BattlemapHeight, ForbiddenLocations) ->
-   X = roll:between(0, (BattlemapWidth - 1)),
-   Y = roll:between(0, (BattlemapHeight - 1)),
-
-   IsForbidden = lists:member({X, Y}, ForbiddenLocations),
-
-   case IsForbidden of
-      true ->
-         find_random_location
-         (
-            BattlemapWidth,
-            BattlemapHeight,
-            ForbiddenLocations
-         );
-
-      _ -> {X, Y}
-   end.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%% Accessors
--spec get_character (struct()) -> character:struct().
-get_character (CharInst) -> CharInst#character_instance.character.
-
--spec get_location (struct()) -> {non_neg_integer(), non_neg_integer()}.
-get_location (CharInst) -> CharInst#character_instance.location.
-
--spec get_current_health (struct()) -> non_neg_integer().
-get_current_health (CharInst) -> CharInst#character_instance.current_health.
-
--spec get_is_active (struct()) -> boolean().
-get_is_active (CharInst) ->
-   (
-      CharInst#character_instance.active
-      and
-      (CharInst#character_instance.current_health > 0)
-   ).
-
--spec set_character (character:struct(), struct()) -> struct().
-set_character (Char, CharInst) ->
-   CharInst#character_instance
-   {
-      character = Char
-   }.
-
--spec set_location
-   (
-      {non_neg_integer(), non_neg_integer()},
-      struct()
-   )
-   -> struct().
-set_location (Location, CharInst) ->
-   CharInst#character_instance
-   {
-      location = Location
-   }.
-
--spec set_current_health (non_neg_integer(), struct()) -> struct().
-set_current_health (Health, CharInst) ->
-   CharInst#character_instance
-   {
-      current_health = Health
-   }.
-
--spec set_is_active (boolean(), struct()) -> struct().
-set_is_active (Active, CharInst) ->
-   CharInst#character_instance
-   {
-      active = Active
-   }.
-
-%%%% Utils
--spec new
-   (
-      character:struct(),
-      {non_neg_integer(), non_neg_integer()}
-   )
-   -> struct().
-new (Character, Location) ->
-   CharacterStatistics = character:get_statistics(Character),
-   #character_instance
-   {
-      character = Character,
-      location = Location,
-      current_health = statistics:get_health(CharacterStatistics),
-      active = false
-   }.
-
--spec random
-   (
-      character:struct(),
-      non_neg_integer(),
-      non_neg_integer(),
-      list({non_neg_integer(), non_neg_integer()})
-   )
-   -> struct().
-random (Character, BattlemapWidth, BattlemapHeight, ForbiddenLocations) ->
-   new
-   (
-      Character,
-      find_random_location(BattlemapWidth, BattlemapHeight, ForbiddenLocations)
-   ).
diff --git a/src/struct/direction.erl b/src/struct/direction.erl
deleted file mode 100644
index 84ae272..0000000
--- a/src/struct/direction.erl
+++ /dev/null
@@ -1,37 +0,0 @@
--module(direction).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--type enum() :: ('up' | 'down' | 'left' | 'right').
-
--export_type([enum/0]).
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--export
-(
-   [
-      decode/1,
-      encode/1
-   ]
-).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--spec decode (binary()) -> enum().
-decode (<<"U">>) -> up;
-decode (<<"D">>) -> down;
-decode (<<"L">>) -> left;
-decode (<<"R">>) -> right.
-
--spec encode (enum()) -> binary().
-encode (up) -> <<"U">>;
-encode (down) -> <<"D">>;
-encode (left) -> <<"L">>;
-encode (right) -> <<"R">>.
diff --git a/src/struct/location.erl b/src/struct/location.erl
deleted file mode 100644
index b8e2bf3..0000000
--- a/src/struct/location.erl
+++ /dev/null
@@ -1,71 +0,0 @@
--module(location).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--type type() :: {non_neg_integer(), non_neg_integer()}.
-
--export_type([type/0]).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--export
-(
-   [
-      decode/1,
-      encode/1
-   ]
-).
-
--export
-(
-   [
-      apply_direction/2,
-      dist/2
-   ]
-).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--spec validate ({integer(), integer()}) -> type().
-validate ({X, Y}) ->
-   true = (X >= 0),
-   true = (Y >= 0),
-   {X, Y}.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--spec apply_direction (direction:enum(), type()) -> type().
-apply_direction (left, {X, Y}) ->
-   validate({(X - 1), Y});
-apply_direction (right, {X, Y}) ->
-   validate({(X + 1), Y});
-apply_direction (up, {X, Y}) ->
-   validate({X, (Y - 1)});
-apply_direction (down, {X, Y}) ->
-   validate({X, (Y + 1)}).
-
--spec dist(type(), type()) -> non_neg_integer().
-dist ({OX, OY}, {DX, DY}) ->
-   (abs(DY - OY) + abs(DX - OX)).
-
--spec encode (type()) -> {list(any())}.
-encode ({X, Y}) ->
-   {
-      [
-         {<<"x">>, X},
-         {<<"y">>, Y}
-      ]
-   }.
-
--spec decode (map()) -> type().
-decode (Map) ->
-   X = maps:get(<<"x">>, Map),
-   Y = maps:get(<<"y">>, Map),
-
-   true = (is_integer(X) and is_integer(Y)),
-
-   validate({X, Y}).
diff --git a/src/struct/player.erl b/src/struct/player.erl
deleted file mode 100644
index c4aefd1..0000000
--- a/src/struct/player.erl
+++ /dev/null
@@ -1,72 +0,0 @@
--module(player).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--type id() :: binary().
-
--record
-(
-   player,
-   {
-      id :: id(),
-      timeline :: list(any())
-   }
-).
-
--opaque struct() :: #player{}.
-
--export_type([struct/0, id/0]).
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--export
-(
-   [
-      get_id/1,
-      get_timeline/1,
-      add_to_timeline/2,
-      reset_timeline/1
-   ]
-).
-
--export
-(
-   [
-      new/1
-   ]
-).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--spec get_id (struct()) -> id().
-get_id (Player) -> Player#player.id.
-
--spec get_timeline (struct()) -> list(any()).
-get_timeline (Player) -> Player#player.timeline.
-
--spec add_to_timeline (list(any()), struct()) -> struct().
-add_to_timeline (NewEvents, Player) ->
-   OldTimeline = Player#player.timeline,
-
-   Player#player
-   {
-      timeline = (NewEvents ++ OldTimeline)
-   }.
-
--spec reset_timeline (struct()) -> struct().
-reset_timeline (Player) -> Player#player{ timeline = [] }.
-
--spec new (id()) -> struct().
-new (ID) ->
-   #player
-   {
-      id = ID,
-      timeline = []
-   }.
-
diff --git a/src/struct/player_turn.erl b/src/struct/player_turn.erl
deleted file mode 100644
index 7795f35..0000000
--- a/src/struct/player_turn.erl
+++ /dev/null
@@ -1,58 +0,0 @@
--module(player_turn).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--record
-(
-   player_turn,
-   {
-      number :: non_neg_integer(),
-      player_ix :: non_neg_integer()
-   }
-).
-
--opaque struct() :: #player_turn{}.
-
--export_type([struct/0]).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--export
-(
-   [
-      new/2
-   ]
-).
-
-%%%% Accessors
--export
-(
-   [
-      get_number/1,
-      get_player_ix/1
-   ]
-).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%% Accessors
--spec new (non_neg_integer(), non_neg_integer()) -> struct().
-new (Number, PlayerIX) ->
-   #player_turn
-   {
-      number = Number,
-      player_ix = PlayerIX
-   }.
-
--spec get_number (struct()) -> non_neg_integer().
-get_number (PlayerTurn) -> PlayerTurn#player_turn.number.
-
--spec get_player_ix (struct()) -> non_neg_integer().
-get_player_ix (PlayerTurn) -> PlayerTurn#player_turn.player_ix.
diff --git a/src/struct/statistics.erl b/src/struct/statistics.erl
deleted file mode 100644
index 6e29ea4..0000000
--- a/src/struct/statistics.erl
+++ /dev/null
@@ -1,193 +0,0 @@
--module(statistics).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--record
-(
-   statistics,
-   {
-      movement_points :: non_neg_integer(),
-      health :: non_neg_integer(),
-      dodges :: non_neg_integer(),
-      parries :: non_neg_integer(),
-      damage_min :: non_neg_integer(),
-      damage_max :: non_neg_integer(),
-      accuracy :: non_neg_integer(),
-      double_hits :: non_neg_integer(),
-      critical_hits :: non_neg_integer()
-   }
-).
-
--opaque struct() :: #statistics{}.
-
--export_type([struct/0]).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%% Accessors
--export
-(
-   [
-      get_movement_points/1,
-      get_health/1,
-      get_dodges/1,
-      get_parries/1,
-      get_damage_min/1,
-      get_damage_max/1,
-      get_accuracy/1,
-      get_double_hits/1,
-      get_critical_hits/1,
-
-      get_damages/1
-   ]
-).
-
--export
-(
-   [
-      new/2
-   ]
-).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--spec ceil (float()) -> integer().
-ceil (F) ->
-   I = trunc(F),
-   case (F > I) of
-      true -> (I + 1);
-      _ -> I
-   end.
-
--spec float_to_int (float()) -> integer().
-float_to_int (F) -> ceil(F).
-
--spec min_max (number(), number(), number()) -> number().
-min_max (Min, Max, V) -> min(Max, max(Min, V)).
-
--spec average (list(number())) -> number().
-%average ([]) -> 0;
-average (L) -> lists:sum(L) / length(L).
-
-% V | 010 | 030 | 050 | 070 | 100 |
-% F | 004 | 023 | 058 | 104 | 200 |
--spec gentle_squared_growth (number()) -> non_neg_integer().
-gentle_squared_growth (V) -> float_to_int(math:pow(V, 1.8) / 20).
-
-% V | 010 | 030 | 050 | 070 | 100 |
-% F | 001 | 005 | 018 | 041 | 100 |
--spec sudden_squared_growth (number()) -> non_neg_integer().
-sudden_squared_growth (V) -> float_to_int(math:pow(V, 2.5) / 1000).
-
-% V | 010 | 030 | 050 | 070 | 100 |
-% F | 002 | 006 | 016 | 049 | 256 |
--spec sudden_exp_growth (number()) -> non_neg_integer().
-sudden_exp_growth (V) -> float_to_int(math:pow(4, V / 25)).
-
-% V | 010 | 030 | 050 | 070 | 100 |
-% F | 040 | 066 | 079 | 088 | 099 |
-% Seems too generous, values for attributes below 50 should dip faster and
-% lower.
-%-spec already_high_slow_growth (non_neg_integer()) -> non_neg_integer().
-%already_high_slow_growth (V) -> float_to_int(30 * math:log((V + 5)/4)).
-
--spec damage_base_modifier (non_neg_integer()) -> float().
-damage_base_modifier (Strength) -> ((math:pow(Strength, 1.8) / 2000.0) - 0.75).
-
--spec apply_damage_base_modifier
-   (
-      float(),
-      non_neg_integer()
-   )
-   -> non_neg_integer().
-apply_damage_base_modifier (Modifier, BaseValue) ->
-   max(0, float_to_int(BaseValue + (BaseValue * Modifier))).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%% Accessors
--spec get_movement_points (struct()) -> non_neg_integer().
-get_movement_points (Stats) -> Stats#statistics.movement_points.
-
--spec get_health (struct()) -> non_neg_integer().
-get_health (Stats) -> Stats#statistics.health.
-
--spec get_dodges (struct()) -> non_neg_integer().
-get_dodges (Stats) -> Stats#statistics.dodges.
-
--spec get_parries (struct()) -> non_neg_integer().
-get_parries (Stats) -> Stats#statistics.parries.
-
--spec get_damage_min (struct()) -> non_neg_integer().
-get_damage_min (Stats) -> Stats#statistics.damage_min.
-
--spec get_damage_max (struct()) -> non_neg_integer().
-get_damage_max (Stats) -> Stats#statistics.damage_max.
-
--spec get_accuracy (struct()) -> non_neg_integer().
-get_accuracy (Stats) -> Stats#statistics.accuracy.
-
--spec get_double_hits (struct()) -> non_neg_integer().
-get_double_hits (Stats) -> Stats#statistics.double_hits.
-
--spec get_critical_hits (struct()) -> non_neg_integer().
-get_critical_hits (Stats) -> Stats#statistics.critical_hits.
-
--spec get_damages (struct()) -> {non_neg_integer(), non_neg_integer()}.
-get_damages (Stats) ->
-   {
-      Stats#statistics.damage_min,
-      Stats#statistics.damage_max
-   }.
-
--spec new
-   (
-      attributes:struct(),
-      {weapon:id(), weapon:id()}
-   )
-   -> struct().
-new (BaseAttributes, WeaponIDs) ->
-   {ActiveWeaponID, _} = WeaponIDs,
-   ActiveWeapon = weapon:from_id(ActiveWeaponID),
-   {MinDamage, MaxDamage} = weapon:get_damages(ActiveWeapon),
-   Attributes = weapon:apply_to_attributes(BaseAttributes, ActiveWeapon),
-   Constitution = attributes:get_constitution(Attributes),
-   Dexterity = attributes:get_dexterity(Attributes),
-   Intelligence = attributes:get_intelligence(Attributes),
-   Mind = attributes:get_mind(Attributes),
-   Speed = attributes:get_speed(Attributes),
-   Strength = attributes:get_strength(Attributes),
-   DamageBaseModifier = damage_base_modifier(Strength),
-
-   #statistics
-   {
-      movement_points =
-         gentle_squared_growth
-         (
-            average([Mind, Constitution, Constitution, Speed, Speed, Speed])
-         ),
-      health =
-         gentle_squared_growth(average([Mind, Constitution, Constitution])),
-      dodges =
-         min_max(0, 100, sudden_exp_growth(average([Dexterity, Mind, Speed]))),
-      parries =
-         min_max
-         (
-            0,
-            75,
-            sudden_exp_growth
-            (
-               average([Dexterity, Intelligence, Speed, Strength])
-            )
-         ),
-      damage_min = apply_damage_base_modifier(DamageBaseModifier, MinDamage),
-      damage_max = apply_damage_base_modifier(DamageBaseModifier, MaxDamage),
-      accuracy = min_max(0, 100, sudden_squared_growth(Dexterity)),
-      double_hits =
-         min_max(0, 100, sudden_squared_growth(average([Mind, Speed]))),
-      critical_hits = min_max(0, 100, sudden_squared_growth(Intelligence))
-   }.
diff --git a/src/struct/tile.erl b/src/struct/tile.erl
deleted file mode 100644
index e86da56..0000000
--- a/src/struct/tile.erl
+++ /dev/null
@@ -1,47 +0,0 @@
--module(tile).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--opaque id() :: non_neg_integer().
--opaque struct() :: id().
-
--export_type([struct/0, id/0]).
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--export
-(
-   [
-      get_cost/1,
-      cost_when_oob/0
-   ]
-).
-
--export
-(
-   [
-      random_id/0
-   ]
-).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--spec cost_when_oob () -> non_neg_integer().
-cost_when_oob () -> 255.
-
--spec get_cost (id()) -> non_neg_integer().
-get_cost (N) ->
-   if
-      (N =< 200) -> (N + 8);
-      true -> cost_when_oob()
-   end.
-
--spec random_id () -> id().
-random_id () ->
-   roll:between(0, 15).
diff --git a/src/struct/turn_result.erl b/src/struct/turn_result.erl
deleted file mode 100644
index 5f796ca..0000000
--- a/src/struct/turn_result.erl
+++ /dev/null
@@ -1,142 +0,0 @@
--module(turn_result).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%
--record
-(
-   switched_weapon,
-   {
-      character_instance_ix :: character_instance:id()
-   }
-).
-
--record
-(
-   moved,
-   {
-      character_instance_ix :: character_instance:id(),
-      path :: list(direction:enum()),
-      new_location :: location:type()
-   }
-).
-
--record
-(
-   attacked,
-   {
-      attacker_ix :: character_instance:id(),
-      defender_ix :: character_instance:id(),
-      sequence :: list(attack:struct())
-   }
-).
-
--opaque struct() :: (#switched_weapon{} | #moved{} | #attacked{}).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--export_type([struct/0]).
-
--export
-(
-   [
-      new_character_switched_weapons/1,
-      new_character_moved/3,
-      new_character_attacked/3
-   ]
-).
-
--export
-(
-   [
-      encode/1
-   ]
-).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--spec new_character_switched_weapons (character_instance:id()) -> struct().
-new_character_switched_weapons (CharacterInstanceIX) ->
-   #switched_weapon { character_instance_ix = CharacterInstanceIX }.
-
--spec new_character_moved
-   (
-      character_instance:id(),
-      list(direction:enum()),
-      location:type()
-   )
-   -> struct().
-new_character_moved (CharacterInstanceIX, Path, NewLocation) ->
-   #moved
-   {
-      character_instance_ix = CharacterInstanceIX,
-      path = Path,
-      new_location = NewLocation
-   }.
-
--spec new_character_attacked
-   (
-      character_instance:id(),
-      character_instance:id(),
-      list(attack:struct())
-   )
-   -> struct().
-new_character_attacked (AttackerIX, DefenderIX, AttackSequence) ->
-   #attacked
-   {
-      attacker_ix = AttackerIX,
-      defender_ix = DefenderIX,
-      sequence = AttackSequence
-   }.
-
--spec encode (struct()) -> {list(any())}.
-encode (TurnResult) when is_record(TurnResult, switched_weapon) ->
-   CharacterInstanceIX = TurnResult#switched_weapon.character_instance_ix,
-
-   {
-      [
-         {<<"t">>, <<"swp">>},
-         {<<"ix">>, CharacterInstanceIX}
-      ]
-   };
-encode (TurnResult) when is_record(TurnResult, moved) ->
-   CharacterInstanceIX = TurnResult#moved.character_instance_ix,
-   Path = TurnResult#moved.path,
-   NewLocation = TurnResult#moved.new_location,
-
-   EncodedPath = lists:map(fun direction:encode/1, Path),
-   EncodedNewLocation = location:encode(NewLocation),
-
-   {
-      [
-         {<<"t">>, <<"mv">>},
-         {<<"ix">>, CharacterInstanceIX},
-         {<<"p">>, EncodedPath},
-         {<<"nlc">>, EncodedNewLocation}
-      ]
-   };
-encode (TurnResult) when is_record(TurnResult, attacked) ->
-   AttackerIX = TurnResult#attacked.attacker_ix,
-   DefenderIX = TurnResult#attacked.defender_ix,
-   Sequence = TurnResult#attacked.sequence,
-
-   EncodedSequence = lists:map(fun attack:encode/1, Sequence),
-
-   {
-      [
-         {<<"t">>, <<"atk">>},
-         {<<"aix">>, AttackerIX},
-         {<<"dix">>, DefenderIX},
-         {<<"seq">>, EncodedSequence}
-      ]
-   };
-encode (Other) ->
-   io:format("~n invalid encode param\"~p\"~n", [Other]),
-   true = Other.
diff --git a/src/struct/weapon.erl b/src/struct/weapon.erl
deleted file mode 100644
index 80cb925..0000000
--- a/src/struct/weapon.erl
+++ /dev/null
@@ -1,361 +0,0 @@
--module(weapon).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--opaque id() :: non_neg_integer().
-
--type range_type() :: 'ranged' | 'melee'.
--type range_mod() :: 'long' | 'short'.
--type damage_type() :: 'slash' | 'pierce' | 'blunt'.
--type damage_mod() :: 'heavy' | 'light'.
-
--record
-(
-   weapon,
-   {
-      id :: id(),
-      name :: binary(),
-      range_type :: range_type(),
-      range_mod :: range_mod(),
-      damage_type :: damage_type(),
-      damage_mod :: damage_mod()
-   }
-).
-
--opaque struct() :: #weapon{}.
-
--export_type([struct/0, id/0]).
--export_type
-(
-   [
-      range_type/0,
-      range_mod/0,
-      damage_type/0,
-      damage_mod/0
-   ]
-).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%% Accessors
--export
-(
-   [
-      get_id/1,
-      get_range_type/1,
-      get_ranges/1,
-      get_damages/1
-   ]
-).
-
--export
-(
-   [
-      random_id/0,
-      from_id/1,
-      can_parry/1,
-      apply_to_attributes/2
-   ]
-).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
--spec ranges_of_type
-   (
-      range_type(),
-      range_mod()
-   )
-   -> {non_neg_integer(), non_neg_integer()}.
-ranges_of_type (ranged, long) -> {2, 6};
-ranges_of_type (ranged, short) -> {1, 4};
-ranges_of_type (melee, long) -> {0, 2};
-ranges_of_type (melee, short) -> {0, 1}.
-
--spec damages_of_type
-   (
-      range_type(),
-      damage_mod()
-   )
-   -> {non_neg_integer(), non_neg_integer()}.
-damages_of_type (ranged, heavy) -> {10, 25};
-damages_of_type (ranged, light) -> {5, 20};
-damages_of_type (melee, heavy) -> {20, 35};
-damages_of_type (melee, light) -> {15, 30}.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%% Accessors
--spec get_id (struct()) -> id().
-get_id (Wp) -> Wp#weapon.id.
-
--spec get_range_type (struct()) -> range_type().
-get_range_type (Wp) -> Wp#weapon.range_type.
-
--spec get_ranges (struct()) -> {non_neg_integer(), non_neg_integer()}.
-get_ranges (Wp) ->
-   ranges_of_type(Wp#weapon.range_type, Wp#weapon.range_mod).
-
--spec get_damages (struct()) -> {non_neg_integer(), non_neg_integer()}.
-get_damages (Wp) ->
-   damages_of_type(Wp#weapon.range_type, Wp#weapon.damage_mod).
-
--spec can_parry (struct()) -> boolean().
-can_parry (Wp) -> (Wp#weapon.range_type == melee).
-
--spec from_id (id()) -> struct().
-from_id (0) ->
-   #weapon{
-      id = 0,
-      name = <<"None">>,
-      range_type = melee,
-      range_mod = short,
-      damage_type = blunt,
-      damage_mod = light
-   };
-from_id (1) ->
-   #weapon{
-      id = 1,
-      name = <<"Dagger">>,
-      range_type = melee,
-      range_mod = short,
-      damage_type = slash,
-      damage_mod = light
-   };
-from_id (2) ->
-   #weapon{
-      id = 2,
-      name = <<"Sword">>,
-      range_type = melee,
-      range_mod = short,
-      damage_type = slash,
-      damage_mod = heavy
-   };
-from_id (3) ->
-   #weapon{
-      id = 3,
-      name = <<"Claymore">>,
-      range_type = melee,
-      range_mod = long,
-      damage_type = slash,
-      damage_mod = light
-   };
-from_id (4) ->
-   #weapon{
-      id = 4,
-      name = <<"Bardiche">>,
-      range_type = melee,
-      range_mod = long,
-      damage_type = slash,
-      damage_mod = heavy
-   };
-from_id (5) ->
-   #weapon{
-      id = 5,
-      name = <<"Stiletto">>,
-      range_type = melee,
-      range_mod = short,
-      damage_type = pierce,
-      damage_mod = light
-   };
-from_id (6) ->
-   #weapon{
-      id = 6,
-      name = <<"Pickaxe">>,
-      range_type = melee,
-      range_mod = short,
-      damage_type = pierce,
-      damage_mod = heavy
-   };
-from_id (7) ->
-   #weapon{
-      id = 7,
-      name = <<"Rapier">>,
-      range_type = melee,
-      range_mod = long,
-      damage_type = pierce,
-      damage_mod = light
-   };
-from_id (8) ->
-   #weapon{
-      id = 8,
-      name = <<"Pike">>,
-      range_type = melee,
-      range_mod = long,
-      damage_type = pierce,
-      damage_mod = heavy
-   };
-from_id (9) ->
-   #weapon{
-      id = 9,
-      name = <<"Club">>,
-      range_type = melee,
-      range_mod = short,
-      damage_type = blunt,
-      damage_mod = light
-   };
-from_id (10) ->
-   #weapon{
-      id = 10,
-      name = <<"Mace">>,
-      range_type = melee,
-      range_mod = short,
-      damage_type = blunt,
-      damage_mod = heavy
-   };
-from_id (11) ->
-   #weapon{
-      id = 11,
-      name = <<"Staff">>,
-      range_type = melee,
-      range_mod = long,
-      damage_type = blunt,
-      damage_mod = light
-   };
-from_id (12) ->
-   #weapon{
-      id = 12,
-      name = <<"War Hammer">>,
-      range_type = melee,
-      range_mod = long,
-      damage_type = blunt,
-      damage_mod = heavy
-   };
-from_id (13) ->
-   #weapon{
-      id = 13,
-      name = <<"Short Bow (Broadhead)">>,
-      range_type = ranged,
-      range_mod = short,
-      damage_type = slash,
-      damage_mod = light
-   };
-from_id (14) ->
-   #weapon{
-      id = 14,
-      name = <<"Short Bow (Blunt)">>,
-      range_type = ranged,
-      range_mod = short,
-      damage_type = blunt,
-      damage_mod = light
-   };
-from_id (15) ->
-   #weapon{
-      id = 15,
-      name = <<"Short Bow (Bodkin Point)">>,
-      range_type = ranged,
-      range_mod = short,
-      damage_type = pierce,
-      damage_mod = light
-   };
-from_id (16) ->
-   #weapon{
-      id = 16,
-      name = <<"Long Bow (Broadhead)">>,
-      range_type = ranged,
-      range_mod = long,
-      damage_type = slash,
-      damage_mod = light
-   };
-from_id (17) ->
-   #weapon{
-      id = 17,
-      name = <<"Long Bow (Blunt)">>,
-      range_type = ranged,
-      range_mod = long,
-      damage_type = blunt,
-      damage_mod = light
-   };
-from_id (18) ->
-   #weapon{
-      id = 18,
-      name = <<"Long Bow (Bodkin Point)">>,
-      range_type = ranged,
-      range_mod = long,
-      damage_type = pierce,
-      damage_mod = light
-   };
-from_id (19) ->
-   #weapon{
-      id = 19,
-      name = <<"Crossbow (Broadhead)">>,
-      range_type = ranged,
-      range_mod = short,
-      damage_type = slash,
-      damage_mod = heavy
-   };
-from_id (20) ->
-   #weapon{
-      id = 20,
-      name = <<"Crossbow (Blunt)">>,
-      range_type = ranged,
-      range_mod = short,
-      damage_type = blunt,
-      damage_mod = heavy
-   };
-from_id (21) ->
-   #weapon{
-      id = 21,
-      name = <<"Crossbow (Bodkin Point)">>,
-      range_type = ranged,
-      range_mod = short,
-      damage_type = pierce,
-      damage_mod = heavy
-   };
-from_id (22) ->
-   #weapon{
-      id = 22,
-      name = <<"Arbalest (Broadhead)">>,
-      range_type = ranged,
-      range_mod = long,
-      damage_type = slash,
-      damage_mod = heavy
-   };
-from_id (23) ->
-   #weapon{
-      id = 23,
-      name = <<"Arbalest (Blunt)">>,
-      range_type = ranged,
-      range_mod = long,
-      damage_type = blunt,
-      damage_mod = heavy
-   };
-from_id (24) ->
-   #weapon{
-      id = 24,
-      name = <<"Arbalest (Bodkin Point)">>,
-      range_type = ranged,
-      range_mod = long,
-      damage_type = pierce,
-      damage_mod = heavy
-   }.
-
--spec random_id () -> id().
-random_id () -> roll:between(0, 24).
-
--spec apply_to_attributes
-   (
-      attributes:struct(),
-      weapon:struct()
-   )
-   -> attributes:struct().
-apply_to_attributes (Attributes, Weapon) ->
-   Dexterity = attributes:get_dexterity(Attributes),
-   Speed = attributes:get_speed(Attributes),
-   RangeModifier = Weapon#weapon.range_mod,
-   DamageModifier = Weapon#weapon.damage_mod,
-   WithRangeModifier =
-      case RangeModifier of
-         long ->
-            attributes:set_dexterity(max(0, (Dexterity - 20)), Attributes);
-         _ -> Attributes
-      end,
-   case DamageModifier of
-      heavy ->
-         attributes:set_speed(max(0, (Speed - 20)), WithRangeModifier);
-      _ -> WithRangeModifier
-   end.
-