xhads/source/chad.ads

56 lines
2.2 KiB
Ada
Raw Normal View History

-- 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
2024-03-13 18:18:07 -04:00
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;
2024-04-23 16:19:29 -04:00
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;