xhads/source/faction.ads

-- 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 definition is record
		name            : access string;
		bonus_attribute :        attribute.enumeration;
		bonus_skill     :        skill.enumeration;
		bonus_resource  :        resource.enumeration;
	end record;

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

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

	description : constant array (enumeration) of definition := (
		fairy   => (new string' ("Fairy Kingdom"),       attribute.speed,   skill.mysticism,   resource.gold),
		dwarf   => (new string' ("Dwarf Kingdom"),       attribute.defense, skill.estates,     resource.stone),
		gnoll   => (new string' ("Gnoll Kingdom"),       attribute.stamina, skill.logistics,   resource.leather),
		kobold  => (new string' ("Kobold Kingdom"),      attribute.offense, skill.tactics,     resource.metal),
		goblin  => (new string' ("Goblin Kingdom"),      attribute.reach,   skill.exploration, resource.wood),
		imp     => (new string' ("Imp Kingdom"),         attribute.wisdom,  skill.sorcery,     resource.gem),
		human   => (new string' ("Fallen Human Empire"), attribute.wisdom,  skill.estates,     resource.gold),
		elf     => (new string' ("Fallen Elf Empire"),   attribute.wisdom,  skill.estates,     resource.gold),
		orc     => (new string' ("Fallen Orc Empire"),   attribute.wisdom,  skill.estates,     resource.gold),
		neutral => (new string' ("Neutral"),             attribute.offense, skill.archery,     resource.gold)
	);

	sprite : array (enumeration) of core.sprite;

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

end faction;