-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
--
-- GNU General Public Licence (version 3 or later)

with core, attribute, skill, resource;

package faction is

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

	type enumeration is (
		fairy,                  dwarf,                  gnoll,                  kobold,                 goblin,                 imp,
		human,                  elf,                    orc,                    neutral
	);

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

	type information is record
		name            : core.short_string;
		bonus_attribute : attribute.enumeration;
		bonus_skill     : skill.enumeration;
		bonus_resource  : resource.enumeration;
	end record;

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

	count : constant natural := enumeration'pos (enumeration'last) + 1;

	trait : constant array (enumeration) of information := (
		("Fairy Kingdom           ", attribute.speed,   skill.mysticism,   resource.gold),
		("Dwarf Kingdom           ", attribute.defense, skill.estates,     resource.stone),
		("Gnoll Kingdom           ", attribute.stamina, skill.logistics,   resource.leather),
		("Kobold Kingdom          ", attribute.offense, skill.tactics,     resource.metal),
		("Goblin Kingdom          ", attribute.reach,   skill.exploration, resource.wood),
		("Imp Kingdom             ", attribute.wisdom,  skill.sorcery,     resource.gem),
		("Fallen Human Empire     ", attribute.wisdom,  skill.estates,     resource.gold),
		("Fallen Elf Empire       ", attribute.wisdom,  skill.estates,     resource.gold),
		("Fallen Orc Empire       ", attribute.wisdom,  skill.estates,     resource.gold),
		("Neutral                 ", attribute.offense, skill.archery,     resource.gold)
	);

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

	procedure draw (value : in enumeration; x, y : in integer);

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

end faction;