|
- -- 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),
- 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 (index : in enumeration; x, y : in integer);
-
- ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
- end deity;
|