53 lines
2.7 KiB
Ada
53 lines
2.7 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, 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;
|
|
|
|
description : 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;
|