xolatile/xhads
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added unit, might and magic menus too...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-03-16 08:14:22 -04:00
parent b33bbf962c
commit 8beb8bdeda
1 changed files with 10 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
source/main.adb
View File

@ -18,7 +18,7 @@ procedure main is
------------------------------------------------------------------------------------------
type menu_index is (
menu_none, menu_attribute, menu_skill, menu_resource--, menu_unit, menu_might, menu_magic
menu_none, menu_attribute, menu_skill, menu_resource, menu_unit, menu_might, menu_magic
);
menu_limit : constant integer := 3;
@ -50,6 +50,9 @@ procedure main is
when menu_attribute => attribute.menu (100, 100, false);
when menu_skill => skill.menu (200, 200, false);
when menu_resource => resource.menu (300, 300, false);
when menu_unit => unit.menu (0, 0, true);
when menu_might => might.menu (0, 0, true);
when menu_magic => magic.menu (0, 0, true);
end case;
end loop;
end menu_render;
@ -64,6 +67,9 @@ procedure main is
procedure show_attribute_menu is begin menu_insert (menu_attribute); end show_attribute_menu;
procedure show_skill_menu is begin menu_insert (menu_skill); end show_skill_menu;
procedure show_resource_menu is begin menu_insert (menu_resource); end show_resource_menu;
procedure show_unit_menu is begin menu_insert (menu_unit); end show_unit_menu;
procedure show_might_menu is begin menu_insert (menu_might); end show_might_menu;
procedure show_magic_menu is begin menu_insert (menu_magic); end show_magic_menu;
procedure hide_top_menu is begin menu_remove; end hide_top_menu;
signal_list : constant array (core.signal_code) of access procedure := (
@ -74,6 +80,9 @@ procedure main is
core.signal_a => show_attribute_menu'access,
core.signal_s => show_skill_menu'access,
core.signal_r => show_resource_menu'access,
core.signal_u => show_unit_menu'access,
core.signal_m => show_might_menu'access,
core.signal_n => show_magic_menu'access,
core.signal_grave => hide_top_menu'access,
others => idle'access
);
@ -137,25 +146,10 @@ begin
--
ui.draw_state_box (preview_width + 32, 32);
--
--~attribute.menu (100, 100, false);
--~skill.menu (600, 200, false);
--~resource.menu (100, 400, false);
--~unit.menu (0, 0, true);
--
--~unit.stat (unit.griffin, 0, 0, true);
--~unit.stat (unit.halberdier, 0, 0, true);
--~unit.stat (unit.spirit, 0, 0, true);
--~unit.stat (unit.power_lich, 600, 300, false);
--
--~magic.menu (0, 0, true);
--~might.menu (0, 0, true);
--
signal_list (core.signal_code'val (core.signal_mode)).all;
--
menu_render;
--
core.write (integer'image (menu_count), 0, 0, ui.font (ui.active), 16#FF0000#);
--
ui.draw_text_box (0, core.window_height - 32, core.window_width, 32);
end loop gameplay;