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: Inspiration:
Cube Cube
Heroes of Might & Magic 2 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 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. 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... 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; 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 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 procedure main_menu is
begin begin
draw (ashland_preview, center_x (ashland_preview.width * 2), center_y (ashland_preview.height * 2), factor => 2); 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); draw (game_title, center_x (game_title.width * 2), center_y (game_title.height * 2), factor => 2);
-- --
write ("Main Menu", 0, 0); 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; end main_menu;
------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------
@ -176,6 +186,15 @@ procedure main is
begin 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; dash;
echo (comment, "Copyright (C) 2024 -- Ognjen 'xolatile' Milan Robovic"); echo (comment, "Copyright (C) 2024 -- Ognjen 'xolatile' Milan Robovic");
echo (comment, "Version -- 1.0.0"); echo (comment, "Version -- 1.0.0");