Minor changes from yesterday...

source/core.adb

@@ -360,7 +360,7 @@ package body core is
 		engine_active := true;
 		texture_array := new texture_data_array (0 .. 1600);
 		sound_array   := new sound_data_array   (0 ..    4);
-		font_array    := new font_data_array    (0 ..    8);
+		font_array    := new font_data_array    (0 ..   16);
 		--
 		echo (comment, "-- Setting trace log level to none (ignoring all default Raylib logs).");
 		ray.set_trace_log_level (ray.log_none);

source/main.adb

@@ -9,9 +9,9 @@ with core, ui, effect, attribute, skill, resource, faction, item, unit, construc
 
 use core;
 
---~with Ada.Text_IO; -- For text input/output operations
---~with Ada.Text_IO.Text_Streams; -- For text file handling
---~with Ada.Strings.Unbounded; -- For unbounded string handling
+with Ada.Text_IO; -- For text input/output operations
+with Ada.Text_IO.Text_Streams; -- For text file handling
+with Ada.Strings.Unbounded; -- For unbounded string handling
 
 procedure main is
 
@@ -120,8 +120,10 @@ procedure main is
 
                                              ------------------------------------------------------------------------------------------
 
-    --~File : Ada.Text_IO.File_Type;
-    --~Line : Ada.Strings.Unbounded.unbounded_string;
+    File : Ada.Text_IO.File_Type;
+    Line : Ada.Strings.Unbounded.unbounded_string;
+
+	monospace : font;
 
 	procedure main_menu is
 	begin
@@ -129,11 +131,12 @@ procedure main is
 		draw (game_title,      center_x (game_title.width      * 2), center_y (game_title.height      * 2), factor => 2);
 		--
 		write ("Main Menu", 0, 0);
-		--~write (Ada.Strings.Unbounded.To_String (Line), 64, 64);
 		--
 		ui.draw_check_box (0, 32, view_list (map_preview_panel),    "map_preview_panel");
 		ui.draw_check_box (0, 64, view_list (status_preview_panel), "status_preview_panel");
 		ui.draw_check_box (0, 96, view_list (text_box_panel),       "text_box_panel");
+		--
+		write (Ada.Strings.Unbounded.To_String (Line), 128, 64, (others => 255), 22, monospace);
 	end main_menu;
 
                                              ------------------------------------------------------------------------------------------
@@ -186,14 +189,13 @@ procedure main is
 
 begin
 
-    --~Ada.Text_IO.Open(File, Ada.Text_IO.In_File, "./design/core.txt");  -- Open the file for reading
-    --~while not Ada.Text_IO.End_Of_File(File) loop
-        --~Line := Ada.Strings.Unbounded.To_Unbounded_String (Ada.Strings.Unbounded.To_String (Line) & Character'Val (10) & Character'Val (10) & Ada.Text_IO.Get_Line(File));  -- Read a line from the file
+    Ada.Text_IO.Open(File, Ada.Text_IO.In_File, "./source/attribute.ads");  -- Open the file for reading
+    while not Ada.Text_IO.End_Of_File(File) loop
+        Line := Ada.Strings.Unbounded.To_Unbounded_String (Ada.Strings.Unbounded.To_String (Line) & Character'Val (10) & Ada.Text_IO.Get_Line(File));  -- Read a line from the file
         --~Line := Line & Ada.Strings.Unbounded.To_Unbounded_String (Ada.Text_IO.Get_Line(File));  -- Read a line from the file
-        --~Ada.Text_IO.Put_Line(Ada.Strings.Unbounded.To_String (Line));  -- Output the line to the console
-        --~Ada.Text_IO.Put_Line (">");
-    --~end loop;
-    --~Ada.Text_IO.Close(File);  -- Close the file after reading
+        Ada.Text_IO.Put_Line(Ada.Strings.Unbounded.To_String (Line));  -- Output the line to the console
+    end loop;
+    Ada.Text_IO.Close(File);  -- Close the file after reading
 
 	dash;
 	echo (comment, "Copyright (C) 2024 -- Ognjen 'xolatile' Milan Robovic");
@@ -204,6 +206,8 @@ begin
 
 	initialize;
 
+	monospace := import_font ("./sprite/ui/monospace.png", 11, 0);
+
 	ui.configure;
 
 	play (import_song (c_string ("./song/main_menu.ogg")).index);
@@ -263,7 +267,7 @@ begin
 		gameplay;
 	end loop gameplay_loop;
 
-	world.mapshot ("./test.png");
+	--~world.mapshot ("./test.png");
 
                                              ------------------------------------------------------------------------------------------