From 6c3b91f5a74e6e9a09ae307d40e0d4ce8d0c7480 Mon Sep 17 00:00:00 2001 From: xolatile Date: Wed, 13 Mar 2024 18:32:59 -0400 Subject: [PATCH] Revised bad descriptions and added resource descriptions... --- source/attribute.ads | 8 ++++---- source/chad.ads | 18 +++++++++++++----- source/main.adb | 2 +- source/resource.adb | 2 +- source/resource.ads | 15 ++++++++------- 5 files changed, 27 insertions(+), 18 deletions(-) diff --git a/source/attribute.ads b/source/attribute.ads index 8b9d669..cc15c53 100644 --- a/source/attribute.ads +++ b/source/attribute.ads @@ -30,10 +30,10 @@ package attribute is count : constant natural := codex'pos (codex'last) + 1; trait : constant trait_array := ( - ("Attack ", 0, "Attack determines strength, edurance and damage dealth. "), - ("Defense ", 0, "Defense determines resistance, stamina and damage blocked. "), - ("Power ", 0, "Power determines might and magic range, spread and usage. "), - ("Knowledge ", 0, "Knowledge determines leveling, experience and learning. ") + ("Attack ", 0, "Determines strength, edurance and damage dealth. "), + ("Defense ", 0, "Determines resistance, stamina and damage blocked. "), + ("Power ", 0, "Determines might and magic range, spread and usage. "), + ("Knowledge ", 0, "Determines leveling, experience and learning. ") ); ------------------------------------------------------------------------------------------ diff --git a/source/chad.ads b/source/chad.ads index e78c456..a2ecf89 100644 --- a/source/chad.ads +++ b/source/chad.ads @@ -20,6 +20,14 @@ package chad is bonus_resource : resource.codex; end record; + type data is + record + index : codex; + attributes : attribute.value_array; + skills : skill.value_array; + resources : resource.value_array; + end record; + type trait_array is array (codex) of information; type sprite_array is array (codex) of core.sprite; @@ -33,12 +41,12 @@ package chad is ("Ognjen Milan Robovic ", faction.castle, attribute.power, skill.archery, resource.gold), ("Richard Martin Stallman ", faction.stronghold, attribute.knowledge, skill.leadership, resource.ore), ("Eric Steven Raymond ", faction.inferno, attribute.defense, skill.resistance, resource.wood), - ("Linus Benedict Torvalds ", faction.tower, attribute.attack, skill.necromancy, resource.mercury), + ("Linus Benedict Torvalds ", faction.tower, attribute.attack, skill.offense, resource.mercury), ("Ada Augusta King ", faction.conflux, attribute.defense, skill.sorcery, resource.gold), - ("Marina Ann Hantzis ", faction.necropolis, attribute.attack, skill.first_aid, resource.gem), - ("Kathleen Hylda Britten ", faction.rampart, attribute.knowledge, skill.mysticism, resource.wood), - ("Wouter van Oortmerssen ", faction.fortress, attribute.power, skill.offense, resource.ore), - ("John Warner Backus ", faction.dungeon, attribute.knowledge, skill.intelligence, resource.crystal) + ("Marina Ann Hantzis ", faction.necropolis, attribute.attack, skill.necromancy, resource.gem), + ("Kathleen Hylda Britten ", faction.rampart, attribute.knowledge, skill.intelligence, resource.wood), + ("Wouter van Oortmerssen ", faction.fortress, attribute.power, skill.logistics, resource.ore), + ("John Warner Backus ", faction.dungeon, attribute.knowledge, skill.mysticism, resource.crystal) ); ------------------------------------------------------------------------------------------ diff --git a/source/main.adb b/source/main.adb index 5ea2f0c..ae7ced9 100644 --- a/source/main.adb +++ b/source/main.adb @@ -98,7 +98,7 @@ begin attribute.menu (300, 200, false); skill.menu (600, 300, true); resource.menu (300, 500, false); - unit.menu (300, 500, true); + --~unit.menu (300, 500, true); -- --~unit.stat (unit.griffin, 0, 0, true); --~unit.stat (unit.halberdier, 0, 0, true); diff --git a/source/resource.adb b/source/resource.adb index fdaa70b..fa844ca 100644 --- a/source/resource.adb +++ b/source/resource.adb @@ -37,7 +37,7 @@ package body resource is -- for index in codex loop - ui.draw_icon ("", move_x + offset, move_y + offset + codex'pos (index) * core.icon); + ui.draw_icon (trait (index).text, move_x + offset, move_y + offset + codex'pos (index) * core.icon); draw (index, move_x + offset, move_y + offset + codex'pos (index) * core.icon); core.write (trait (index).name, move_x + offset + core.icon, move_y + offset + codex'pos (index) * core.icon); end loop; diff --git a/source/resource.ads b/source/resource.ads index e5e0354..7d3c47c 100644 --- a/source/resource.ads +++ b/source/resource.ads @@ -17,6 +17,7 @@ package resource is record name : core.short_string; base : base_limit; + text : core.long_string; end record; type trait_array is array (codex) of information; @@ -30,13 +31,13 @@ package resource is count : constant natural := codex'pos (codex'last) + 1; trait : constant trait_array := ( - ("Gold ", 0), - ("Wood ", 0), - ("Mercury ", 0), - ("Ore ", 0), - ("Sulfur ", 0), - ("Crystal ", 0), - ("Gem ", 0) + ("Gold ", 0, "Basic currency in the world, even tho silver is better. "), + ("Wood ", 0, "Essential building material for most houses and stables. "), + ("Mercury ", 0, "Usage is practiced by alchemists and necromancers mostly. "), + ("Ore ", 0, "One of the building blocks of society, always useful goods. "), + ("Sulfur ", 0, "Fell out of use in VII era, but it still has some use-cases. "), + ("Crystal ", 0, "Important material for anything related to magic. "), + ("Gem ", 0, "Used a lot by alchemists and magicians for some reason. ") ); ------------------------------------------------------------------------------------------