xhads/source/chad.ads

61 lines
2.7 KiB
Ada

with core, faction, attribute, skill, resource;
package chad is
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
type codex is (
ognjen, richard, eric, linus, ada, marina,
kethleen, wouter, john
);
------------------------------------------------------------------------------------------
type information is
record
name : core.short_string;
kind : faction.codex;
bonus_attribute : attribute.codex;
bonus_skill : skill.codex;
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;
------------------------------------------------------------------------------------------
sprite : sprite_array;
count : constant natural := codex'pos (codex'last) + 1;
trait : constant trait_array := (
("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.offense, resource.mercury),
("Ada Augusta King ", faction.conflux, attribute.defense, skill.sorcery, resource.gold),
("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)
);
------------------------------------------------------------------------------------------
procedure configure;
procedure draw (index : in codex; x, y : in integer);
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
end chad;