50 lines
1.5 KiB
Ada
50 lines
1.5 KiB
Ada
with core;
|
|
|
|
package menu is
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
type format is (
|
|
separator, button, text_box, data_box, check_box, title_bar, scroll_bar, fill_bar
|
|
);
|
|
|
|
type codex is (
|
|
none, attribute_information, skill_information, resource_information
|
|
);
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
type element is
|
|
record
|
|
kind : format;
|
|
data : integer;
|
|
text : core.short_string;
|
|
icon : core.sprite;
|
|
end record;
|
|
|
|
type element_array is array (natural range <>) of element;
|
|
|
|
type information is
|
|
record
|
|
title : core.short_string;
|
|
length : integer;
|
|
height : integer;
|
|
elements : access element_array;
|
|
end record;
|
|
|
|
type trait_array is array (codex) of information;
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
trait : trait_array;
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
procedure configure;
|
|
|
|
procedure draw (index : in codex; x, y : in integer; center : in boolean);
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
end menu;
|