with core, faction;

package chad is

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

	type codex is (
		ognjen,                 richard,                eric,                   linus,                  ada,                    marina,
		angela,                 wouter,                 john
	);

                                             ------------------------------------------------------------------------------------------

	type information is
	record
		name : core.short_string;
		kind : faction.codex;
	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),
		("Richard Martin Stallman ", faction.stronghold),
		("Eric Steven Raymond     ", faction.inferno),
		("Linus Benedict Torvalds ", faction.tower),
		("Ada Augusta King        ", faction.conflux),
		("Marina Ann Hantzis      ", faction.necropolis),
		("Angela <> Collier       ", faction.rampart),
		("Wouter van Oortmerssen  ", faction.fortress),
		("John Warner Backus      ", faction.dungeon)
	);

                                             ------------------------------------------------------------------------------------------

	procedure configure;

	procedure draw (index : in codex; x, y : in integer);

	function name (index : in integer) return core.short_string;
	function icon (index : in integer) return core.sprite;

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

end chad;