xhads/source/skill.ads

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

with core;

package skill is

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

	type enumeration is (
		archery,                diplomacy,              estates,                exploration,            leadership,             logistics,
		medicine,               mercantile,             mysticism,              necromancy,             sorcery,                tactics
	);

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

	type information is record
		name : core.short_string;
		base : natural;
		text : core.long_string;
	end record;

	type points is array (enumeration) of natural;

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

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

	trait : constant array (enumeration) of information := (
		("Archery                 ", 0, "Archery skill determines effectiveness and range or your archers.       "),
		("Diplomacy               ", 0, "Diplomacy helps you to avoid starting a battle you can't win.           "),
		("Estates                 ", 0, "Estates makes you the ultimate crypto-bro, establishing a blockchain.   "),
		("Exploration             ", 0, "Exploration is quite self-explanatory...                                "),
		("Leadership              ", 0, "Leadership is the default skill for any true chad, like God intended.   "),
		("Logistics               ", 0, "Logistics is a nightmare in real life, but this is only a game.         "),
		("Medicine                ", 0, "Medicine skill makes you swallow pills like a kid in a drugstore.       "),
		("Mercantile              ", 0, "Mercantile is the skill of any true-born nosy person, otherwise useless."),
		("Mysticism               ", 0, "Mysticism allows you to have 60 cats, drink wine and talk weird.        "),
		("Necromancy              ", 0, "Necromancy lets you not to waste the bones after every battle.          "),
		("Sorcery                 ", 0, "Sorcery skill is appropriately named useless skill to have in real life."),
		("Tactics                 ", 0, "Tactics is the opposite of skirmish, master it and lose in every battle.")
	);

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

	procedure configure;

	procedure menu (x, y : in integer; center : in boolean);

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

end skill;