51 lines
3.0 KiB
Ada
51 lines
3.0 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 (
|
|
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;
|