From 7253eb25cb82c1c89ffb87b18f6a34a14fae9d3b Mon Sep 17 00:00:00 2001
From: xolatile <xolatile@proton.me>
Date: Fri, 3 May 2024 06:49:12 -0400
Subject: [PATCH] Minor testing changes...

---
 source/core.adb |  2 +-
 source/main.adb | 14 +++++++++++++-
 source/ui.adb   | 24 ++++++++++++------------
 source/ui.ads   |  6 +++---
 4 files changed, 29 insertions(+), 17 deletions(-)

diff --git a/source/core.adb b/source/core.adb
index 0599263..b84a221 100644
--- a/source/core.adb
+++ b/source/core.adb
@@ -301,7 +301,7 @@ package body core is
 		cursor.x       := ray.get_mouse_x;
 		cursor.y       := ray.get_mouse_y;
 		--
-		ray.draw_fps (window_width - 100, window_height - 100);
+		--~ray.draw_fps (window_width - 100, window_height - 100);
 		--
 		ray.end_drawing;
 		--
diff --git a/source/main.adb b/source/main.adb
index d92a7a9..e50aedf 100644
--- a/source/main.adb
+++ b/source/main.adb
@@ -128,6 +128,8 @@ procedure main is
 		others                  => core.idle'access
 	);
 
+	a, b, c : core.sprite;
+
 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 
 begin
@@ -167,6 +169,10 @@ begin
 		screen_view_icon (index) := core.import_sprite ("./sprite/ui/icon/" & core.lowercase (screen_view'image (index)) & ".png", 1, 1);
 	end loop;
 
+	a := core.import_sprite ("./sprite/magic/fire/fireball.png", 1, 1);
+	b := core.import_sprite ("./sprite/magic/light/heal.png", 1, 1);
+	c := core.import_sprite ("./sprite/magic/dark/torment.png", 1, 1);
+
                                              ------------------------------------------------------------------------------------------
 
 	gameplay: loop
@@ -205,7 +211,13 @@ begin
 		--
 		menu_render;
 		--
-		--~ui.draw_fill_bar (64, core.window_height - 56, 320, 0.7);
+		core.draw (a, 64*1, core.window_height - 56 - 64);
+		core.draw (b, 64*2, core.window_height - 56 - 64);
+		core.draw (c, 64*3, core.window_height - 56 - 64);
+		ui.draw_icon_menu ("", 64*1, core.window_height - 56 - 64, 64, 64, null);
+		ui.draw_icon_menu ("", 64*2, core.window_height - 56 - 64, 64, 64, null);
+		ui.draw_icon_menu ("", 64*3, core.window_height - 56 - 64, 64, 64, null);
+		ui.draw_fill_bar (64*4, core.window_height - 56, 320, 0.7);
 		--
 		chad.draw_alice;
 		--
diff --git a/source/ui.adb b/source/ui.adb
index 093e116..81bc0fa 100644
--- a/source/ui.adb
+++ b/source/ui.adb
@@ -89,12 +89,12 @@ package body ui is
 			draw (index, x + (width / step) * step, y, width mod step, sprite (active, index).height);
 		end if;
 		--
-		if  core.cursor.x > x and core.cursor.x < x + width
-		and core.cursor.y > y and core.cursor.y < y + sprite (active, index).height
-		and core.cursor_mode = 1 then
-			action.all;
-			core.cursor_mode := 0;
-		end if;
+		--~if  core.cursor.x > x and core.cursor.x < x + width
+		--~and core.cursor.y > y and core.cursor.y < y + sprite (active, index).height
+		--~and core.cursor_mode = 1 then
+			--~action.all;
+			--~core.cursor_mode := 0;
+		--~end if;
 	end draw_horizontally;
 
                                              ------------------------------------------------------------------------------------------
@@ -110,12 +110,12 @@ package body ui is
 			draw (index, x, y + (height / step) * step, sprite (active, index).width, height mod step);
 		end if;
 		--
-		if  core.cursor.x > x and core.cursor.x < x + sprite (active, index).width
-		and core.cursor.y > y and core.cursor.y < y + height
-		and core.cursor_mode = 1 then
-			action.all;
-			core.cursor_mode := 0;
-		end if;
+		--~if  core.cursor.x > x and core.cursor.x < x + sprite (active, index).width
+		--~and core.cursor.y > y and core.cursor.y < y + height
+		--~and core.cursor_mode = 1 then
+			--~action.all;
+			--~core.cursor_mode := 0;
+		--~end if;
 	end draw_vertically;
 
                                              ------------------------------------------------------------------------------------------
diff --git a/source/ui.ads b/source/ui.ads
index e73dec7..2c5ef63 100644
--- a/source/ui.ads
+++ b/source/ui.ads
@@ -13,9 +13,9 @@ package ui is
 		fairy,                  dwarf,                  gnoll,                  kobold,                 goblin,                 imp
 	);
 
-	type enumeration is (
-		gui_button, gui_line, gui_text, gui_icon, gui_sprite, gui_list
-	);
+	--~type enumeration is (
+		--~gui_button, gui_line, gui_text, gui_icon, gui_sprite, gui_list
+	--~);
 
                                              ------------------------------------------------------------------------------------------