Refactoring, Ocams razor coming soon...
This commit is contained in:
parent
999d4d1865
commit
118f087170
@ -30,15 +30,15 @@ package chad is
|
||||
count : constant natural := codex'pos (codex'last) + 1;
|
||||
|
||||
trait : constant trait_array := (
|
||||
("Ognjen Milan Robovic ", faction.castle, (attribute.attack => 1, others => 0), (skill.offense => 4, others => 2), (others =>3)),
|
||||
("Richard Martin Stallman ", faction.stronghold, (attribute.attack => 1, others => 0), (skill.offense => 4, others => 2), (others =>3)),
|
||||
("Eric Steven Raymond ", faction.inferno, (attribute.attack => 1, others => 0), (skill.offense => 4, others => 2), (others =>3)),
|
||||
("Linus Benedict Torvalds ", faction.tower, (attribute.attack => 1, others => 0), (skill.offense => 4, others => 2), (others =>3)),
|
||||
("Ada Augusta King ", faction.conflux, (attribute.attack => 1, others => 0), (skill.offense => 4, others => 2), (others =>3)),
|
||||
("Marina Ann Hantzis ", faction.necropolis, (attribute.attack => 1, others => 0), (skill.offense => 4, others => 2), (others =>3)),
|
||||
("Angela <> Collier ", faction.rampart, (attribute.attack => 1, others => 0), (skill.offense => 4, others => 2), (others =>3)),
|
||||
("Wouter van Oortmerssen ", faction.fortress, (attribute.attack => 1, others => 0), (skill.offense => 4, others => 2), (others =>3)),
|
||||
("John Warner Backus ", faction.dungeon, (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.knowledge => 2, others => 1), (skill.leadership => 6, others => 3), (others => 0)),
|
||||
("Eric Steven Raymond ", faction.inferno, (attribute.defense => 2, others => 1), (skill.resistance => 6, others => 3), (others => 0)),
|
||||
("Linus Benedict Torvalds ", faction.tower, (attribute.attack => 2, others => 1), (skill.necromancy => 6, others => 3), (others => 0)),
|
||||
("Ada Augusta King ", faction.conflux, (attribute.defense => 2, others => 1), (skill.sorcery => 6, others => 3), (others => 0)),
|
||||
("Marina Ann Hantzis ", faction.necropolis, (attribute.attack => 2, others => 1), (skill.first_aid => 6, others => 3), (others => 0)),
|
||||
("Angela <> Collier ", faction.rampart, (attribute.knowledge => 2, others => 1), (skill.mysticism => 6, others => 3), (others => 0)),
|
||||
("Wouter van Oortmerssen ", faction.fortress, (attribute.power => 2, others => 1), (skill.offense => 6, others => 3), (others => 0)),
|
||||
("John Warner Backus ", faction.dungeon, (attribute.knowledge => 2, others => 1), (skill.intelligence => 6, others => 3), (others => 0))
|
||||
);
|
||||
|
||||
------------------------------------------------------------------------------------------
|
||||
|
@ -17,9 +17,13 @@ procedure main is
|
||||
preview_width : integer := 0;
|
||||
preview_height : integer := 0;
|
||||
|
||||
player : chad.information := chad.trait (chad.ognjen);
|
||||
|
||||
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;
|
||||
ui.configure;
|
||||
|
Loading…
Reference in New Issue
Block a user