|
|
@@ -39,27 +39,6 @@ package body skill is |
|
|
|
end loop; |
|
|
|
end configure; |
|
|
|
|
|
|
|
------------------------------------------------------------------------------------------ |
|
|
|
|
|
|
|
procedure e is begin core.echo (core.warning, "Heyo world!"); end e; |
|
|
|
|
|
|
|
procedure menu (x, y : in integer; center : in boolean) is |
|
|
|
column : constant integer := 2; |
|
|
|
offset : constant integer := 32; |
|
|
|
width : constant integer := 216 * column + 2 * offset; |
|
|
|
height : constant integer := (count / column) * core.icon + 2 * offset; |
|
|
|
move_x : constant integer := (if center then (core.window_width - width) / 2 else x); |
|
|
|
move_y : constant integer := (if center then (core.window_height - height) / 2 else y); |
|
|
|
begin |
|
|
|
ui.draw_tiny_menu (move_x, move_y, width, height); |
|
|
|
ui.draw_title_bar (move_x, move_y, width, "Skills"); |
|
|
|
-- |
|
|
|
for index in enumeration loop |
|
|
|
ui.draw_icon (sprite (index), trait (index).text, move_x + 216 * (enumeration'pos (index) mod column) + offset, move_y + core.icon * (enumeration'pos (index) / column) + offset, e'access); |
|
|
|
ui.write (trait (index).name, move_x + 216 * (enumeration'pos (index) mod column) + offset + core.icon, move_y + core.icon * (enumeration'pos (index) / column) + offset); |
|
|
|
end loop; |
|
|
|
end menu; |
|
|
|
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ |
|
|
|
|
|
|
|
end skill; |