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

File IO experimentation...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-05-09 12:52:23 -04:00
parent e75c62b0d0
commit 27c887089f
2 changed files with 25 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
design/core.txt
View File

@ -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...

21
source/main.adb
View File

@ -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");