xhads/source/attribute.ads

39 lines
1.3 KiB
Ada
Raw Normal View History

2024-02-15 21:03:09 -05:00
with core;
package attribute is
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
type codex is (
attack, defense, power, knowledge
);
------------------------------------------------------------------------------------------
subtype base_limit is natural range 0 .. 12;
type information is
record
name : core.short_string;
base : base_limit;
end record;
type trait_array is array (codex) of information;
------------------------------------------------------------------------------------------
trait : constant trait_array := (
("Attack ", 0),
("Defense ", 0),
("Power ", 0),
("Knowledge ", 0)
);
------------------------------------------------------------------------------------------
procedure draw (value : in codex; x, y : in integer);
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
end attribute;