xhads/source/chad.ads

-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
--
-- GNU General Public Licence (version 3 or later)

with core, attribute, skill, resource, faction;

package chad is

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

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

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

	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.points;
		skills     : skill.points;
		resources  : resource.points;
	end record;

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

	count : constant natural := codex'pos (codex'last) + 1;

	trait : constant array (codex) of information := (
		("Ada Augusta King        ", faction.fairy,  attribute.defense, skill.diplomacy,  resource.steel),
		("Richard Martin Stallman ", faction.dwarf,  attribute.offense, skill.leadership, resource.wood),
		("Ognjen Milan Robovic    ", faction.gnoll,  attribute.stamina, skill.archery,    resource.leather),
		("Wouter van Oortmerssen  ", faction.kobold, attribute.speed,   skill.medicine,   resource.stone),
		("John Warner Backus      ", faction.goblin, attribute.wisdom,  skill.sorcery,    resource.crystal),
		("Marina Ann Hantzis      ", faction.imp,    attribute.reach,   skill.necromancy, resource.gold)
	);

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

	procedure configure;

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

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

end chad;