-- 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;