From dc6084ec6db13e3c1572b5c31470ff780b6dcdf9 Mon Sep 17 00:00:00 2001 From: xolatile Date: Wed, 5 Jun 2024 07:55:45 -0400 Subject: [PATCH] Finished Equipment package and minor style refactoring... --- source/attribute.ads | 12 +-- source/chad.ads | 12 +-- source/construction.ads | 12 +-- source/deity.ads | 20 ++-- source/equipment.ads | 274 ++++++++++++++++++++++++------------------------ source/faction.ads | 20 ++-- source/magic.ads | 12 +-- source/main.adb | 54 +++++----- source/material.ads | 56 +++++----- source/resource.ads | 12 +-- source/skill.ads | 36 +++---- source/world.ads | 224 +++++++++++++++++++-------------------- 12 files changed, 372 insertions(+), 372 deletions(-) diff --git a/source/attribute.ads b/source/attribute.ads index 5d48470..d6af280 100644 --- a/source/attribute.ads +++ b/source/attribute.ads @@ -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; diff --git a/source/chad.ads b/source/chad.ads index c822619..6ddd06d 100644 --- a/source/chad.ads +++ b/source/chad.ads @@ -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; diff --git a/source/construction.ads b/source/construction.ads index d19dc73..b3a8fa8 100644 --- a/source/construction.ads +++ b/source/construction.ads @@ -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; diff --git a/source/deity.ads b/source/deity.ads index ac6700b..01a47b4 100644 --- a/source/deity.ads +++ b/source/deity.ads @@ -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; diff --git a/source/equipment.ads b/source/equipment.ads index 18468cb..88e4c71 100644 --- a/source/equipment.ads +++ b/source/equipment.ads @@ -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; diff --git a/source/faction.ads b/source/faction.ads index f9ae5c4..911cb47 100644 --- a/source/faction.ads +++ b/source/faction.ads @@ -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; diff --git a/source/magic.ads b/source/magic.ads index 67d8be8..83ec81c 100644 --- a/source/magic.ads +++ b/source/magic.ads @@ -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; diff --git a/source/main.adb b/source/main.adb index 95f732a..b44028a 100644 --- a/source/main.adb +++ b/source/main.adb @@ -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; diff --git a/source/material.ads b/source/material.ads index ece10d5..fc3234e 100644 --- a/source/material.ads +++ b/source/material.ads @@ -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; diff --git a/source/resource.ads b/source/resource.ads index 8e3e3e9..b314328 100644 --- a/source/resource.ads +++ b/source/resource.ads @@ -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; diff --git a/source/skill.ads b/source/skill.ads index 79c7be2..db855ab 100644 --- a/source/skill.ads +++ b/source/skill.ads @@ -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; diff --git a/source/world.ads b/source/world.ads index 732d1a7..0941952 100644 --- a/source/world.ads +++ b/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;