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,                 SHEILA,                 ILIONA,                 ULDRAE,                 KANAKO,
		HENEAL,                 EVELOR,                 OROHAN,                 XORANA
	);

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

	type definition is record
		name            : access 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;

	description : constant array (enumeration) of definition := (
		AEZORA => (new string' ("Aezora"), 0, faction.fairy,   attribute.offense, skill.archery, resource.gold),
		MITENA => (new string' ("Mitena"), 0, faction.dwarf,   attribute.offense, skill.archery, resource.gold),
		SHEILA => (new string' ("Sheila"), 0, faction.gnoll,   attribute.offense, skill.archery, resource.gold),
		ILIONA => (new string' ("Iliona"), 0, faction.kobold,  attribute.offense, skill.archery, resource.gold),
		ULDRAE => (new string' ("Uldrae"), 0, faction.goblin,  attribute.offense, skill.archery, resource.gold),
		KANAKO => (new string' ("Kanako"), 0, faction.imp,     attribute.offense, skill.archery, resource.gold),
		HENEAL => (new string' ("Heneal"), 0, faction.human,   attribute.offense, skill.archery, resource.gold),
		EVELOR => (new string' ("Evelor"), 0, faction.elf,     attribute.offense, skill.archery, resource.gold),
		OROHAN => (new string' ("Orohan"), 0, faction.orc,     attribute.offense, skill.archery, resource.gold),
		XORANA => (new string' ("Xorana"), 0, faction.neutral, attribute.offense, skill.archery, resource.gold)
	);

	sprite : array (enumeration) of core.sprite;

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

end deity;