xhads/source/chad.ads

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;