49 lines
2.6 KiB
Ada
49 lines
2.6 KiB
Ada
-- 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;
|