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

Refactoring, Ocams razor coming soon...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-02-22 06:51:01 -05:00
parent 999d4d1865
commit 118f087170
2 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
source/chad.ads
View File

@ -30,15 +30,15 @@ package chad is
count : constant natural := codex'pos (codex'last) + 1; count : constant natural := codex'pos (codex'last) + 1;
trait : constant trait_array := ( trait : constant trait_array := (
("Ognjen Milan Robovic ", faction.castle, (attribute.attack => 1, others => 0), (skill.offense => 4, others => 2), (others =>3)), ("Ognjen Milan Robovic ", faction.castle, (attribute.power => 2, others => 1), (skill.archery => 6, others => 3), (others => 0)),
("Richard Martin Stallman ", faction.stronghold, (attribute.attack => 1, others => 0), (skill.offense => 4, others => 2), (others =>3)), ("Richard Martin Stallman ", faction.stronghold, (attribute.knowledge => 2, others => 1), (skill.leadership => 6, others => 3), (others => 0)),
("Eric Steven Raymond ", faction.inferno, (attribute.attack => 1, others => 0), (skill.offense => 4, others => 2), (others =>3)), ("Eric Steven Raymond ", faction.inferno, (attribute.defense => 2, others => 1), (skill.resistance => 6, others => 3), (others => 0)),
("Linus Benedict Torvalds ", faction.tower, (attribute.attack => 1, others => 0), (skill.offense => 4, others => 2), (others =>3)), ("Linus Benedict Torvalds ", faction.tower, (attribute.attack => 2, others => 1), (skill.necromancy => 6, others => 3), (others => 0)),
("Ada Augusta King ", faction.conflux, (attribute.attack => 1, others => 0), (skill.offense => 4, others => 2), (others =>3)), ("Ada Augusta King ", faction.conflux, (attribute.defense => 2, others => 1), (skill.sorcery => 6, others => 3), (others => 0)),
("Marina Ann Hantzis ", faction.necropolis, (attribute.attack => 1, others => 0), (skill.offense => 4, others => 2), (others =>3)), ("Marina Ann Hantzis ", faction.necropolis, (attribute.attack => 2, others => 1), (skill.first_aid => 6, others => 3), (others => 0)),
("Angela <> Collier ", faction.rampart, (attribute.attack => 1, others => 0), (skill.offense => 4, others => 2), (others =>3)), ("Angela <> Collier ", faction.rampart, (attribute.knowledge => 2, others => 1), (skill.mysticism => 6, others => 3), (others => 0)),
("Wouter van Oortmerssen ", faction.fortress, (attribute.attack => 1, others => 0), (skill.offense => 4, others => 2), (others =>3)), ("Wouter van Oortmerssen ", faction.fortress, (attribute.power => 2, others => 1), (skill.offense => 6, others => 3), (others => 0)),
("John Warner Backus ", faction.dungeon, (attribute.attack => 1, others => 0), (skill.offense => 4, others => 2), (others =>3)) ("John Warner Backus ", faction.dungeon, (attribute.knowledge => 2, others => 1), (skill.intelligence => 6, others => 3), (others => 0))
); );
------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------

6
source/main.adb
View File

@ -17,9 +17,13 @@ procedure main is
preview_width : integer := 0; preview_width : integer := 0;
preview_height : integer := 0; preview_height : integer := 0;
player : chad.information := chad.trait (chad.ognjen);
begin begin
for i in skill.codex loop put_line (skill.trait (i).name & integer'image (chad.trait (chad.ognjen).skills (i))); end loop; for index in attribute.codex loop put_line (attribute.trait (index).name & integer'image (player.attributes (index))); end loop;
for index in skill.codex loop put_line (skill.trait (index).name & integer'image (player.skills (index))); end loop;
for index in resource.codex loop put_line (resource.trait (index).name & integer'image (player.resources (index))); end loop;
core.configure; core.configure;
ui.configure; ui.configure;