-- 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 definition 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 definition := ( 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) ); sprite : array (enumeration) of core.sprite; ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ end deity;