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 (
		KSENIA, -- Ksenija Atanasijevic / Philosophy / Red-Haired Goddess / Starcevo Culture
		AEZORA,                 MITENA,                 SHEILA,                 ILIONA,                 ULDRAE,                 KANAKO,
		HENEAL,                 EVELOR,                 OROHAN,                 XORANA
	);

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

	type definition is record
		name            : access string                := new string'("--");
		favor           :        integer               := 0;
		loved_faction   :        faction.enumeration   := faction.neutral;
		bonus_attribute :        attribute.enumeration := attribute.enumeration'first;
		bonus_skill     :        skill.enumeration     := skill.enumeration'first;
		bonus_resource  :        resource.enumeration  := resource.enumeration'first;
	end record;

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

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

	description : constant array (enumeration) of definition := (
		KSENIA => (new string'("Ksenia"), -120, faction.neutral, attribute.stamina, skill.athletics,     resource.wood),
		AEZORA => (new string'("Aezora"),   10, faction.fairy,   attribute.reach,   skill.archery,       resource.gem),
		MITENA => (new string'("Mitena"),   10, faction.dwarf,   attribute.defense, skill.resistance,    resource.stone),
		SHEILA => (new string'("Sheila"),    0, faction.gnoll,   attribute.speed,   skill.exploration,   resource.leather),
		ILIONA => (new string'("Iliona"),    0, faction.kobold,  attribute.stamina, skill.logistics,     resource.metal),
		ULDRAE => (new string'("Uldrae"),  -10, faction.goblin,  attribute.offense, skill.skirmish,      resource.wood),
		KANAKO => (new string'("Kanako"),  -10, faction.imp,     attribute.wisdom,  skill.alchemy,       resource.gold),
		HENEAL => (new string'("Heneal"),  -60, faction.human,   attribute.defense, skill.mercantile,    resource.gold),
		EVELOR => (new string'("Evelor"),  -60, faction.elf,     attribute.stamina, skill.medicine,      resource.gold),
		OROHAN => (new string'("Orohan"),  -60, faction.orc,     attribute.offense, skill.tactics,       resource.gold),
		XORANA => (new string'("Xorana"), -120, faction.neutral, attribute.wisdom,  skill.eremnokinesis, resource.metal)
	);

	game : array (enumeration) of core.sprite;

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

end deity;