xhads/source/attribute.ads

50 lines
1.6 KiB
Ada

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;
type sprite_array is array (codex) of core.sprite;
------------------------------------------------------------------------------------------
sprite : sprite_array;
count : constant natural := codex'pos (codex'last) + 1;
trait : constant trait_array := (
("Attack ", 0),
("Defense ", 0),
("Power ", 0),
("Knowledge ", 0)
);
------------------------------------------------------------------------------------------
procedure configure;
procedure draw (index : in codex; x, y : in integer);
function name (index : in integer) return core.short_string;
function base (index : in integer) return base_limit;
function icon (index : in integer) return core.sprite;
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
end attribute;