xhads/source/unit.ads

-- 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))
	);

                                             ------------------------------------------------------------------------------------------

	procedure configure;

	procedure draw (index : in enumeration; state : in core.animation; x, y : in integer);

	--~procedure draw_icon (index : in enumeration; x, y : in integer);
	--~procedure draw_view (index : in enumeration; x, y : in integer);

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

end unit;