90 lines
4.2 KiB
Ada
90 lines
4.2 KiB
Ada
with core, ui, effect, attribute, skill, resource, faction, might, magic, item, unit, construction, world, menu;
|
|
|
|
use menu;
|
|
|
|
package body menu is
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
draw_offset : constant integer := 16;
|
|
icon_offset : constant integer := 4;
|
|
icon_size : constant integer := 32;
|
|
offset : constant integer := icon_size + 2 * icon_offset;
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
procedure configure is
|
|
begin
|
|
trait (attribute_information) := ("Attribute Information ", attribute.count, 10, 100, 64, new element_array (0 .. attribute.count - 1));
|
|
trait (skill_information) := ("Skill Information ", skill.count, 10, 700, 64, new element_array (0 .. skill.count - 1));
|
|
trait (resource_information) := ("Resource Information ", resource.count, 10, 400, 64, new element_array (0 .. resource.count - 1));
|
|
trait (none) := ("-- ", 0, 10, 0, 0, null);
|
|
--
|
|
for index in attribute.codex
|
|
loop
|
|
trait (attribute_information).elements (attribute.codex'pos (index)) := (button, attribute.codex'pos (index), attribute.trait (index).name, attribute.icon (index));
|
|
end loop;
|
|
--
|
|
for index in skill.codex
|
|
loop
|
|
trait (skill_information).elements (skill.codex'pos (index)) := (button, skill.codex'pos (index), skill.trait (index).name, skill.icon (index));
|
|
end loop;
|
|
--
|
|
for index in resource.codex
|
|
loop
|
|
trait (resource_information).elements (resource.codex'pos (index)) := (button, resource.codex'pos (index), resource.trait (index).name, resource.icon (index));
|
|
end loop;
|
|
end configure;
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
procedure synchronize is
|
|
limitation : integer;
|
|
begin
|
|
for index in codex
|
|
loop
|
|
limitation := (if trait (index).length < trait (index).height then trait (index).length else trait (index).height);
|
|
--
|
|
if core.cursor_x > trait (index).x
|
|
and core.cursor_x < trait (index).x + 2 * draw_offset + offset + 24 * 8
|
|
and core.cursor_y > trait (index).y
|
|
and core.cursor_y < trait (index).y + limitation * offset + 2 * draw_offset then
|
|
mouse_over_menu := index;
|
|
return;
|
|
else
|
|
mouse_over_menu := none;
|
|
end if;
|
|
end loop;
|
|
end synchronize;
|
|
|
|
------------------------------------------------------------------------------------------
|
|
|
|
procedure draw (index : in codex; x, y : in integer; center : in boolean) is
|
|
scroll_bar : constant boolean := (if trait (index).length < trait (index).height then false else true);
|
|
limitation : constant integer := (if trait (index).length < trait (index).height then trait (index).length else trait (index).height);
|
|
width : constant integer := 2 * draw_offset + offset + 24 * 8;
|
|
height : constant integer := limitation * offset + 2 * draw_offset;
|
|
begin
|
|
if index = none then
|
|
return;
|
|
end if;
|
|
--
|
|
trait (index).x := (if center then (core.window_width - width) / 2 else x);
|
|
trait (index).y := (if center then (core.window_height - height) / 2 else y);
|
|
--
|
|
ui.draw_title_bar (trait (index).x, trait (index).y, width, trait (index).title);
|
|
ui.draw_tiny_menu (trait (index).x, trait (index).y, width, height, true);
|
|
--
|
|
for element_index in 0 .. limitation - 1
|
|
loop
|
|
ui.draw_frame (trait (index).x + draw_offset, trait (index).y + draw_offset + element_index * offset, width - 2 * draw_offset, offset);
|
|
--
|
|
core.draw (trait (index).elements (element_index).icon, trait (index).x + draw_offset + icon_offset, trait (index).y + draw_offset + icon_offset + element_index * offset);
|
|
core.write (trait (index).elements (element_index).text, trait (index).x + draw_offset + offset, trait (index).y + draw_offset + 2 * icon_offset + element_index * offset);
|
|
end loop;
|
|
end draw;
|
|
|
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
end menu;
|