Finished Equipment package and minor style refactoring...
This commit is contained in:
parent
d6913d1875
commit
dc6084ec6d
@ -30,12 +30,12 @@ package attribute is
|
||||
default : constant points := (others => (1, 12));
|
||||
|
||||
description : constant array (enumeration) of definition := (
|
||||
offense => ((1, 12), new string' ("Offense"), new string' ("Offense attribute determines your damage modifier when attacking.")),
|
||||
defense => ((1, 12), new string' ("Defense"), new string' ("D-FENS attribute determines how much damage your reflect and receive.")),
|
||||
wisdom => ((1, 12), new string' ("Wisdom"), new string' ("Wisdom attribute determines how much mana your chad has.")),
|
||||
stamina => ((1, 12), new string' ("Stamina"), new string' ("Stamina attribute determines how fast you recover from being wounded.")),
|
||||
speed => ((1, 12), new string' ("Speed"), new string' ("Speed attribute determines how far you can walk per turn.")),
|
||||
reach => ((1, 12), new string' ("Reach"), new string' ("Reach attribute determines your range modifier when shooting or casting."))
|
||||
offense => ((1, 12), new string'("Offense"), new string'("Offense attribute determines your damage modifier when attacking.")),
|
||||
defense => ((1, 12), new string'("Defense"), new string'("D-FENS attribute determines how much damage your reflect and receive.")),
|
||||
wisdom => ((1, 12), new string'("Wisdom"), new string'("Wisdom attribute determines how much mana your chad has.")),
|
||||
stamina => ((1, 12), new string'("Stamina"), new string'("Stamina attribute determines how fast you recover from being wounded.")),
|
||||
speed => ((1, 12), new string'("Speed"), new string'("Speed attribute determines how far you can walk per turn.")),
|
||||
reach => ((1, 12), new string'("Reach"), new string'("Reach attribute determines your range modifier when shooting or casting."))
|
||||
);
|
||||
|
||||
icon : array (enumeration) of core.sprite;
|
||||
|
||||
@ -50,12 +50,12 @@ package chad is
|
||||
count : constant natural := enumeration'pos (enumeration'last) + 1;
|
||||
|
||||
description : constant array (enumeration) of definition := (
|
||||
ada => (new string' ("Ada Augusta King"), faction.fairy, attribute.defense, skill.diplomacy, resource.metal),
|
||||
richard => (new string' ("Richard Martin Stallman"), faction.dwarf, attribute.offense, skill.leadership, resource.wood),
|
||||
ognjen => (new string' ("Ognjen Milan Robovic"), faction.kobold, attribute.stamina, skill.archery, resource.leather),
|
||||
wouter => (new string' ("Wouter van Oortmerssen"), faction.gnoll, attribute.speed, skill.medicine, resource.stone),
|
||||
john => (new string' ("John Warner Backus"), faction.goblin, attribute.wisdom, skill.sorcery, resource.gem),
|
||||
marina => (new string' ("Marina Ann Hantzis"), faction.imp, attribute.reach, skill.necromancy, resource.gold)
|
||||
ada => (new string'("Ada Augusta King"), faction.fairy, attribute.defense, skill.diplomacy, resource.metal),
|
||||
richard => (new string'("Richard Martin Stallman"), faction.dwarf, attribute.offense, skill.leadership, resource.wood),
|
||||
ognjen => (new string'("Ognjen Milan Robovic"), faction.kobold, attribute.stamina, skill.archery, resource.leather),
|
||||
wouter => (new string'("Wouter van Oortmerssen"), faction.gnoll, attribute.speed, skill.medicine, resource.stone),
|
||||
john => (new string'("John Warner Backus"), faction.goblin, attribute.wisdom, skill.sorcery, resource.gem),
|
||||
marina => (new string'("Marina Ann Hantzis"), faction.imp, attribute.reach, skill.necromancy, resource.gold)
|
||||
);
|
||||
|
||||
view_width : constant integer := 64;
|
||||
|
||||
@ -27,12 +27,12 @@ package construction is
|
||||
count : constant natural := enumeration'pos (enumeration'last) + 1;
|
||||
|
||||
description : constant array (enumeration) of definition := (
|
||||
house => (new string' ("Dwarf House"), faction.dwarf, (others => 0), 1, effect.none),
|
||||
cottage => (new string' ("Fairy Cottage"), faction.fairy, (others => 0), 1, effect.none),
|
||||
shack => (new string' ("Gnoll Shack"), faction.gnoll, (others => 0), 1, effect.none),
|
||||
homestead => (new string' ("Kobold Homestead"), faction.kobold, (others => 0), 1, effect.none),
|
||||
hut => (new string' ("Goblin Hut"), faction.goblin, (others => 0), 1, effect.none),
|
||||
den => (new string' ("Imp Den"), faction.imp, (others => 0), 1, effect.none)
|
||||
house => (new string'("Dwarf House"), faction.dwarf, (others => 0), 1, effect.none),
|
||||
cottage => (new string'("Fairy Cottage"), faction.fairy, (others => 0), 1, effect.none),
|
||||
shack => (new string'("Gnoll Shack"), faction.gnoll, (others => 0), 1, effect.none),
|
||||
homestead => (new string'("Kobold Homestead"), faction.kobold, (others => 0), 1, effect.none),
|
||||
hut => (new string'("Goblin Hut"), faction.goblin, (others => 0), 1, effect.none),
|
||||
den => (new string'("Imp Den"), faction.imp, (others => 0), 1, effect.none)
|
||||
);
|
||||
|
||||
sprite : array (enumeration) of core.sprite;
|
||||
|
||||
@ -29,16 +29,16 @@ package deity is
|
||||
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)
|
||||
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;
|
||||
|
||||
@ -43,7 +43,7 @@ package equipment is
|
||||
------------------------------------------------------------------------------------------
|
||||
|
||||
type definition is record
|
||||
name : access string := new string' ("--");
|
||||
name : access string := new string'("--");
|
||||
kind : slot := full_body;
|
||||
attributes : attribute.bonus := (others => 0);
|
||||
favor : faction.enumeration := faction.neutral;
|
||||
@ -57,142 +57,142 @@ package equipment is
|
||||
count : constant natural := enumeration'pos (enumeration'last) + 1;
|
||||
|
||||
description : constant array (enumeration) of definition := (
|
||||
none => (new string' ("--"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
golden_axe => (new string' ("Golden Axe"), main_hand, (2, 0, 0, 0, 0, 0), faction.fairy, effect.none),
|
||||
golden_battleaxe => (new string' ("Golden Battleaxe"), main_hand, (3, 0, 0, 0, 0, 0), faction.fairy, effect.none),
|
||||
golden_bow => (new string' ("Golden Bow"), main_hand, (1, 0, 0, 0, 0, 0), faction.fairy, effect.none),
|
||||
golden_greatsword => (new string' ("Golden Greatsword"), main_hand, (3, 0, 0, 0, 0, 0), faction.fairy, effect.none),
|
||||
golden_sword => (new string' ("Golden Sword"), main_hand, (2, 0, 0, 0, 0, 0), faction.fairy, effect.none),
|
||||
golden_shield => (new string' ("Golden Shield"), off_hand, (0, 3, 0, 0, 0, 0), faction.fairy, effect.none),
|
||||
golden_helmet => (new string' ("Golden Helmet"), head, (0, 2, 0, 0, 0, 0), faction.fairy, effect.none),
|
||||
golden_chestplate => (new string' ("Golden Chestplate"), chest, (0, 3, 0, 0, 0, 0), faction.fairy, effect.none),
|
||||
golden_gauntlets => (new string' ("Golden Gauntlets"), hands, (0, 1, 0, 0, 0, 0), faction.fairy, effect.none),
|
||||
golden_greaves => (new string' ("Golden Greaves"), feet, (0, 1, 0, 0, 0, 0), faction.fairy, effect.none),
|
||||
mithril_axe => (new string' ("Mithril Axe"), main_hand, (2, 0, 0, 0, 0, 0), faction.dwarf, effect.none),
|
||||
mithril_battleaxe => (new string' ("Mithril Battleaxe"), main_hand, (4, 0, 0, 0, 0, 0), faction.dwarf, effect.none),
|
||||
mithril_bow => (new string' ("Mithril Bow"), main_hand, (1, 0, 0, 0, 0, 0), faction.dwarf, effect.none),
|
||||
mithril_mace => (new string' ("Mithril Mace"), main_hand, (1, 0, 0, 0, 0, 0), faction.dwarf, effect.none),
|
||||
mithril_spear => (new string' ("Mithril Spear"), main_hand, (1, 0, 0, 0, 0, 0), faction.dwarf, effect.none),
|
||||
mithril_shield => (new string' ("Mithril Shield"), off_hand, (0, 4, 0, 0, 0, 0), faction.dwarf, effect.none),
|
||||
mithril_helmet => (new string' ("Mithril Helmet"), head, (0, 3, 0, 0, 0, 0), faction.dwarf, effect.none),
|
||||
mithril_chestplate => (new string' ("Mithril Chestplate"), chest, (0, 4, 0, 0, 0, 0), faction.dwarf, effect.none),
|
||||
mithril_gauntlets => (new string' ("Mithril Gauntlets"), hands, (0, 2, 0, 0, 0, 0), faction.dwarf, effect.none),
|
||||
mithril_greaves => (new string' ("Mithril Greaves"), feet, (0, 2, 0, 0, 0, 0), faction.dwarf, effect.none),
|
||||
iron_axe => (new string' ("Iron Axe"), main_hand, (2, 0, 0, 0, 0, 0), faction.gnoll, effect.none),
|
||||
iron_bow => (new string' ("Iron Bow"), main_hand, (1, 0, 0, 0, 0, 0), faction.gnoll, effect.none),
|
||||
iron_mace => (new string' ("Iron Mace"), main_hand, (2, 0, 0, 0, 0, 0), faction.gnoll, effect.none),
|
||||
iron_spear => (new string' ("Iron Spear"), main_hand, (1, 0, 0, 0, 0, 0), faction.gnoll, effect.none),
|
||||
iron_sword => (new string' ("Iron Sword"), main_hand, (2, 0, 0, 0, 0, 0), faction.gnoll, effect.none),
|
||||
iron_shield => (new string' ("Iron Shield"), off_hand, (0, 3, 0, 0, 0, 0), faction.gnoll, effect.none),
|
||||
iron_helmet => (new string' ("Iron Helmet"), head, (0, 2, 0, 0, 0, 0), faction.gnoll, effect.none),
|
||||
iron_chestplate => (new string' ("Iron Chestplate"), chest, (0, 3, 0, 0, 0, 0), faction.gnoll, effect.none),
|
||||
iron_gauntlets => (new string' ("Iron Gauntlets"), hands, (0, 1, 0, 0, 0, 0), faction.gnoll, effect.none),
|
||||
iron_greaves => (new string' ("Iron Greaves"), feet, (0, 1, 0, 0, 0, 0), faction.gnoll, effect.none),
|
||||
steel_battleaxe => (new string' ("Steel Battleaxe"), main_hand, (3, 0, 0, 0, 0, 0), faction.kobold, effect.none),
|
||||
steel_bow => (new string' ("Steel Bow"), main_hand, (1, 0, 0, 0, 0, 0), faction.kobold, effect.none),
|
||||
steel_greatsword => (new string' ("Steel Greatsword"), main_hand, (3, 0, 0, 0, 0, 0), faction.kobold, effect.none),
|
||||
steel_mace => (new string' ("Steel Mace"), main_hand, (2, 0, 0, 0, 0, 0), faction.kobold, effect.none),
|
||||
steel_sword => (new string' ("Steel Sword"), main_hand, (2, 0, 0, 0, 0, 0), faction.kobold, effect.none),
|
||||
steel_shield => (new string' ("Steel Shield"), off_hand, (0, 2, 0, 0, 0, 0), faction.kobold, effect.none),
|
||||
steel_helmet => (new string' ("Steel Helmet"), head, (0, 2, 0, 0, 0, 0), faction.kobold, effect.none),
|
||||
steel_chestplate => (new string' ("Steel Chestplate"), chest, (0, 3, 0, 0, 0, 0), faction.kobold, effect.none),
|
||||
steel_gauntlets => (new string' ("Steel Gauntlets"), hands, (0, 1, 0, 0, 0, 0), faction.kobold, effect.none),
|
||||
steel_greaves => (new string' ("Steel Greaves"), feet, (0, 1, 0, 0, 0, 0), faction.kobold, effect.none),
|
||||
bone_axe => (new string' ("Bone Axe"), main_hand, (1, 0, 0, 0, 0, 0), faction.goblin, effect.none),
|
||||
bone_battleaxe => (new string' ("Bone Battleaxe"), main_hand, (3, 0, 0, 0, 0, 0), faction.goblin, effect.none),
|
||||
bone_bow => (new string' ("Bone Bow"), main_hand, (1, 0, 0, 0, 0, 0), faction.goblin, effect.none),
|
||||
bone_mace => (new string' ("Bone Mace"), main_hand, (2, 0, 0, 0, 0, 0), faction.goblin, effect.none),
|
||||
bone_spear => (new string' ("Bone Spear"), main_hand, (1, 0, 0, 0, 0, 0), faction.goblin, effect.none),
|
||||
bone_sword => (new string' ("Bone Sword"), main_hand, (2, 0, 0, 0, 0, 0), faction.goblin, effect.none),
|
||||
bone_helmet => (new string' ("Bone Helmet"), head, (0, 2, 0, 0, 0, 0), faction.goblin, effect.none),
|
||||
bone_chestplate => (new string' ("Bone Chestplate"), chest, (0, 2, 0, 0, 1, 0), faction.goblin, effect.none),
|
||||
bone_gauntlets => (new string' ("Bone Gauntlets"), hands, (0, 1, 0, 0, 0, 0), faction.goblin, effect.none),
|
||||
bone_greaves => (new string' ("Bone Greaves"), feet, (0, 1, 0, 0, 0, 0), faction.goblin, effect.none),
|
||||
crystal_bow => (new string' ("Crystal Bow"), main_hand, (1, 0, 0, 0, 0, 0), faction.imp, effect.none),
|
||||
crystal_greatsword => (new string' ("Crystal Greatsword"), main_hand, (4, 0, 0, 0, 0, 0), faction.imp, effect.none),
|
||||
crystal_mace => (new string' ("Crystal Mace"), main_hand, (1, 0, 0, 0, 0, 0), faction.imp, effect.none),
|
||||
crystal_spear => (new string' ("Crystal Spear"), main_hand, (1, 0, 0, 0, 0, 0), faction.imp, effect.none),
|
||||
crystal_sword => (new string' ("Crystal Sword"), main_hand, (2, 0, 0, 0, 0, 0), faction.imp, effect.none),
|
||||
crystal_shield => (new string' ("Crystal Shield"), off_hand, (0, 3, 0, 0, 0, 0), faction.imp, effect.none),
|
||||
crystal_helmet => (new string' ("Crystal Helmet"), head, (0, 2, 0, 0, 0, 0), faction.imp, effect.none),
|
||||
crystal_chestplate => (new string' ("Crystal Chestplate"), chest, (0, 3, 0, 0, 0, 0), faction.imp, effect.none),
|
||||
crystal_gauntlets => (new string' ("Crystal Gauntlets"), hands, (0, 1, 0, 0, 0, 0), faction.imp, effect.none),
|
||||
crystal_greaves => (new string' ("Crystal Greaves"), feet, (0, 1, 0, 0, 0, 0), faction.imp, effect.none),
|
||||
human_helmet => (new string' ("Human Helmet"), head, (0, 3, 0, 0, 0, 0), faction.human, effect.none),
|
||||
human_armour => (new string' ("Human Armour"), chest, (0, 6, 0, 0, 0, 0), faction.human, effect.none),
|
||||
elven_helmet => (new string' ("Elven Helmet"), head, (0, 2, 0, 0, 0, 0), faction.elf, effect.none),
|
||||
elven_armour => (new string' ("Elven Armour"), chest, (0, 7, 0, 0, 0, 0), faction.elf, effect.none),
|
||||
orcish_helmet => (new string' ("Orcish Helmet"), head, (0, 4, 0, 0, 0, 0), faction.orc, effect.none),
|
||||
orcish_armour => (new string' ("Orcish Armour"), chest, (0, 5, 0, 0, 0, 0), faction.orc, effect.none),
|
||||
bronze_chestplate => (new string' ("Bronze Chestplate"), chest, (0, 2, 0, 0, 1, 0), faction.neutral, effect.none),
|
||||
chainmail_chestplate => (new string' ("Chainmail Chestplate"), chest, (0, 3, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
leather_chestplate => (new string' ("Leather Chestplate"), chest, (0, 2, 0, 0, 1, 0), faction.neutral, effect.none),
|
||||
bronze_greaves => (new string' ("Bronze Greaves"), feet, (0, 1, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
chainmail_greaves => (new string' ("Chainmail Greaves"), feet, (0, 1, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
leather_greaves => (new string' ("Leather Greaves"), feet, (0, 1, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
black_tunic => (new string' ("Black Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
blue_tunic => (new string' ("Blue Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
cyan_tunic => (new string' ("Cyan Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
green_tunic => (new string' ("Green Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
grey_tunic => (new string' ("Grey Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
lime_tunic => (new string' ("Lime Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
orange_tunic => (new string' ("Orange Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
pink_tunic => (new string' ("Pink Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
purple_tunic => (new string' ("Purple Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
red_tunic => (new string' ("Red Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
white_tunic => (new string' ("White Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
yellow_tunic => (new string' ("Yellow Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
bronze_gauntlets => (new string' ("Bronze Gauntlets"), hands, (0, 1, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
chainmail_gauntlets => (new string' ("Chainmail Gauntlets"), hands, (0, 1, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
leather_gauntlets => (new string' ("Leather Gauntlets"), hands, (0, 1, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
bronze_helmet => (new string' ("Bronze Helmet"), head, (0, 2, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
chainmail_helmet => (new string' ("Chainmail Helmet"), head, (0, 2, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
leather_helmet => (new string' ("Leather Helmet"), head, (0, 1, 0, 0, 1, 0), faction.neutral, effect.none),
|
||||
bronze_axe => (new string' ("Bronze Axe"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
bronze_greatsword => (new string' ("Bronze Greatsword"), main_hand, (3, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
bronze_mace => (new string' ("Bronze Mace"), main_hand, (2, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
bronze_spear => (new string' ("Bronze Spear"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
bronze_sword => (new string' ("Bronze Sword"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
club => (new string' ("Club"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
jade_axe => (new string' ("Jade Axe"), main_hand, (2, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
jade_battleaxe => (new string' ("Jade Battleaxe"), main_hand, (4, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
jade_greatsword => (new string' ("Jade Greatsword"), main_hand, (3, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
jade_mace => (new string' ("Jade Mace"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
jade_spear => (new string' ("Jade Spear"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
jade_sword => (new string' ("Jade Sword"), main_hand, (2, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
maul => (new string' ("Maul"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
sledge_hammer => (new string' ("Sledge Hammer"), main_hand, (2, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
spiked_club => (new string' ("Spiked Club"), main_hand, (2, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
spiked_staff => (new string' ("Spiked Staff"), main_hand, (2, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
staff => (new string' ("Staff"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
wooden_bow => (new string' ("Wooden Bow"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
wooden_greatsword => (new string' ("Wooden Greatsword"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
wooden_sword => (new string' ("Wooden Sword"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
golden_necklace => (new string' ("Golden Necklace"), neck, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
bronze_shield => (new string' ("Bronze Shield"), off_hand, (0, 2, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
wooden_shield => (new string' ("Wooden Shield"), off_hand, (0, 2, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
wooden_helmet => (new string' ("Wooden Helmet"), head, (0, 1, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
wooden_armour => (new string' ("Wooden Armour"), chest, (0, 1, 0, 0, 1, 0), faction.neutral, effect.none),
|
||||
fur_helmet => (new string' ("Fur Helmet"), head, (0, 1, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
fur_armour => (new string' ("Fur Armour"), chest, (0, 1, 0, 0, 1, 0), faction.neutral, effect.none),
|
||||
fur_greaves => (new string' ("Fur Greaves"), feet, (0, 1, 0, 0, 1, 0), faction.neutral, effect.none),
|
||||
fur_gauntlets => (new string' ("Fur Gauntlets"), hands, (0, 1, 0, 0, 1, 0), faction.neutral, effect.none),
|
||||
red_hood => (new string' ("Red Hood"), head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
white_hood => (new string' ("White Hood"), head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
black_robe => (new string' ("Black Robe"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
cyan_robe => (new string' ("Cyan Robe"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
lime_dress => (new string' ("Lime Dress"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
magenta_dress => (new string' ("Magenta Dress"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
orange_robe => (new string' ("Orange Robe"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
pink_dress => (new string' ("Pink Dress"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
red_robe => (new string' ("Red Robe"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
sexy_dress => (new string' ("Sexy Dress"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
white_robe => (new string' ("White Robe"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
lime_robe => (new string' ("Lime Robe"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
orange_hood => (new string' ("Orange Hood"), head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
black_hood => (new string' ("Black Hood"), head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
cyan_hood => (new string' ("Cyan Hood"), head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
lime_hood => (new string' ("Lime Hood"), head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none)
|
||||
none => (new string'("--"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
golden_axe => (new string'("Golden Axe"), main_hand, (2, 0, 0, 0, 0, 0), faction.fairy, effect.none),
|
||||
golden_battleaxe => (new string'("Golden Battleaxe"), main_hand, (3, 0, 0, 0, 0, 0), faction.fairy, effect.none),
|
||||
golden_bow => (new string'("Golden Bow"), main_hand, (1, 0, 0, 0, 0, 0), faction.fairy, effect.none),
|
||||
golden_greatsword => (new string'("Golden Greatsword"), main_hand, (3, 0, 0, 0, 0, 0), faction.fairy, effect.none),
|
||||
golden_sword => (new string'("Golden Sword"), main_hand, (2, 0, 0, 0, 0, 0), faction.fairy, effect.none),
|
||||
golden_shield => (new string'("Golden Shield"), off_hand, (0, 3, 0, 0, 0, 0), faction.fairy, effect.none),
|
||||
golden_helmet => (new string'("Golden Helmet"), head, (0, 2, 0, 0, 0, 0), faction.fairy, effect.none),
|
||||
golden_chestplate => (new string'("Golden Chestplate"), chest, (0, 3, 0, 0, 0, 0), faction.fairy, effect.none),
|
||||
golden_gauntlets => (new string'("Golden Gauntlets"), hands, (0, 1, 0, 0, 0, 0), faction.fairy, effect.none),
|
||||
golden_greaves => (new string'("Golden Greaves"), feet, (0, 1, 0, 0, 0, 0), faction.fairy, effect.none),
|
||||
mithril_axe => (new string'("Mithril Axe"), main_hand, (2, 0, 0, 0, 0, 0), faction.dwarf, effect.none),
|
||||
mithril_battleaxe => (new string'("Mithril Battleaxe"), main_hand, (4, 0, 0, 0, 0, 0), faction.dwarf, effect.none),
|
||||
mithril_bow => (new string'("Mithril Bow"), main_hand, (1, 0, 0, 0, 0, 0), faction.dwarf, effect.none),
|
||||
mithril_mace => (new string'("Mithril Mace"), main_hand, (1, 0, 0, 0, 0, 0), faction.dwarf, effect.none),
|
||||
mithril_spear => (new string'("Mithril Spear"), main_hand, (1, 0, 0, 0, 0, 0), faction.dwarf, effect.none),
|
||||
mithril_shield => (new string'("Mithril Shield"), off_hand, (0, 4, 0, 0, 0, 0), faction.dwarf, effect.none),
|
||||
mithril_helmet => (new string'("Mithril Helmet"), head, (0, 3, 0, 0, 0, 0), faction.dwarf, effect.none),
|
||||
mithril_chestplate => (new string'("Mithril Chestplate"), chest, (0, 4, 0, 0, 0, 0), faction.dwarf, effect.none),
|
||||
mithril_gauntlets => (new string'("Mithril Gauntlets"), hands, (0, 2, 0, 0, 0, 0), faction.dwarf, effect.none),
|
||||
mithril_greaves => (new string'("Mithril Greaves"), feet, (0, 2, 0, 0, 0, 0), faction.dwarf, effect.none),
|
||||
iron_axe => (new string'("Iron Axe"), main_hand, (2, 0, 0, 0, 0, 0), faction.gnoll, effect.none),
|
||||
iron_bow => (new string'("Iron Bow"), main_hand, (1, 0, 0, 0, 0, 0), faction.gnoll, effect.none),
|
||||
iron_mace => (new string'("Iron Mace"), main_hand, (2, 0, 0, 0, 0, 0), faction.gnoll, effect.none),
|
||||
iron_spear => (new string'("Iron Spear"), main_hand, (1, 0, 0, 0, 0, 0), faction.gnoll, effect.none),
|
||||
iron_sword => (new string'("Iron Sword"), main_hand, (2, 0, 0, 0, 0, 0), faction.gnoll, effect.none),
|
||||
iron_shield => (new string'("Iron Shield"), off_hand, (0, 3, 0, 0, 0, 0), faction.gnoll, effect.none),
|
||||
iron_helmet => (new string'("Iron Helmet"), head, (0, 2, 0, 0, 0, 0), faction.gnoll, effect.none),
|
||||
iron_chestplate => (new string'("Iron Chestplate"), chest, (0, 3, 0, 0, 0, 0), faction.gnoll, effect.none),
|
||||
iron_gauntlets => (new string'("Iron Gauntlets"), hands, (0, 1, 0, 0, 0, 0), faction.gnoll, effect.none),
|
||||
iron_greaves => (new string'("Iron Greaves"), feet, (0, 1, 0, 0, 0, 0), faction.gnoll, effect.none),
|
||||
steel_battleaxe => (new string'("Steel Battleaxe"), main_hand, (3, 0, 0, 0, 0, 0), faction.kobold, effect.none),
|
||||
steel_bow => (new string'("Steel Bow"), main_hand, (1, 0, 0, 0, 0, 0), faction.kobold, effect.none),
|
||||
steel_greatsword => (new string'("Steel Greatsword"), main_hand, (3, 0, 0, 0, 0, 0), faction.kobold, effect.none),
|
||||
steel_mace => (new string'("Steel Mace"), main_hand, (2, 0, 0, 0, 0, 0), faction.kobold, effect.none),
|
||||
steel_sword => (new string'("Steel Sword"), main_hand, (2, 0, 0, 0, 0, 0), faction.kobold, effect.none),
|
||||
steel_shield => (new string'("Steel Shield"), off_hand, (0, 2, 0, 0, 0, 0), faction.kobold, effect.none),
|
||||
steel_helmet => (new string'("Steel Helmet"), head, (0, 2, 0, 0, 0, 0), faction.kobold, effect.none),
|
||||
steel_chestplate => (new string'("Steel Chestplate"), chest, (0, 3, 0, 0, 0, 0), faction.kobold, effect.none),
|
||||
steel_gauntlets => (new string'("Steel Gauntlets"), hands, (0, 1, 0, 0, 0, 0), faction.kobold, effect.none),
|
||||
steel_greaves => (new string'("Steel Greaves"), feet, (0, 1, 0, 0, 0, 0), faction.kobold, effect.none),
|
||||
bone_axe => (new string'("Bone Axe"), main_hand, (1, 0, 0, 0, 0, 0), faction.goblin, effect.none),
|
||||
bone_battleaxe => (new string'("Bone Battleaxe"), main_hand, (3, 0, 0, 0, 0, 0), faction.goblin, effect.none),
|
||||
bone_bow => (new string'("Bone Bow"), main_hand, (1, 0, 0, 0, 0, 0), faction.goblin, effect.none),
|
||||
bone_mace => (new string'("Bone Mace"), main_hand, (2, 0, 0, 0, 0, 0), faction.goblin, effect.none),
|
||||
bone_spear => (new string'("Bone Spear"), main_hand, (1, 0, 0, 0, 0, 0), faction.goblin, effect.none),
|
||||
bone_sword => (new string'("Bone Sword"), main_hand, (2, 0, 0, 0, 0, 0), faction.goblin, effect.none),
|
||||
bone_helmet => (new string'("Bone Helmet"), head, (0, 2, 0, 0, 0, 0), faction.goblin, effect.none),
|
||||
bone_chestplate => (new string'("Bone Chestplate"), chest, (0, 2, 0, 0, 1, 0), faction.goblin, effect.none),
|
||||
bone_gauntlets => (new string'("Bone Gauntlets"), hands, (0, 1, 0, 0, 0, 0), faction.goblin, effect.none),
|
||||
bone_greaves => (new string'("Bone Greaves"), feet, (0, 1, 0, 0, 0, 0), faction.goblin, effect.none),
|
||||
crystal_bow => (new string'("Crystal Bow"), main_hand, (1, 0, 0, 0, 0, 0), faction.imp, effect.none),
|
||||
crystal_greatsword => (new string'("Crystal Greatsword"), main_hand, (4, 0, 0, 0, 0, 0), faction.imp, effect.none),
|
||||
crystal_mace => (new string'("Crystal Mace"), main_hand, (1, 0, 0, 0, 0, 0), faction.imp, effect.none),
|
||||
crystal_spear => (new string'("Crystal Spear"), main_hand, (1, 0, 0, 0, 0, 0), faction.imp, effect.none),
|
||||
crystal_sword => (new string'("Crystal Sword"), main_hand, (2, 0, 0, 0, 0, 0), faction.imp, effect.none),
|
||||
crystal_shield => (new string'("Crystal Shield"), off_hand, (0, 3, 0, 0, 0, 0), faction.imp, effect.none),
|
||||
crystal_helmet => (new string'("Crystal Helmet"), head, (0, 2, 0, 0, 0, 0), faction.imp, effect.none),
|
||||
crystal_chestplate => (new string'("Crystal Chestplate"), chest, (0, 3, 0, 0, 0, 0), faction.imp, effect.none),
|
||||
crystal_gauntlets => (new string'("Crystal Gauntlets"), hands, (0, 1, 0, 0, 0, 0), faction.imp, effect.none),
|
||||
crystal_greaves => (new string'("Crystal Greaves"), feet, (0, 1, 0, 0, 0, 0), faction.imp, effect.none),
|
||||
human_helmet => (new string'("Human Helmet"), head, (0, 3, 0, 0, 0, 0), faction.human, effect.none),
|
||||
human_armour => (new string'("Human Armour"), chest, (0, 6, 0, 0, 0, 0), faction.human, effect.none),
|
||||
elven_helmet => (new string'("Elven Helmet"), head, (0, 2, 0, 0, 0, 0), faction.elf, effect.none),
|
||||
elven_armour => (new string'("Elven Armour"), chest, (0, 7, 0, 0, 0, 0), faction.elf, effect.none),
|
||||
orcish_helmet => (new string'("Orcish Helmet"), head, (0, 4, 0, 0, 0, 0), faction.orc, effect.none),
|
||||
orcish_armour => (new string'("Orcish Armour"), chest, (0, 5, 0, 0, 0, 0), faction.orc, effect.none),
|
||||
bronze_axe => (new string'("Bronze Axe"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
bronze_greatsword => (new string'("Bronze Greatsword"), main_hand, (3, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
bronze_mace => (new string'("Bronze Mace"), main_hand, (2, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
bronze_spear => (new string'("Bronze Spear"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
bronze_sword => (new string'("Bronze Sword"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
bronze_shield => (new string'("Bronze Shield"), off_hand, (0, 2, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
bronze_helmet => (new string'("Bronze Helmet"), head, (0, 2, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
bronze_chestplate => (new string'("Bronze Chestplate"), chest, (0, 2, 0, 0, 1, 0), faction.neutral, effect.none),
|
||||
bronze_gauntlets => (new string'("Bronze Gauntlets"), hands, (0, 1, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
bronze_greaves => (new string'("Bronze Greaves"), feet, (0, 1, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
chainmail_helmet => (new string'("Chainmail Helmet"), head, (0, 2, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
chainmail_chestplate => (new string'("Chainmail Chestplate"), chest, (0, 3, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
chainmail_gauntlets => (new string'("Chainmail Gauntlets"), hands, (0, 1, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
chainmail_greaves => (new string'("Chainmail Greaves"), feet, (0, 1, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
leather_helmet => (new string'("Leather Helmet"), head, (0, 1, 0, 0, 1, 0), faction.neutral, effect.none),
|
||||
leather_chestplate => (new string'("Leather Chestplate"), chest, (0, 2, 0, 0, 1, 0), faction.neutral, effect.none),
|
||||
leather_gauntlets => (new string'("Leather Gauntlets"), hands, (0, 1, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
leather_greaves => (new string'("Leather Greaves"), feet, (0, 1, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
fur_helmet => (new string'("Fur Helmet"), head, (0, 1, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
fur_armour => (new string'("Fur Armour"), chest, (0, 1, 0, 0, 1, 0), faction.neutral, effect.none),
|
||||
fur_gauntlets => (new string'("Fur Gauntlets"), hands, (0, 1, 0, 0, 1, 0), faction.neutral, effect.none),
|
||||
fur_greaves => (new string'("Fur Greaves"), feet, (0, 1, 0, 0, 1, 0), faction.neutral, effect.none),
|
||||
wooden_sword => (new string'("Wooden Sword"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
wooden_greatsword => (new string'("Wooden Greatsword"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
wooden_bow => (new string'("Wooden Bow"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
wooden_shield => (new string'("Wooden Shield"), off_hand, (0, 2, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
wooden_helmet => (new string'("Wooden Helmet"), head, (0, 1, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
wooden_armour => (new string'("Wooden Armour"), chest, (0, 1, 0, 0, 1, 0), faction.neutral, effect.none),
|
||||
jade_axe => (new string'("Jade Axe"), main_hand, (2, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
jade_battleaxe => (new string'("Jade Battleaxe"), main_hand, (4, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
jade_greatsword => (new string'("Jade Greatsword"), main_hand, (3, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
jade_mace => (new string'("Jade Mace"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
jade_spear => (new string'("Jade Spear"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
jade_sword => (new string'("Jade Sword"), main_hand, (2, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
club => (new string'("Club"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
spiked_club => (new string'("Spiked Club"), main_hand, (2, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
staff => (new string'("Staff"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
spiked_staff => (new string'("Spiked Staff"), main_hand, (2, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
maul => (new string'("Maul"), main_hand, (1, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
sledge_hammer => (new string'("Sledge Hammer"), main_hand, (2, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
magenta_dress => (new string'("Magenta Dress"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
lime_dress => (new string'("Lime Dress"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
pink_dress => (new string'("Pink Dress"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
sexy_dress => (new string'("Sexy Dress"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
white_tunic => (new string'("White Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
grey_tunic => (new string'("Grey Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
black_tunic => (new string'("Black Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
red_tunic => (new string'("Red Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
green_tunic => (new string'("Green Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
blue_tunic => (new string'("Blue Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
cyan_tunic => (new string'("Cyan Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
pink_tunic => (new string'("Pink Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
yellow_tunic => (new string'("Yellow Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
lime_tunic => (new string'("Lime Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
orange_tunic => (new string'("Orange Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
purple_tunic => (new string'("Purple Tunic"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
white_robe => (new string'("White Robe"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
black_robe => (new string'("Black Robe"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
red_robe => (new string'("Red Robe"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
cyan_robe => (new string'("Cyan Robe"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
lime_robe => (new string'("Lime Robe"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
orange_robe => (new string'("Orange Robe"), full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
white_hood => (new string'("White Hood"), head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
black_hood => (new string'("Black Hood"), head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
red_hood => (new string'("Red Hood"), head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
cyan_hood => (new string'("Cyan Hood"), head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
orange_hood => (new string'("Orange Hood"), head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
lime_hood => (new string'("Lime Hood"), head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none),
|
||||
golden_necklace => (new string'("Golden Necklace"), neck, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none)
|
||||
);
|
||||
|
||||
sprite : array (enumeration) of core.sprite;
|
||||
|
||||
@ -27,16 +27,16 @@ package faction is
|
||||
count : constant natural := enumeration'pos (enumeration'last) + 1;
|
||||
|
||||
description : constant array (enumeration) of definition := (
|
||||
fairy => (new string' ("Fairy Kingdom"), attribute.speed, skill.mysticism, resource.gold),
|
||||
dwarf => (new string' ("Dwarf Kingdom"), attribute.defense, skill.estates, resource.stone),
|
||||
gnoll => (new string' ("Gnoll Kingdom"), attribute.stamina, skill.logistics, resource.leather),
|
||||
kobold => (new string' ("Kobold Kingdom"), attribute.offense, skill.tactics, resource.metal),
|
||||
goblin => (new string' ("Goblin Kingdom"), attribute.reach, skill.exploration, resource.wood),
|
||||
imp => (new string' ("Imp Kingdom"), attribute.wisdom, skill.sorcery, resource.gem),
|
||||
human => (new string' ("Fallen Human Empire"), attribute.wisdom, skill.estates, resource.gold),
|
||||
elf => (new string' ("Fallen Elf Empire"), attribute.wisdom, skill.estates, resource.gold),
|
||||
orc => (new string' ("Fallen Orc Empire"), attribute.wisdom, skill.estates, resource.gold),
|
||||
neutral => (new string' ("Neutral"), attribute.offense, skill.archery, resource.gold)
|
||||
fairy => (new string'("Fairy Kingdom"), attribute.speed, skill.mysticism, resource.gold),
|
||||
dwarf => (new string'("Dwarf Kingdom"), attribute.defense, skill.estates, resource.stone),
|
||||
gnoll => (new string'("Gnoll Kingdom"), attribute.stamina, skill.logistics, resource.leather),
|
||||
kobold => (new string'("Kobold Kingdom"), attribute.offense, skill.tactics, resource.metal),
|
||||
goblin => (new string'("Goblin Kingdom"), attribute.reach, skill.exploration, resource.wood),
|
||||
imp => (new string'("Imp Kingdom"), attribute.wisdom, skill.sorcery, resource.gem),
|
||||
human => (new string'("Fallen Human Empire"), attribute.wisdom, skill.estates, resource.gold),
|
||||
elf => (new string'("Fallen Elf Empire"), attribute.wisdom, skill.estates, resource.gold),
|
||||
orc => (new string'("Fallen Orc Empire"), attribute.wisdom, skill.estates, resource.gold),
|
||||
neutral => (new string'("Neutral"), attribute.offense, skill.archery, resource.gold)
|
||||
);
|
||||
|
||||
sprite : array (enumeration) of core.sprite;
|
||||
|
||||
@ -44,12 +44,12 @@ package magic is
|
||||
count : constant natural := enumeration'pos (enumeration'last) + 1;
|
||||
|
||||
description : constant array (enumeration) of definition := (
|
||||
arrow_storm => (new string' ("Arrow Storm"), air, 1, effect.none, new string' ("Arrow Storm increases the range of your ranged units.")),
|
||||
torment => (new string' ("Torment"), dark, 1, effect.none, new string' ("Torment causes targeted friend or foe to feel pain and shit.")),
|
||||
stone_armour => (new string' ("Stone Armour"), earth, 1, effect.none, new string' ("Stone Armour increases defense of selected unit.")),
|
||||
fireball => (new string' ("Fireball"), fire, 1, effect.none, new string' ("Fireball conjures a literal ball of fire that flies go brr.")),
|
||||
heal => (new string' ("Heal"), light, 1, effect.none, new string' ("Heal does what it says it will do, keeps the promise.")),
|
||||
ice_armour => (new string' ("Ice Armour"), water, 1, effect.none, new string' ("Ice Armour increases defense and stamina of selected unit."))
|
||||
arrow_storm => (new string'("Arrow Storm"), air, 1, effect.none, new string'("Arrow Storm increases the range of your ranged units.")),
|
||||
torment => (new string'("Torment"), dark, 1, effect.none, new string'("Torment causes targeted friend or foe to feel pain and shit.")),
|
||||
stone_armour => (new string'("Stone Armour"), earth, 1, effect.none, new string'("Stone Armour increases defense of selected unit.")),
|
||||
fireball => (new string'("Fireball"), fire, 1, effect.none, new string'("Fireball conjures a literal ball of fire that flies go brr.")),
|
||||
heal => (new string'("Heal"), light, 1, effect.none, new string'("Heal does what it says it will do, keeps the promise.")),
|
||||
ice_armour => (new string'("Ice Armour"), water, 1, effect.none, new string'("Ice Armour increases defense and stamina of selected unit."))
|
||||
);
|
||||
|
||||
view_width : constant natural := 64;
|
||||
|
||||
@ -63,10 +63,10 @@ procedure main is
|
||||
view_list : array (view) of boolean := (fullscreen => false, others => true);
|
||||
|
||||
view_text : constant array (view) of access string := (
|
||||
new string' ("Toggle map preview panel."),
|
||||
new string' ("Toggle status preview panel."),
|
||||
new string' ("Toggle text box panel."),
|
||||
new string' ("Toggle fullscreen or windowed mode.")
|
||||
new string'("Toggle map preview panel."),
|
||||
new string'("Toggle status preview panel."),
|
||||
new string'("Toggle text box panel."),
|
||||
new string'("Toggle fullscreen or windowed mode.")
|
||||
);
|
||||
|
||||
game_title : core.sprite;
|
||||
@ -78,29 +78,29 @@ procedure main is
|
||||
view_source_code : natural := 17;
|
||||
|
||||
source_code : constant array (0 .. 22) of access string := (
|
||||
new string' (core.folder & "/source/ai.adb"),
|
||||
new string' (core.folder & "/source/ai.ads"),
|
||||
new string' (core.folder & "/source/attribute.ads"),
|
||||
new string' (core.folder & "/source/chad.ads"),
|
||||
new string' (core.folder & "/source/construction.ads"),
|
||||
new string' (core.folder & "/source/core.adb"),
|
||||
new string' (core.folder & "/source/core.ads"),
|
||||
new string' (core.folder & "/source/deity.ads"),
|
||||
new string' (core.folder & "/source/effect.ads"),
|
||||
new string' (core.folder & "/source/equipment.ads"),
|
||||
new string' (core.folder & "/source/faction.ads"),
|
||||
new string' (core.folder & "/source/magic.ads"),
|
||||
new string' (core.folder & "/source/main.adb"),
|
||||
new string' (core.folder & "/source/material.ads"),
|
||||
new string' (core.folder & "/source/might.ads"),
|
||||
new string' (core.folder & "/source/ray.ads"),
|
||||
new string' (core.folder & "/source/resource.ads"),
|
||||
new string' (core.folder & "/source/skill.ads"),
|
||||
new string' (core.folder & "/source/ui.adb"),
|
||||
new string' (core.folder & "/source/ui.ads"),
|
||||
new string' (core.folder & "/source/unit.ads"),
|
||||
new string' (core.folder & "/source/world.adb"),
|
||||
new string' (core.folder & "/source/world.ads")
|
||||
new string'(core.folder & "/source/ai.adb"),
|
||||
new string'(core.folder & "/source/ai.ads"),
|
||||
new string'(core.folder & "/source/attribute.ads"),
|
||||
new string'(core.folder & "/source/chad.ads"),
|
||||
new string'(core.folder & "/source/construction.ads"),
|
||||
new string'(core.folder & "/source/core.adb"),
|
||||
new string'(core.folder & "/source/core.ads"),
|
||||
new string'(core.folder & "/source/deity.ads"),
|
||||
new string'(core.folder & "/source/effect.ads"),
|
||||
new string'(core.folder & "/source/equipment.ads"),
|
||||
new string'(core.folder & "/source/faction.ads"),
|
||||
new string'(core.folder & "/source/magic.ads"),
|
||||
new string'(core.folder & "/source/main.adb"),
|
||||
new string'(core.folder & "/source/material.ads"),
|
||||
new string'(core.folder & "/source/might.ads"),
|
||||
new string'(core.folder & "/source/ray.ads"),
|
||||
new string'(core.folder & "/source/resource.ads"),
|
||||
new string'(core.folder & "/source/skill.ads"),
|
||||
new string'(core.folder & "/source/ui.adb"),
|
||||
new string'(core.folder & "/source/ui.ads"),
|
||||
new string'(core.folder & "/source/unit.ads"),
|
||||
new string'(core.folder & "/source/world.adb"),
|
||||
new string'(core.folder & "/source/world.ads")
|
||||
);
|
||||
|
||||
side_panel : integer := 0;
|
||||
|
||||
@ -32,34 +32,34 @@ package material is
|
||||
default : constant points := (others => (1, 12));
|
||||
|
||||
description : constant array (enumeration) of definition := (
|
||||
sulphur => (new string' ("Sulphur"), 11),
|
||||
mercury => (new string' ("Mercury"), 13),
|
||||
mint => (new string' ("Mint"), 3),
|
||||
cinnamon => (new string' ("Cinnamon"), 5),
|
||||
apple => (new string' ("Apple"), 2),
|
||||
peach => (new string' ("Peach"), 2),
|
||||
pear => (new string' ("Pear"), 2),
|
||||
banana => (new string' ("Banana"), 3),
|
||||
orange => (new string' ("Orange"), 3),
|
||||
plum => (new string' ("Plum"), 3),
|
||||
cherry => (new string' ("Cherry"), 3),
|
||||
lemon => (new string' ("Lemon"), 2),
|
||||
potato => (new string' ("Potato"), 1),
|
||||
wheat => (new string' ("Wheat"), 1),
|
||||
carrot => (new string' ("Carrot"), 2),
|
||||
cucumber => (new string' ("Cucumber"), 3),
|
||||
onion => (new string' ("Onion"), 2),
|
||||
garlic => (new string' ("Garlic"), 2),
|
||||
eggplant => (new string' ("Eggplant"), 3),
|
||||
tomato => (new string' ("Tomato"), 2),
|
||||
meat => (new string' ("Meat"), 3),
|
||||
fish_meat => (new string' ("Fish Meat"), 2),
|
||||
skull => (new string' ("Skull"), 1),
|
||||
animal_skull => (new string' ("Animal Skull"), 1),
|
||||
bone => (new string' ("Bone"), 1),
|
||||
rib_cage => (new string' ("Rib Cage"), 1),
|
||||
animal_skin => (new string' ("Animal Skin"), 5),
|
||||
animal_fur => (new string' ("Animal Fur"), 7)
|
||||
sulphur => (new string'("Sulphur"), 11),
|
||||
mercury => (new string'("Mercury"), 13),
|
||||
mint => (new string'("Mint"), 3),
|
||||
cinnamon => (new string'("Cinnamon"), 5),
|
||||
apple => (new string'("Apple"), 2),
|
||||
peach => (new string'("Peach"), 2),
|
||||
pear => (new string'("Pear"), 2),
|
||||
banana => (new string'("Banana"), 3),
|
||||
orange => (new string'("Orange"), 3),
|
||||
plum => (new string'("Plum"), 3),
|
||||
cherry => (new string'("Cherry"), 3),
|
||||
lemon => (new string'("Lemon"), 2),
|
||||
potato => (new string'("Potato"), 1),
|
||||
wheat => (new string'("Wheat"), 1),
|
||||
carrot => (new string'("Carrot"), 2),
|
||||
cucumber => (new string'("Cucumber"), 3),
|
||||
onion => (new string'("Onion"), 2),
|
||||
garlic => (new string'("Garlic"), 2),
|
||||
eggplant => (new string'("Eggplant"), 3),
|
||||
tomato => (new string'("Tomato"), 2),
|
||||
meat => (new string'("Meat"), 3),
|
||||
fish_meat => (new string'("Fish Meat"), 2),
|
||||
skull => (new string'("Skull"), 1),
|
||||
animal_skull => (new string'("Animal Skull"), 1),
|
||||
bone => (new string'("Bone"), 1),
|
||||
rib_cage => (new string'("Rib Cage"), 1),
|
||||
animal_skin => (new string'("Animal Skin"), 5),
|
||||
animal_fur => (new string'("Animal Fur"), 7)
|
||||
);
|
||||
|
||||
icon : array (enumeration) of core.sprite;
|
||||
|
||||
@ -28,12 +28,12 @@ package resource is
|
||||
count : constant natural := enumeration'pos (enumeration'last) + 1;
|
||||
|
||||
description : constant array (enumeration) of definition := (
|
||||
gold => ((24, 480), new string' ("Gold"), new string' ("Gold is precious yellowish shiny metal, valued since ancient times.")),
|
||||
wood => ((12, 240), new string' ("Wood"), new string' ("Wood is just bundle of lignin and cellulose, nothing more.")),
|
||||
stone => ((12, 240), new string' ("Stone"), new string' ("Stone is essential building block for most constructions in this world.")),
|
||||
metal => ((12, 240), new string' ("Metal"), new string' ("Metal as a resource is mixture of commonly found metalic elements.")),
|
||||
leather => ((12, 240), new string' ("Leather"), new string' ("Leather is general purpose resource, used for armours and decorations.")),
|
||||
gem => ((12, 240), new string' ("Gem"), new string' ("Gem as a resource is same as metal, just mixture of various gems."))
|
||||
gold => ((24, 480), new string'("Gold"), new string'("Gold is precious yellowish shiny metal, valued since ancient times.")),
|
||||
wood => ((12, 240), new string'("Wood"), new string'("Wood is just bundle of lignin and cellulose, nothing more.")),
|
||||
stone => ((12, 240), new string'("Stone"), new string'("Stone is essential building block for most constructions in this world.")),
|
||||
metal => ((12, 240), new string'("Metal"), new string'("Metal as a resource is mixture of commonly found metalic elements.")),
|
||||
leather => ((12, 240), new string'("Leather"), new string'("Leather is general purpose resource, used for armours and decorations.")),
|
||||
gem => ((12, 240), new string'("Gem"), new string'("Gem as a resource is same as metal, just mixture of various gems."))
|
||||
);
|
||||
|
||||
icon : array (enumeration) of core.sprite;
|
||||
|
||||
@ -32,24 +32,24 @@ package skill is
|
||||
default : constant points := (others => (0, 24));
|
||||
|
||||
description : constant array (enumeration) of definition := (
|
||||
alchemy => ((0, 24), new string' ("Alchemy"), new string' ("Alchemy skill determines effectiveness of your vials and potions.")),
|
||||
archery => ((0, 24), new string' ("Archery"), new string' ("Archery skill determines effectiveness and range or your archers.")),
|
||||
architecture => ((0, 24), new string' ("Architecture"), new string' ("Architecture decreases time spent on building constructions.")),
|
||||
athletics => ((0, 24), new string' ("Athletics"), new string' ("Athletics increases movement speed of all your units, since they train.")),
|
||||
diplomacy => ((0, 24), new string' ("Diplomacy"), new string' ("Diplomacy helps you to avoid starting a battle you can't win.")),
|
||||
estates => ((0, 24), new string' ("Estates"), new string' ("Estates makes you the ultimate crypto-bro, establishing a blockchain.")),
|
||||
exploration => ((0, 24), new string' ("Exploration"), new string' ("Exploration is quite self-explanatory by its' name, seriously.")),
|
||||
leadership => ((0, 24), new string' ("Leadership"), new string' ("Leadership is the default skill for any true chad, like God intended.")),
|
||||
logistics => ((0, 24), new string' ("Logistics"), new string' ("Logistics is a nightmare in real life, but this is only a game.")),
|
||||
medicine => ((0, 24), new string' ("Medicine"), new string' ("Medicine skill makes you swallow pills like a kid in a drugstore.")),
|
||||
mercantile => ((0, 24), new string' ("Mercantile"), new string' ("Mercantile is the skill of any true-born nosy person, otherwise useless.")),
|
||||
mysticism => ((0, 24), new string' ("Mysticism"), new string' ("Mysticism allows you to have 60 cats, drink wine and talk weird.")),
|
||||
necromancy => ((0, 24), new string' ("Necromancy"), new string' ("Necromancy lets you not to waste the bones after every battle.")),
|
||||
resistance => ((0, 24), new string' ("Resistence"), new string' ("Resistence skill increases defense points of all your units slightly.")),
|
||||
skirmish => ((0, 24), new string' ("Skirmish"), new string' ("Skirmish makes your units go berserk when they have little health left.")),
|
||||
sorcery => ((0, 24), new string' ("Sorcery"), new string' ("Sorcery skill is appropriately named useless skill to have in real life.")),
|
||||
tactics => ((0, 24), new string' ("Tactics"), new string' ("Tactics is the opposite of skirmish, master it and lose in every battle.")),
|
||||
thaumaturgy => ((0, 24), new string' ("Thaumaturgy"), new string' ("Thaumaturgy lets you do nothing, and hope that the best will happen."))
|
||||
alchemy => ((0, 24), new string'("Alchemy"), new string'("Alchemy skill determines effectiveness of your vials and potions.")),
|
||||
archery => ((0, 24), new string'("Archery"), new string'("Archery skill determines effectiveness and range or your archers.")),
|
||||
architecture => ((0, 24), new string'("Architecture"), new string'("Architecture decreases time spent on building constructions.")),
|
||||
athletics => ((0, 24), new string'("Athletics"), new string'("Athletics increases movement speed of all your units, since they train.")),
|
||||
diplomacy => ((0, 24), new string'("Diplomacy"), new string'("Diplomacy helps you to avoid starting a battle you can't win.")),
|
||||
estates => ((0, 24), new string'("Estates"), new string'("Estates makes you the ultimate crypto-bro, establishing a blockchain.")),
|
||||
exploration => ((0, 24), new string'("Exploration"), new string'("Exploration is quite self-explanatory by its' name, seriously.")),
|
||||
leadership => ((0, 24), new string'("Leadership"), new string'("Leadership is the default skill for any true chad, like God intended.")),
|
||||
logistics => ((0, 24), new string'("Logistics"), new string'("Logistics is a nightmare in real life, but this is only a game.")),
|
||||
medicine => ((0, 24), new string'("Medicine"), new string'("Medicine skill makes you swallow pills like a kid in a drugstore.")),
|
||||
mercantile => ((0, 24), new string'("Mercantile"), new string'("Mercantile is the skill of any true-born nosy person, otherwise useless.")),
|
||||
mysticism => ((0, 24), new string'("Mysticism"), new string'("Mysticism allows you to have 60 cats, drink wine and talk weird.")),
|
||||
necromancy => ((0, 24), new string'("Necromancy"), new string'("Necromancy lets you not to waste the bones after every battle.")),
|
||||
resistance => ((0, 24), new string'("Resistence"), new string'("Resistence skill increases defense points of all your units slightly.")),
|
||||
skirmish => ((0, 24), new string'("Skirmish"), new string'("Skirmish makes your units go berserk when they have little health left.")),
|
||||
sorcery => ((0, 24), new string'("Sorcery"), new string'("Sorcery skill is appropriately named useless skill to have in real life.")),
|
||||
tactics => ((0, 24), new string'("Tactics"), new string'("Tactics is the opposite of skirmish, master it and lose in every battle.")),
|
||||
thaumaturgy => ((0, 24), new string'("Thaumaturgy"), new string'("Thaumaturgy lets you do nothing, and hope that the best will happen."))
|
||||
);
|
||||
|
||||
icon : array (enumeration) of core.sprite;
|
||||
|
||||
224
source/world.ads
224
source/world.ads
@ -81,130 +81,130 @@ package world is
|
||||
location_count : constant natural := location_index'pos (location_index'last) + 1;
|
||||
|
||||
landmark_description : constant array (landmark_index) of landmark_stats := (
|
||||
dead_tree => (new string' ("Dead Tree"), ash, true, 1),
|
||||
mossy_rock => (new string' ("Mossy Rock"), swamp, true, 1),
|
||||
palm_tree => (new string' ("Palm Tree"), sand, true, 4),
|
||||
pine_tree => (new string' ("Pine Tree"), grass, true, 4),
|
||||
pine_forest => (new string' ("Pine Forest"), grass, true, 4),
|
||||
reeds => (new string' ("Reeds"), swamp, false, 4),
|
||||
rock => (new string' ("Rock"), sand, true, 1),
|
||||
snowed_pine_tree => (new string' ("Snowed Pine Tree"), snow, true, 4),
|
||||
snowed_rock => (new string' ("Snowed Rock"), snow, true, 1),
|
||||
spiky_rock => (new string' ("Spiky Rock"), ash, true, 1),
|
||||
wooden_sign => (new string' ("Wooden Sign"), grass, false, 1),
|
||||
wooden_arrow_sign => (new string' ("Wooden Arrow Sign"), grass, false, 1),
|
||||
rune_stone => (new string' ("Rune Stone"), grass, true, 4),
|
||||
snowed_rune_stone => (new string' ("Snowed Rune Stone"), snow, true, 1),
|
||||
mossy_rune_stone => (new string' ("Mossy Rune Stone"), swamp, true, 4),
|
||||
snowed_pine_forest => (new string' ("Snowed Pine Forest"), snow, true, 4),
|
||||
hyacinths => (new string' ("Hyacinths"), grass, false, 1),
|
||||
orchids => (new string' ("Orchids"), grass, false, 1),
|
||||
asters => (new string' ("Asters"), grass, false, 1),
|
||||
daffodils => (new string' ("Daffodils"), grass, false, 1),
|
||||
royal_grave => (new string' ("Royal Grave"), ash, true, 1),
|
||||
grave => (new string' ("Grave"), ash, true, 1),
|
||||
humble_grave => (new string' ("Humble Grave"), ash, true, 1),
|
||||
wooden_wide_sign => (new string' ("Wooden Wide Sign"), grass, false, 1),
|
||||
birch_tree => (new string' ("Birch Tree"), grass, true, 4),
|
||||
fir_tree => (new string' ("Fir Tree"), grass, true, 4),
|
||||
oak_tree => (new string' ("Oak Tree"), grass, true, 4),
|
||||
old_willow_tree => (new string' ("Old Willow Tree"), swamp, true, 4)
|
||||
dead_tree => (new string'("Dead Tree"), ash, true, 1),
|
||||
mossy_rock => (new string'("Mossy Rock"), swamp, true, 1),
|
||||
palm_tree => (new string'("Palm Tree"), sand, true, 4),
|
||||
pine_tree => (new string'("Pine Tree"), grass, true, 4),
|
||||
pine_forest => (new string'("Pine Forest"), grass, true, 4),
|
||||
reeds => (new string'("Reeds"), swamp, false, 4),
|
||||
rock => (new string'("Rock"), sand, true, 1),
|
||||
snowed_pine_tree => (new string'("Snowed Pine Tree"), snow, true, 4),
|
||||
snowed_rock => (new string'("Snowed Rock"), snow, true, 1),
|
||||
spiky_rock => (new string'("Spiky Rock"), ash, true, 1),
|
||||
wooden_sign => (new string'("Wooden Sign"), grass, false, 1),
|
||||
wooden_arrow_sign => (new string'("Wooden Arrow Sign"), grass, false, 1),
|
||||
rune_stone => (new string'("Rune Stone"), grass, true, 4),
|
||||
snowed_rune_stone => (new string'("Snowed Rune Stone"), snow, true, 1),
|
||||
mossy_rune_stone => (new string'("Mossy Rune Stone"), swamp, true, 4),
|
||||
snowed_pine_forest => (new string'("Snowed Pine Forest"), snow, true, 4),
|
||||
hyacinths => (new string'("Hyacinths"), grass, false, 1),
|
||||
orchids => (new string'("Orchids"), grass, false, 1),
|
||||
asters => (new string'("Asters"), grass, false, 1),
|
||||
daffodils => (new string'("Daffodils"), grass, false, 1),
|
||||
royal_grave => (new string'("Royal Grave"), ash, true, 1),
|
||||
grave => (new string'("Grave"), ash, true, 1),
|
||||
humble_grave => (new string'("Humble Grave"), ash, true, 1),
|
||||
wooden_wide_sign => (new string'("Wooden Wide Sign"), grass, false, 1),
|
||||
birch_tree => (new string'("Birch Tree"), grass, true, 4),
|
||||
fir_tree => (new string'("Fir Tree"), grass, true, 4),
|
||||
oak_tree => (new string'("Oak Tree"), grass, true, 4),
|
||||
old_willow_tree => (new string'("Old Willow Tree"), swamp, true, 4)
|
||||
);
|
||||
|
||||
location_description : constant array (location_index) of location_stats := (
|
||||
well_of_agility => (new string' ("Well of Agility"), true, 4, 3, (effect.modify_attribute, attribute.enumeration'pos (attribute.speed), 2, false, 0)),
|
||||
well_of_knowledge => (new string' ("Well of Knowledge"), true, 4, 3, (effect.modify_attribute, attribute.enumeration'pos (attribute.wisdom), 2, false, 0)),
|
||||
well_of_strength => (new string' ("Well of Strength"), true, 4, 3, (effect.modify_attribute, attribute.enumeration'pos (attribute.offense), 2, false, 0)),
|
||||
old_dwarven_grave => (new string' ("Old Dwarven Grave"), true, 1, 3, (effect.modify_attribute, attribute.enumeration'pos (attribute.defense), 1, false, 0)),
|
||||
huge_ancient_urn => (new string' ("Huge Ancient Urn"), true, 1, 3, (effect.modify_attribute, attribute.enumeration'pos (attribute.offense), 1, false, 0)),
|
||||
banana_tree => (new string' ("Banana Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.banana), 4, true, 600)),
|
||||
apple_tree => (new string' ("Apple Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.apple), 6, true, 600)),
|
||||
cherry_tree => (new string' ("Cherry Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.cherry), 6, true, 600)),
|
||||
lemon_tree => (new string' ("Lemon Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.lemon), 6, true, 600)),
|
||||
orange_tree => (new string' ("Orange Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.orange), 6, true, 600)),
|
||||
pear_tree => (new string' ("Pear Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.pear), 6, true, 600)),
|
||||
peach_tree => (new string' ("Peach Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.peach), 6, true, 600)),
|
||||
plum_tree => (new string' ("Plum Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.plum), 6, true, 600))
|
||||
well_of_agility => (new string'("Well of Agility"), true, 4, 3, (effect.modify_attribute, attribute.enumeration'pos (attribute.speed), 2, false, 0)),
|
||||
well_of_knowledge => (new string'("Well of Knowledge"), true, 4, 3, (effect.modify_attribute, attribute.enumeration'pos (attribute.wisdom), 2, false, 0)),
|
||||
well_of_strength => (new string'("Well of Strength"), true, 4, 3, (effect.modify_attribute, attribute.enumeration'pos (attribute.offense), 2, false, 0)),
|
||||
old_dwarven_grave => (new string'("Old Dwarven Grave"), true, 1, 3, (effect.modify_attribute, attribute.enumeration'pos (attribute.defense), 1, false, 0)),
|
||||
huge_ancient_urn => (new string'("Huge Ancient Urn"), true, 1, 3, (effect.modify_attribute, attribute.enumeration'pos (attribute.offense), 1, false, 0)),
|
||||
banana_tree => (new string'("Banana Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.banana), 4, true, 600)),
|
||||
apple_tree => (new string'("Apple Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.apple), 6, true, 600)),
|
||||
cherry_tree => (new string'("Cherry Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.cherry), 6, true, 600)),
|
||||
lemon_tree => (new string'("Lemon Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.lemon), 6, true, 600)),
|
||||
orange_tree => (new string'("Orange Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.orange), 6, true, 600)),
|
||||
pear_tree => (new string'("Pear Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.pear), 6, true, 600)),
|
||||
peach_tree => (new string'("Peach Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.peach), 6, true, 600)),
|
||||
plum_tree => (new string'("Plum Tree"), true, 4, 3, (effect.modify_material, material.enumeration'pos (material.plum), 6, true, 600))
|
||||
);
|
||||
|
||||
month_name : constant array (1 .. 12) of access string := (
|
||||
new string' ("I <> Month of Red-Haired Goddess"),
|
||||
new string' ("II <> Month of Xorana"),
|
||||
new string' ("III <> Month of Heneal"),
|
||||
new string' ("IV <> Month of Evelor"),
|
||||
new string' ("V <> Month of Orohan"),
|
||||
new string' ("VI <> Month of Aezora"),
|
||||
new string' ("VII <> Month of Mitena"),
|
||||
new string' ("VIII <> Month of Sheila"),
|
||||
new string' ("IX <> Month of Iliona"),
|
||||
new string' ("X <> Month of Uldrae"),
|
||||
new string' ("XI <> Month of Kanako"),
|
||||
new string' ("XII <> Month of Time-Rebirth")
|
||||
new string'("I <> Month of Red-Haired Goddess"),
|
||||
new string'("II <> Month of Xorana"),
|
||||
new string'("III <> Month of Heneal"),
|
||||
new string'("IV <> Month of Evelor"),
|
||||
new string'("V <> Month of Orohan"),
|
||||
new string'("VI <> Month of Aezora"),
|
||||
new string'("VII <> Month of Mitena"),
|
||||
new string'("VIII <> Month of Sheila"),
|
||||
new string'("IX <> Month of Iliona"),
|
||||
new string'("X <> Month of Uldrae"),
|
||||
new string'("XI <> Month of Kanako"),
|
||||
new string'("XII <> Month of Time-Rebirth")
|
||||
);
|
||||
|
||||
week_name : constant array (1 .. 52) of access string := (
|
||||
new string' ("I <> Week of Miners"),
|
||||
new string' ("II <> Week of Flora"),
|
||||
new string' ("III <> Week of Alchemists"),
|
||||
new string' ("IV <> Week of Shape"),
|
||||
new string' ("V <> Week of Sword"),
|
||||
new string' ("VI <> Week of Necromancers"),
|
||||
new string' ("VII <> Week of Fauna"),
|
||||
new string' ("VIII <> Week of --"),
|
||||
new string' ("IX <> Week of Guards"),
|
||||
new string' ("X <> Week of Blacksmiths"),
|
||||
new string' ("XI <> Week of Archers"),
|
||||
new string' ("XII <> Week of --"),
|
||||
new string' ("XIII <> Week of Sound"),
|
||||
new string' ("XIV <> Week of Water"),
|
||||
new string' ("XV <> Week of Bankers"),
|
||||
new string' ("XVI <> Week of --"),
|
||||
new string' ("XVII <> Week of --"),
|
||||
new string' ("XVIII <> Week of Thaumaturgs"),
|
||||
new string' ("XIX <> Week of Stonecutters"),
|
||||
new string' ("XX <> Week of --"),
|
||||
new string' ("XXI <> Week of --"),
|
||||
new string' ("XXII <> Week of Logic"),
|
||||
new string' ("XXIII <> Week of Mystics"),
|
||||
new string' ("XXIV <> Week of Diplomats"),
|
||||
new string' ("XXV <> Week of Boots"),
|
||||
new string' ("XXVI <> Week of Shield"),
|
||||
new string' ("XXVII <> Week of Advisors"),
|
||||
new string' ("XXVIII <> Week of Architects"),
|
||||
new string' ("XXIX <> Week of Flame"),
|
||||
new string' ("XXX <> Week of Value"),
|
||||
new string' ("XXXI <> Week of Healers"),
|
||||
new string' ("XXXII <> Week of Spear"),
|
||||
new string' ("XXXIII <> Week of --"),
|
||||
new string' ("XXXIV <> Week of Leaders"),
|
||||
new string' ("XXXV <> Week of Skirmishers"),
|
||||
new string' ("XXXVI <> Week of Lubmerjacks"),
|
||||
new string' ("XXXVII <> Week of Pathfinders"),
|
||||
new string' ("XXXVIII <> Week of --"),
|
||||
new string' ("XXXIX <> Week of --"),
|
||||
new string' ("XL <> Week of Helmet"),
|
||||
new string' ("XLI <> Week of Leatherers"),
|
||||
new string' ("XLII <> Week of --"),
|
||||
new string' ("XLIII <> Week of --"),
|
||||
new string' ("XLIV <> Week of Sorcerers"),
|
||||
new string' ("XLV <> Week of Gloves"),
|
||||
new string' ("XLVI <> Week of Earth"),
|
||||
new string' ("XLVII <> Week of Explorers"),
|
||||
new string' ("XLVIII <> Week of --"),
|
||||
new string' ("XLIX <> Week of Strategists"),
|
||||
new string' ("L <> Week of Gemologists"),
|
||||
new string' ("LI <> Week of Merchants"),
|
||||
new string' ("LII <> Week of World")
|
||||
new string'("I <> Week of Miners"),
|
||||
new string'("II <> Week of Flora"),
|
||||
new string'("III <> Week of Alchemists"),
|
||||
new string'("IV <> Week of Shape"),
|
||||
new string'("V <> Week of Sword"),
|
||||
new string'("VI <> Week of Necromancers"),
|
||||
new string'("VII <> Week of Fauna"),
|
||||
new string'("VIII <> Week of --"),
|
||||
new string'("IX <> Week of Guards"),
|
||||
new string'("X <> Week of Blacksmiths"),
|
||||
new string'("XI <> Week of Archers"),
|
||||
new string'("XII <> Week of --"),
|
||||
new string'("XIII <> Week of Sound"),
|
||||
new string'("XIV <> Week of Water"),
|
||||
new string'("XV <> Week of Bankers"),
|
||||
new string'("XVI <> Week of --"),
|
||||
new string'("XVII <> Week of --"),
|
||||
new string'("XVIII <> Week of Thaumaturgs"),
|
||||
new string'("XIX <> Week of Stonecutters"),
|
||||
new string'("XX <> Week of --"),
|
||||
new string'("XXI <> Week of --"),
|
||||
new string'("XXII <> Week of Logic"),
|
||||
new string'("XXIII <> Week of Mystics"),
|
||||
new string'("XXIV <> Week of Diplomats"),
|
||||
new string'("XXV <> Week of Boots"),
|
||||
new string'("XXVI <> Week of Shield"),
|
||||
new string'("XXVII <> Week of Advisors"),
|
||||
new string'("XXVIII <> Week of Architects"),
|
||||
new string'("XXIX <> Week of Flame"),
|
||||
new string'("XXX <> Week of Value"),
|
||||
new string'("XXXI <> Week of Healers"),
|
||||
new string'("XXXII <> Week of Spear"),
|
||||
new string'("XXXIII <> Week of --"),
|
||||
new string'("XXXIV <> Week of Leaders"),
|
||||
new string'("XXXV <> Week of Skirmishers"),
|
||||
new string'("XXXVI <> Week of Lubmerjacks"),
|
||||
new string'("XXXVII <> Week of Pathfinders"),
|
||||
new string'("XXXVIII <> Week of --"),
|
||||
new string'("XXXIX <> Week of --"),
|
||||
new string'("XL <> Week of Helmet"),
|
||||
new string'("XLI <> Week of Leatherers"),
|
||||
new string'("XLII <> Week of --"),
|
||||
new string'("XLIII <> Week of --"),
|
||||
new string'("XLIV <> Week of Sorcerers"),
|
||||
new string'("XLV <> Week of Gloves"),
|
||||
new string'("XLVI <> Week of Earth"),
|
||||
new string'("XLVII <> Week of Explorers"),
|
||||
new string'("XLVIII <> Week of --"),
|
||||
new string'("XLIX <> Week of Strategists"),
|
||||
new string'("L <> Week of Gemologists"),
|
||||
new string'("LI <> Week of Merchants"),
|
||||
new string'("LII <> Week of World")
|
||||
);
|
||||
|
||||
day_name : constant array (1 .. 7) of access string := (
|
||||
new string' ("I <> Day of Sun"),
|
||||
new string' ("II <> Day of Mother-Moon"),
|
||||
new string' ("III <> Day of Daughter-Moon"),
|
||||
new string' ("IV <> Day of All-Earth"),
|
||||
new string' ("V <> Day of All-Water"),
|
||||
new string' ("VI <> Day of All-Sky"),
|
||||
new string' ("VII <> Day of Deities")
|
||||
new string'("I <> Day of Sun"),
|
||||
new string'("II <> Day of Mother-Moon"),
|
||||
new string'("III <> Day of Daughter-Moon"),
|
||||
new string'("IV <> Day of All-Earth"),
|
||||
new string'("V <> Day of All-Water"),
|
||||
new string'("VI <> Day of All-Sky"),
|
||||
new string'("VII <> Day of Deities")
|
||||
);
|
||||
|
||||
map : definition;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user