78 lines
6.2 KiB
Ada
78 lines
6.2 KiB
Ada
-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
|
|
--
|
|
-- GNU General Public Licence (version 3 or later)
|
|
|
|
with core, effect, attribute, faction, equipment;
|
|
|
|
package unit is
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
type enumeration is (
|
|
dwarf_berserker, dwarf_elite_berserker, dwarf_guard, dwarf_elite_guard
|
|
);
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
type definition is record
|
|
name : core.short_string := "-- ";
|
|
kind : faction.enumeration := faction.neutral;
|
|
attributes : attribute.bonus := (others => 0);
|
|
daily_fee : natural := 0;
|
|
equipments : equipment.equip_array := (others => equipment.none);
|
|
end record;
|
|
|
|
--~bone_chestplate, bronze_chestplate, chainmail_chestplate, crystal_chestplate, golden_chestplate, iron_chestplate,
|
|
--~leather_chestplate, mithril_chestplate, steel_chestplate, bone_greaves, bronze_greaves, chainmail_greaves,
|
|
--~crystal_greaves, golden_greaves, iron_greaves, leather_greaves, mithril_greaves, steel_greaves,
|
|
--~black_tunic, blue_tunic, cyan_tunic, green_tunic, grey_tunic, lime_tunic,
|
|
--~orange_tunic, pink_tunic, purple_tunic, red_tunic, white_tunic, yellow_tunic,
|
|
--~bone_gauntlets, bronze_gauntlets, chainmail_gauntlets, crystal_gauntlets, golden_gauntlets, iron_gauntlets,
|
|
--~leather_gauntlets, mithril_gauntlets, steel_gauntlets, bone_helmet, bronze_helmet, chainmail_helmet,
|
|
--~crystal_helmet, golden_helmet, iron_helmet, leather_helmet, mithril_helmet, steel_helmet,
|
|
--~bone_axe, bone_battleaxe, bone_bow, bone_mace, bone_spear, bone_sword,
|
|
--~bronze_axe, bronze_greatsword, bronze_mace, bronze_spear, bronze_sword, club,
|
|
--~crystal_bow, crystal_greatsword, crystal_mace, crystal_spear, crystal_sword, golden_axe,
|
|
--~golden_battleaxe, golden_bow, golden_greatsword, golden_sword, iron_axe, iron_bow,
|
|
--~iron_mace, iron_spear, iron_sword, jade_axe, jade_battleaxe, jade_greatsword,
|
|
--~jade_mace, jade_spear, jade_sword, maul, mithril_axe, mithril_battleaxe,
|
|
--~mithril_bow, mithril_mace, mithril_spear, sledge_hammer, spiked_club, spiked_staff,
|
|
--~staff, steel_battleaxe, steel_bow, steel_greatsword, steel_mace, steel_sword,
|
|
--~wooden_bow, wooden_greatsword, wooden_sword, golden_necklace, bronze_shield, crystal_shield,
|
|
--~golden_shield, iron_shield, mithril_shield, steel_shield, wooden_shield, wooden_armour,
|
|
--~fur_armour, fur_greaves, fur_gauntlets, red_hood, white_hood, wooden_helmet,
|
|
--~human_helmet, human_armour, elven_helmet, elven_armour, orcish_helmet, orcish_armour,
|
|
--~black_robe, cyan_robe, lime_dress, magenta_dress, orange_robe, pink_dress,
|
|
--~red_robe, sexy_dress, white_robe, lime_robe, orange_hood, fur_helmet,
|
|
--~black_hood, cyan_hood, lime_hood
|
|
|
|
--~full_body, head, chest, hands, feet, neck,
|
|
--~main_hand, off_hand
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
count : constant natural := enumeration'pos (enumeration'last) + 1;
|
|
|
|
description : constant array (enumeration) of definition := (
|
|
dwarf_berserker => ("Dwarf Berserker ", faction.dwarf, (3, 2, 1, 3, 2, 2), 1, (
|
|
equipment.blue_tunic, equipment.leather_helmet, equipment.leather_chestplate, equipment.none,
|
|
equipment.leather_greaves, equipment.none, equipment.iron_axe, equipment.none)),
|
|
dwarf_elite_berserker => ("Dwarf Elite Berserker ", faction.dwarf, (3, 2, 1, 3, 2, 2), 3, (
|
|
equipment.cyan_tunic, equipment.mithril_helmet, equipment.mithril_chestplate, equipment.leather_gauntlets,
|
|
equipment.leather_greaves, equipment.none, equipment.mithril_axe, equipment.none)),
|
|
dwarf_guard => ("Dwarf Guard ", faction.dwarf, (3, 2, 1, 3, 2, 2), 4, (
|
|
equipment.cyan_tunic, equipment.steel_helmet, equipment.steel_chestplate, equipment.leather_gauntlets,
|
|
equipment.leather_greaves, equipment.none, equipment.steel_battleaxe, equipment.steel_shield)),
|
|
dwarf_elite_guard => ("Dwarf Elite Guard ", faction.dwarf, (3, 2, 1, 3, 2, 2), 6, (
|
|
equipment.cyan_tunic, equipment.steel_helmet, equipment.mithril_chestplate, equipment.steel_gauntlets,
|
|
equipment.steel_greaves, equipment.none, equipment.mithril_axe, equipment.steel_shield))
|
|
);
|
|
|
|
base : array (faction.fairy .. faction.imp) of core.sprite;
|
|
--~icon : array (faction.fairy .. faction.imp) of core.sprite;
|
|
--~view : array (faction.fairy .. faction.imp) of core.sprite;
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
end unit;
|