From 48ff5347a8dad53473a6bee7c08616085b3a3b9c Mon Sep 17 00:00:00 2001 From: xolatile Date: Sat, 1 Jun 2024 15:36:15 -0400 Subject: [PATCH] Equipment unstringing... --- source/attribute.adb | 4 +- source/chad.adb | 2 +- source/equipment.adb | 150 ++++++++++++++++++++++++++++++++++++++++++++++++++- source/equipment.ads | 146 ++----------------------------------------------- source/resource.adb | 4 +- source/skill.adb | 4 +- 6 files changed, 160 insertions(+), 150 deletions(-) diff --git a/source/attribute.adb b/source/attribute.adb index dcff157..1e0ca80 100644 --- a/source/attribute.adb +++ b/source/attribute.adb @@ -18,6 +18,8 @@ package body attribute is -- structure : ui.structure; begin + core.echo (core.comment, "Configuring attribute components..."); + -- define (offense, 1, 12, "Offense", "Offense attribute determines your damage modifier when attacking."); define (defense, 1, 12, "Defense", "D-FENS attribute determines how much damage your reflect and receive."); define (wisdom, 1, 12, "Wisdom", "Wisdom attribute determines how much mana your chad has."); @@ -25,8 +27,6 @@ package body attribute is define (speed, 1, 12, "Speed", "Speed attribute determines how far you can walk per turn."); define (reach, 1, 12, "Reach", "Reach attribute determines your range modifier when shooting or casting."); -- - core.echo (core.comment, "Configuring attribute components..."); - -- structure.title := "Attribute Menu "; structure.toggle := core.signal_a; structure.show := false; diff --git a/source/chad.adb b/source/chad.adb index 4295b3f..e5267f4 100644 --- a/source/chad.adb +++ b/source/chad.adb @@ -81,7 +81,7 @@ package body chad is for index_y in 0 .. 3 loop for index_x in 0 .. 5 loop ui.draw_icon (data => equipment.icon (player.items (6 * index_y + index_x)), - text => equipment.description (player.items (6 * index_y + index_x)).name, + text => core.bound (equipment.description (player.items (6 * index_y + index_x)).name), x => x + index_x * core.icon, y => y + 96 + 4 * offset + 2 * core.icon + index_y * core.icon); end loop; diff --git a/source/equipment.adb b/source/equipment.adb index 8619229..b47342c 100644 --- a/source/equipment.adb +++ b/source/equipment.adb @@ -14,9 +14,157 @@ package body equipment is ------------------------------------------------------------------------------------------ procedure configure is + procedure define (index : in enumeration; name : in string; kind : in slot; + attributes : in attribute.bonus := (others => 0); + favor : in faction.enumeration := faction.neutral; + evoke : in effect.information := effect.none) is + begin + description (index).name := core.unbound (name); + description (index).kind := kind; + description (index).attributes := attributes; + description (index).favor := favor; + description (index).evoke := evoke; + end define; begin core.echo (core.comment, "Configuring equipment components..."); -- + define (none, "--", full_body); + define (bone_chestplate, "Bone Chestplate", chest); + define (bronze_chestplate, "Bronze Chestplate", chest); + define (chainmail_chestplate, "Chainmail Chestplate", chest); + define (crystal_chestplate, "Crystal Chestplate", chest); + define (golden_chestplate, "Golden Chestplate", chest); + define (iron_chestplate, "Iron Chestplate", chest); + define (leather_chestplate, "Leather Chestplate", chest); + define (mithril_chestplate, "Mithril Chestplate", chest); + define (steel_chestplate, "Steel Chestplate", chest); + define (bone_greaves, "Bone Greaves", feet); + define (bronze_greaves, "Bronze Greaves", feet); + define (chainmail_greaves, "Chainmail Greaves", feet); + define (crystal_greaves, "Crystal Greaves", feet); + define (golden_greaves, "Golden Greaves", feet); + define (iron_greaves, "Iron Greaves", feet); + define (leather_greaves, "Leather Greaves", feet); + define (mithril_greaves, "Mithril Greaves", feet); + define (steel_greaves, "Steel Greaves", feet); + define (black_tunic, "Black Tunic", full_body); + define (blue_tunic, "Blue Tunic", full_body); + define (cyan_tunic, "Cyan Tunic", full_body); + define (green_tunic, "Green Tunic", full_body); + define (grey_tunic, "Grey Tunic", full_body); + define (lime_tunic, "Lime Tunic", full_body); + define (orange_tunic, "Orange Tunic", full_body); + define (pink_tunic, "Pink Tunic", full_body); + define (purple_tunic, "Purple Tunic", full_body); + define (red_tunic, "Red Tunic", full_body); + define (white_tunic, "White Tunic", full_body); + define (yellow_tunic, "Yellow Tunic", full_body); + define (bone_gauntlets, "Bone Gauntlets", hands); + define (bronze_gauntlets, "Bronze Gauntlets", hands); + define (chainmail_gauntlets, "Chainmail Gauntlets", hands); + define (crystal_gauntlets, "Crystal Gauntlets", hands); + define (golden_gauntlets, "Golden Gauntlets", hands); + define (iron_gauntlets, "Iron Gauntlets", hands); + define (leather_gauntlets, "Leather Gauntlets", hands); + define (mithril_gauntlets, "Mithril Gauntlets", hands); + define (steel_gauntlets, "Steel Gauntlets", hands); + define (bone_helmet, "Bone Helmet", head); + define (bronze_helmet, "Bronze Helmet", head); + define (chainmail_helmet, "Chainmail Helmet", head); + define (crystal_helmet, "Crystal Helmet", head); + define (golden_helmet, "Golden Helmet", head); + define (iron_helmet, "Iron Helmet", head); + define (leather_helmet, "Leather Helmet", head); + define (mithril_helmet, "Mithril Helmet", head); + define (steel_helmet, "Steel Helmet", head); + define (bone_axe, "Bone Axe", main_hand); + define (bone_battleaxe, "Bone Battleaxe", main_hand); + define (bone_bow, "Bone Bow", main_hand); + define (bone_mace, "Bone Mace", main_hand); + define (bone_spear, "Bone Spear", main_hand); + define (bone_sword, "Bone Sword", main_hand); + define (bronze_axe, "Bronze Axe", main_hand); + define (bronze_greatsword, "Bronze Greatsword", main_hand); + define (bronze_mace, "Bronze Mace", main_hand); + define (bronze_spear, "Bronze Spear", main_hand); + define (bronze_sword, "Bronze Sword", main_hand); + define (club, "Club", main_hand); + define (crystal_bow, "Crystal Bow", main_hand); + define (crystal_greatsword, "Crystal Greatsword", main_hand); + define (crystal_mace, "Crystal Mace", main_hand); + define (crystal_spear, "Crystal Spear", main_hand); + define (crystal_sword, "Crystal Sword", main_hand); + define (golden_axe, "Golden Axe", main_hand); + define (golden_battleaxe, "Golden Battleaxe", main_hand); + define (golden_bow, "Golden Bow", main_hand); + define (golden_greatsword, "Golden Greatsword", main_hand); + define (golden_sword, "Golden Sword", main_hand); + define (iron_axe, "Iron Axe", main_hand); + define (iron_bow, "Iron Bow", main_hand); + define (iron_mace, "Iron Mace", main_hand); + define (iron_spear, "Iron Spear", main_hand); + define (iron_sword, "Iron Sword", main_hand); + define (jade_axe, "Jade Axe", main_hand); + define (jade_battleaxe, "Jade Battleaxe", main_hand); + define (jade_greatsword, "Jade Greatsword", main_hand); + define (jade_mace, "Jade Mace", main_hand); + define (jade_spear, "Jade Spear", main_hand); + define (jade_sword, "Jade Sword", main_hand); + define (maul, "Maul", main_hand); + define (mithril_axe, "Mithril Axe", main_hand); + define (mithril_battleaxe, "Mithril Battleaxe", main_hand); + define (mithril_bow, "Mithril Bow", main_hand); + define (mithril_mace, "Mithril Mace", main_hand); + define (mithril_spear, "Mithril Spear", main_hand); + define (sledge_hammer, "Sledge Hammer", main_hand); + define (spiked_club, "Spiked Club", main_hand); + define (spiked_staff, "Spiked Staff", main_hand); + define (staff, "Staff", main_hand); + define (steel_battleaxe, "Steel Battleaxe", main_hand); + define (steel_bow, "Steel Bow", main_hand); + define (steel_greatsword, "Steel Greatsword", main_hand); + define (steel_mace, "Steel Mace", main_hand); + define (steel_sword, "Steel Sword", main_hand); + define (wooden_bow, "Wooden Bow", main_hand); + define (wooden_greatsword, "Wooden Greatsword", main_hand); + define (wooden_sword, "Wooden Sword", main_hand); + define (golden_necklace, "Golden Necklace", neck); + define (bronze_shield, "Bronze Shield", off_hand); + define (crystal_shield, "Crystal Shield", off_hand); + define (golden_shield, "Golden Shield", off_hand); + define (iron_shield, "Iron Shield", off_hand); + define (mithril_shield, "Mithril Shield", off_hand); + define (steel_shield, "Steel Shield", off_hand); + define (wooden_shield, "Wooden Shield", off_hand); + define (wooden_armour, "Wooden Armour", chest); + define (fur_armour, "Fur Armour", chest); + define (fur_greaves, "Fur Greaves", feet); + define (fur_gauntlets, "Fur Gauntlets", hands); + define (red_hood, "Red Hood", head); + define (white_hood, "White Hood", head); + define (wooden_helmet, "Wooden Helmet", head); + define (human_helmet, "Human Helmet", head); + define (human_armour, "Human Armour", chest); + define (elven_helmet, "Elven Helmet", head); + define (elven_armour, "Elven Armour", chest); + define (orcish_helmet, "Orcish Helmet", head); + define (orcish_armour, "Orcish Armour", chest); + define (black_robe, "Black Robe", full_body); + define (cyan_robe, "Cyan Robe", full_body); + define (lime_dress, "Lime Dress", full_body); + define (magenta_dress, "Magenta Dress", full_body); + define (orange_robe, "Orange Robe", full_body); + define (pink_dress, "Pink Dress", full_body); + define (red_robe, "Red Robe", full_body); + define (sexy_dress, "Sexy Dress", full_body); + define (white_robe, "White Robe", full_body); + define (lime_robe, "Lime Robe", full_body); + define (orange_hood, "Orange Hood", head); + define (fur_helmet, "Fur Helmet", head); + define (black_hood, "Black Hood", head); + define (cyan_hood, "Cyan Hood", head); + define (lime_hood, "Lime Hood", head); + -- for index in enumeration loop declare folder : constant string := core.lowercase (slot'image (description (index).kind)); file : constant string := core.lowercase (enumeration'image (index)); @@ -45,7 +193,7 @@ package body equipment is and core.cursor_mode = core.cursor_middle and index / none and not ui.prioritize then - core.write_text_box (description (index).name); + core.write_text_box (core.bound (description (index).name)); end if; end draw_plus; diff --git a/source/equipment.ads b/source/equipment.ads index ce2fdf0..35a6c2c 100644 --- a/source/equipment.ads +++ b/source/equipment.ads @@ -43,7 +43,7 @@ package equipment is ------------------------------------------------------------------------------------------ type definition is record - name : core.short_string; + name : core.unstring; kind : slot; attributes : attribute.bonus; favor : faction.enumeration; @@ -56,147 +56,9 @@ package equipment is count : constant natural := enumeration'pos (enumeration'last) + 1; - description : constant array (enumeration) of definition := ( - none => ("-- ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - bone_chestplate => ("Bone Chestplate ", chest, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - bronze_chestplate => ("Bronze Chestplate ", chest, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - chainmail_chestplate => ("Chainmail Chestplate ", chest, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - crystal_chestplate => ("Crystal Chestplate ", chest, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - golden_chestplate => ("Golden Chestplate ", chest, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - iron_chestplate => ("Iron Chestplate ", chest, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - leather_chestplate => ("Leather Chestplate ", chest, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - mithril_chestplate => ("Mithril Chestplate ", chest, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - steel_chestplate => ("Steel Chestplate ", chest, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - bone_greaves => ("Bone Greaves ", feet, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - bronze_greaves => ("Bronze Greaves ", feet, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - chainmail_greaves => ("Chainmail Greaves ", feet, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - crystal_greaves => ("Crystal Greaves ", feet, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - golden_greaves => ("Golden Greaves ", feet, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - iron_greaves => ("Iron Greaves ", feet, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - leather_greaves => ("Leather Greaves ", feet, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - mithril_greaves => ("Mithril Greaves ", feet, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - steel_greaves => ("Steel Greaves ", feet, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - black_tunic => ("Black Tunic ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - blue_tunic => ("Blue Tunic ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - cyan_tunic => ("Cyan Tunic ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - green_tunic => ("Green Tunic ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - grey_tunic => ("Grey Tunic ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - lime_tunic => ("Lime Tunic ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - orange_tunic => ("Orange Tunic ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - pink_tunic => ("Pink Tunic ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - purple_tunic => ("Purple Tunic ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - red_tunic => ("Red Tunic ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - white_tunic => ("White Tunic ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - yellow_tunic => ("Yellow Tunic ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - bone_gauntlets => ("Bone Gauntlets ", hands, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - bronze_gauntlets => ("Bronze Gauntlets ", hands, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - chainmail_gauntlets => ("Chainmail Gauntlets ", hands, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - crystal_gauntlets => ("Crystal Gauntlets ", hands, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - golden_gauntlets => ("Golden Gauntlets ", hands, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - iron_gauntlets => ("Iron Gauntlets ", hands, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - leather_gauntlets => ("Leather Gauntlets ", hands, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - mithril_gauntlets => ("Mithril Gauntlets ", hands, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - steel_gauntlets => ("Steel Gauntlets ", hands, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - bone_helmet => ("Bone Helmet ", head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - bronze_helmet => ("Bronze Helmet ", head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - chainmail_helmet => ("Chainmail Helmet ", head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - crystal_helmet => ("Crystal Helmet ", head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - golden_helmet => ("Golden Helmet ", head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - iron_helmet => ("Iron Helmet ", head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - leather_helmet => ("Leather Helmet ", head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - mithril_helmet => ("Mithril Helmet ", head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - steel_helmet => ("Steel Helmet ", head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - bone_axe => ("Bone Axe ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - bone_battleaxe => ("Bone Battleaxe ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - bone_bow => ("Bone Bow ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - bone_mace => ("Bone Mace ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - bone_spear => ("Bone Spear ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - bone_sword => ("Bone Sword ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - bronze_axe => ("Bronze Axe ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - bronze_greatsword => ("Bronze Greatsword ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - bronze_mace => ("Bronze Mace ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - bronze_spear => ("Bronze Spear ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - bronze_sword => ("Bronze Sword ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - club => ("Club ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - crystal_bow => ("Crystal Bow ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - crystal_greatsword => ("Crystal Greatsword ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - crystal_mace => ("Crystal Mace ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - crystal_spear => ("Crystal Spear ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - crystal_sword => ("Crystal Sword ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - golden_axe => ("Golden Axe ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - golden_battleaxe => ("Golden Battleaxe ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - golden_bow => ("Golden Bow ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - golden_greatsword => ("Golden Greatsword ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - golden_sword => ("Golden Sword ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - iron_axe => ("Iron Axe ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - iron_bow => ("Iron Bow ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - iron_mace => ("Iron Mace ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - iron_spear => ("Iron Spear ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - iron_sword => ("Iron Sword ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - jade_axe => ("Jade Axe ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - jade_battleaxe => ("Jade Battleaxe ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - jade_greatsword => ("Jade Greatsword ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - jade_mace => ("Jade Mace ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - jade_spear => ("Jade Spear ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - jade_sword => ("Jade Sword ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - maul => ("Maul ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - mithril_axe => ("Mithril Axe ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - mithril_battleaxe => ("Mithril Battleaxe ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - mithril_bow => ("Mithril Bow ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - mithril_mace => ("Mithril Mace ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - mithril_spear => ("Mithril Spear ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - sledge_hammer => ("Sledge Hammer ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - spiked_club => ("Spiked Club ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - spiked_staff => ("Spiked Staff ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - staff => ("Staff ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - steel_battleaxe => ("Steel Battleaxe ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - steel_bow => ("Steel Bow ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - steel_greatsword => ("Steel Greatsword ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - steel_mace => ("Steel Mace ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - steel_sword => ("Steel Sword ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - wooden_bow => ("Wooden Bow ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - wooden_greatsword => ("Wooden Greatsword ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - wooden_sword => ("Wooden Sword ", main_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - golden_necklace => ("Golden Necklace ", neck, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - bronze_shield => ("Bronze Shield ", off_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - crystal_shield => ("Crystal Shield ", off_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - golden_shield => ("Golden Shield ", off_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - iron_shield => ("Iron Shield ", off_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - mithril_shield => ("Mithril Shield ", off_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - steel_shield => ("Steel Shield ", off_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - wooden_shield => ("Wooden Shield ", off_hand, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - wooden_armour => ("Wooden Armour ", chest, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - fur_armour => ("Fur Armour ", chest, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - fur_greaves => ("Fur Greaves ", feet, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - fur_gauntlets => ("Fur Gauntlets ", hands, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - red_hood => ("Red Hood ", head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - white_hood => ("White Hood ", head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - wooden_helmet => ("Wooden Helmet ", head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - human_helmet => ("Human Helmet ", head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - human_armour => ("Human Armour ", chest, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - elven_helmet => ("Elven Helmet ", head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - elven_armour => ("Elven Armour ", chest, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - orcish_helmet => ("Orcish Helmet ", head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - orcish_armour => ("Orcish Armour ", chest, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - black_robe => ("Black Robe ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - cyan_robe => ("Cyan Robe ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - lime_dress => ("Lime Dress ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - magenta_dress => ("Magenta Dress ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - orange_robe => ("Orange Robe ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - pink_dress => ("Pink Dress ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - red_robe => ("Red Robe ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - sexy_dress => ("Sexy Dress ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - white_robe => ("White Robe ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - lime_robe => ("Lime Robe ", full_body, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - orange_hood => ("Orange Hood ", head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - fur_helmet => ("Fur Helmet ", head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - black_hood => ("Black Hood ", head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - cyan_hood => ("Cyan Hood ", head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none), - lime_hood => ("Lime Hood ", head, (0, 0, 0, 0, 0, 0), faction.neutral, effect.none) - ); - - sprite : array (enumeration) of core.sprite; - icon : array (enumeration) of core.sprite; + description : array (enumeration) of definition; + sprite : array (enumeration) of core.sprite; + icon : array (enumeration) of core.sprite; ------------------------------------------------------------------------------------------ diff --git a/source/resource.adb b/source/resource.adb index a28546c..5463037 100644 --- a/source/resource.adb +++ b/source/resource.adb @@ -18,6 +18,8 @@ package body resource is -- structure : ui.structure; begin + core.echo (core.comment, "Configuring resource components..."); + -- define (gold, 24, 480, "Gold", "Gold is precious yellowish shiny metal, valued since ancient times."); define (wood, 12, 240, "Wood", "Wood is just bundle of lignin and cellulose, nothing more."); define (stone, 12, 240, "Stone", "Stone is essential building block for most constructions in this world."); @@ -25,8 +27,6 @@ package body resource is define (leather, 12, 240, "Leather", "Leather is general purpose resource, used for armours and decorations."); define (gem, 12, 240, "Gem", "Gem as a resource is same as metal, just mixture of various gems."); -- - core.echo (core.comment, "Configuring resource components..."); - -- structure.title := "Resource Menu "; structure.toggle := core.signal_r; structure.show := false; diff --git a/source/skill.adb b/source/skill.adb index 4537789..786d91e 100644 --- a/source/skill.adb +++ b/source/skill.adb @@ -18,6 +18,8 @@ package body skill is -- structure : ui.structure; begin + core.echo (core.comment, "Configuring skill components..."); + -- define (alchemy, 0, 24, "Alchemy", "Alchemy skill determines effectiveness of your vials and potions."); define (archery, 0, 24, "Archery", "Archery skill determines effectiveness and range or your archers."); define (architecture, 0, 24, "Architecture", "Architecture decreases time spent on building constructions."); @@ -37,8 +39,6 @@ package body skill is define (tactics, 0, 24, "Tactics", "Tactics is the opposite of skirmish, master it and lose in every battle."); define (thaumaturgy, 0, 24, "Thaumaturgy", "Thaumaturgy lets you do nothing, and hope that the best will happen."); -- - core.echo (core.comment, "Configuring skill components..."); - -- structure.title := "Skill Menu "; structure.toggle := core.signal_s; structure.show := false;