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

Revised bad descriptions and added resource descriptions...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-03-13 18:32:59 -04:00
parent 4410fb45f1
commit 6c3b91f5a7
5 changed files with 27 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
source/attribute.ads
View File

@ -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. ")
);
------------------------------------------------------------------------------------------

18
source/chad.ads
View File

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

2
source/main.adb
View File

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

2
source/resource.adb
View File

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

15
source/resource.ads
View File

@ -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. ")
);
------------------------------------------------------------------------------------------