File IO experimentation...

design/core.txt

@@ -1,8 +1,3 @@
-Engine name: Xhads, Xaemes, Robovic, Ognjen, Xolatile, Xngine, Xore, Xero, World...
-Game name:   EAX, Chads of Might & Magic, Chads, Unumis, Haen, World, Armageddon...
-
-Imp campaign names: Horned Maiden, Gentle Flower, Silent Autumn (always keep 2 words, 6 characters each...)
-
 Inspiration:
 	Cube
 	Heroes of Might & Magic 2
@@ -35,4 +30,9 @@ Gameplay:
 	Each menu has sub-menus, if needed, and description of what something does, this may potentially replace making a tutorial.
 	Each map is connected to one or more other maps, which is the world, and you can access different parts with portals, routes or docks.
 
+Engine name: Xhads, Xaemes, Robovic, Ognjen, Xolatile, Xngine, Xore, Xero, World...
+Game name:   EAX, Chads of Might & Magic, Chads, Unumis, Haen, World, Armageddon...
+
+Imp campaign names: Horned Maiden, Gentle Flower, Silent Autumn (always keep 2 words, 6 characters each...)
+
 More documentation to come...

source/main.adb

@@ -9,6 +9,10 @@ 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
+
 procedure main is
 
 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -116,14 +120,20 @@ procedure main is
 
                                              ------------------------------------------------------------------------------------------
 
+    --~File : Ada.Text_IO.File_Type;
+    --~Line : Ada.Strings.Unbounded.unbounded_string;
+
 	procedure main_menu is
 	begin
 		draw (ashland_preview, center_x (ashland_preview.width * 2), center_y (ashland_preview.height * 2), factor => 2);
 		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 (32, 32, view_list (map_preview_panel), "Test");
+		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");
 	end main_menu;
 
                                              ------------------------------------------------------------------------------------------
@@ -176,6 +186,15 @@ 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
+        --~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
+
 	dash;
 	echo (comment, "Copyright (C) 2024 -- Ognjen 'xolatile' Milan Robovic");
 	echo (comment, "Version -- 1.0.0");