xhads/source/deity.ads

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

with core, attribute, skill, resource, faction;

package deity is

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

	type enumeration is (
		AEZORA,                 MITENA,                 GUAREA,                 KERENA,                 ULDRAE,                 KANAKO,
		HENEAL,                 EVELOR,                 OROHAN,                 XORANA
	);

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

	type information is record
		name            : core.short_string;
		favor           : integer;
		loved_faction   : faction.enumeration;
		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 := (
		AEZORA => ("Aezora                  ", 0, faction.fairy,   attribute.offense, skill.archery, resource.gold),
		MITENA => ("Mitena                  ", 0, faction.dwarf,   attribute.offense, skill.archery, resource.gold),
		GUAREA => ("Guarea                  ", 0, faction.gnoll,   attribute.offense, skill.archery, resource.gold),
		KERENA => ("Kerena                  ", 0, faction.kobold,  attribute.offense, skill.archery, resource.gold),
		ULDRAE => ("Uldrae                  ", 0, faction.goblin,  attribute.offense, skill.archery, resource.gold),
		KANAKO => ("Kanako                  ", 0, faction.imp,     attribute.offense, skill.archery, resource.gold), -- Amaryllis - Alice Sailor
		HENEAL => ("Heneal                  ", 0, faction.human,   attribute.offense, skill.archery, resource.gold),
		EVELOR => ("Evelor                  ", 0, faction.elf,     attribute.offense, skill.archery, resource.gold),
		OROHAN => ("Orohan                  ", 0, faction.orc,     attribute.offense, skill.archery, resource.gold),
		XORANA => ("Xorana                  ", 0, faction.neutral, attribute.offense, skill.archery, resource.gold)
	);

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

	procedure configure;

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

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

end deity;