2024-04-25 00:27:13 -04:00
|
|
|
-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
|
|
|
|
--
|
|
|
|
-- GNU General Public Licence (version 3 or later)
|
|
|
|
|
2024-05-15 06:30:40 -04:00
|
|
|
with core, attribute, skill, resource, faction;
|
2024-02-15 21:03:09 -05:00
|
|
|
|
|
|
|
package deity is
|
|
|
|
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
|
2024-04-26 16:05:48 -04:00
|
|
|
type enumeration is (
|
2024-05-15 06:30:40 -04:00
|
|
|
AEZORA, MITENA, GUAREA, KERENA, ULDRAE, KANAKO,
|
|
|
|
HENEAL, EVELOR, OROHAN, XORANA
|
2024-02-15 21:03:09 -05:00
|
|
|
);
|
|
|
|
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
|
2024-06-01 11:46:17 -04:00
|
|
|
type definition is record
|
2024-05-15 06:30:40 -04:00
|
|
|
name : core.short_string;
|
|
|
|
favor : integer;
|
|
|
|
loved_faction : faction.enumeration;
|
|
|
|
bonus_attribute : attribute.enumeration;
|
|
|
|
bonus_skill : skill.enumeration;
|
|
|
|
bonus_resource : resource.enumeration;
|
2024-02-15 21:03:09 -05:00
|
|
|
end record;
|
|
|
|
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
|
2024-04-26 16:05:48 -04:00
|
|
|
count : constant natural := enumeration'pos (enumeration'last) + 1;
|
2024-02-19 16:20:38 -05:00
|
|
|
|
2024-06-01 11:46:17 -04:00
|
|
|
description : constant array (enumeration) of definition := (
|
2024-05-15 06:30:40 -04:00
|
|
|
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),
|
2024-05-19 02:59:45 -04:00
|
|
|
KANAKO => ("Kanako ", 0, faction.imp, attribute.offense, skill.archery, resource.gold),
|
2024-05-15 06:30:40 -04:00
|
|
|
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)
|
2024-02-15 21:03:09 -05:00
|
|
|
);
|
|
|
|
|
2024-06-02 13:00:54 -04:00
|
|
|
sprite : array (enumeration) of core.sprite;
|
2024-02-15 21:03:09 -05:00
|
|
|
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
end deity;
|