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

Minor changes from yesterday...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-05-09 22:23:40 -04:00
parent 8a9135bdd9
commit af4e800498
2 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
source/core.adb
View File

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

32
source/main.adb
View File

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