xolatile/xhads
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Equipment unstringing...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-06-01 15:36:15 -04:00
parent 8018d22794
commit 48ff5347a8
6 changed files with 160 additions and 150 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
source/attribute.adb
View File

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

2
source/chad.adb
View File

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

150
source/equipment.adb
View File

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

142
source/equipment.ads
View File

@ -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,145 +56,7 @@ 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)
);
description : array (enumeration) of definition;
sprite : array (enumeration) of core.sprite;
icon : array (enumeration) of core.sprite;

4
source/resource.adb
View File

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

4
source/skill.adb
View File

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