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 (
		alchemy,                archery,                architecture,           athletics,              diplomacy,              estates,
		exploration,            leadership,             logistics,              medicine,               mercantile,             mysticism,
		necromancy,             resistance,             skirmish,               sorcery,                tactics,                thaumaturgy
	);

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

	type definition is record
		base :        core.point;
		name : access string;
		text : access string;
	end record;

	type points is array (enumeration) of core.point;
	type bonus  is array (enumeration) of natural;

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

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

	default : constant points := (others => (0, 24));

	description : constant array (enumeration) of definition := (
		alchemy      => ((0, 24), new string' ("Alchemy"),      new string' ("Alchemy skill determines effectiveness of your vials and potions.")),
		archery      => ((0, 24), new string' ("Archery"),      new string' ("Archery skill determines effectiveness and range or your archers.")),
		architecture => ((0, 24), new string' ("Architecture"), new string' ("Architecture decreases time spent on building constructions.")),
		athletics    => ((0, 24), new string' ("Athletics"),    new string' ("Athletics increases movement speed of all your units, since they train.")),
		diplomacy    => ((0, 24), new string' ("Diplomacy"),    new string' ("Diplomacy helps you to avoid starting a battle you can't win.")),
		estates      => ((0, 24), new string' ("Estates"),      new string' ("Estates makes you the ultimate crypto-bro, establishing a blockchain.")),
		exploration  => ((0, 24), new string' ("Exploration"),  new string' ("Exploration is quite self-explanatory by its' name, seriously.")),
		leadership   => ((0, 24), new string' ("Leadership"),   new string' ("Leadership is the default skill for any true chad, like God intended.")),
		logistics    => ((0, 24), new string' ("Logistics"),    new string' ("Logistics is a nightmare in real life, but this is only a game.")),
		medicine     => ((0, 24), new string' ("Medicine"),     new string' ("Medicine skill makes you swallow pills like a kid in a drugstore.")),
		mercantile   => ((0, 24), new string' ("Mercantile"),   new string' ("Mercantile is the skill of any true-born nosy person, otherwise useless.")),
		mysticism    => ((0, 24), new string' ("Mysticism"),    new string' ("Mysticism allows you to have 60 cats, drink wine and talk weird.")),
		necromancy   => ((0, 24), new string' ("Necromancy"),   new string' ("Necromancy lets you not to waste the bones after every battle.")),
		resistance   => ((0, 24), new string' ("Resistence"),   new string' ("Resistence skill increases defense points of all your units slightly.")),
		skirmish     => ((0, 24), new string' ("Skirmish"),     new string' ("Skirmish makes your units go berserk when they have little health left.")),
		sorcery      => ((0, 24), new string' ("Sorcery"),      new string' ("Sorcery skill is appropriately named useless skill to have in real life.")),
		tactics      => ((0, 24), new string' ("Tactics"),      new string' ("Tactics is the opposite of skirmish, master it and lose in every battle.")),
		thaumaturgy  => ((0, 24), new string' ("Thaumaturgy"),  new string' ("Thaumaturgy lets you do nothing, and hope that the best will happen."))
	);

	icon : array (enumeration) of core.sprite;

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

end skill;