xhads/source/attribute.ads

50 lines
1.9 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;
text : core.long_string;
2024-02-15 21:03:09 -05:00
end record;
--~type trait_array is array (codex) of information;
--~type sprite_array is array (codex) of core.sprite;
type value_array is array (codex) of base_limit;
2024-02-15 21:03:09 -05:00
------------------------------------------------------------------------------------------
sprite : array (codex) of core.sprite;
2024-02-16 09:59:19 -05:00
count : constant natural := codex'pos (codex'last) + 1;
trait : constant array (codex) of information := (
("Attack ", 0, "Determines strength, edurance and damage dealth. "),
("Defense ", 0, "Determines resistance, stamina and damage blocked. "),
("Power ", 0, "Determines might and magic range, spread and usage. "),
("Knowledge ", 0, "Determines leveling, experience and learning. ")
2024-02-15 21:03:09 -05:00
);
------------------------------------------------------------------------------------------
procedure configure;
procedure draw (index : in codex; x, y : in integer);
2024-02-15 21:03:09 -05:00
2024-03-10 16:41:31 -04:00
procedure menu (x, y : in integer; center : in boolean);
2024-02-15 21:03:09 -05:00
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
end attribute;