Minor changes from yesterday...
This commit is contained in:
parent
8a9135bdd9
commit
af4e800498
@ -360,7 +360,7 @@ package body core is
|
|||||||
engine_active := true;
|
engine_active := true;
|
||||||
texture_array := new texture_data_array (0 .. 1600);
|
texture_array := new texture_data_array (0 .. 1600);
|
||||||
sound_array := new sound_data_array (0 .. 4);
|
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).");
|
echo (comment, "-- Setting trace log level to none (ignoring all default Raylib logs).");
|
||||||
ray.set_trace_log_level (ray.log_none);
|
ray.set_trace_log_level (ray.log_none);
|
||||||
|
@ -9,9 +9,9 @@ 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; -- For text input/output operations
|
||||||
--~with Ada.Text_IO.Text_Streams; -- For text file handling
|
with Ada.Text_IO.Text_Streams; -- For text file handling
|
||||||
--~with Ada.Strings.Unbounded; -- For unbounded string handling
|
with Ada.Strings.Unbounded; -- For unbounded string handling
|
||||||
|
|
||||||
procedure main is
|
procedure main is
|
||||||
|
|
||||||
@ -120,8 +120,10 @@ procedure main is
|
|||||||
|
|
||||||
------------------------------------------------------------------------------------------
|
------------------------------------------------------------------------------------------
|
||||||
|
|
||||||
--~File : Ada.Text_IO.File_Type;
|
File : Ada.Text_IO.File_Type;
|
||||||
--~Line : Ada.Strings.Unbounded.unbounded_string;
|
Line : Ada.Strings.Unbounded.unbounded_string;
|
||||||
|
|
||||||
|
monospace : font;
|
||||||
|
|
||||||
procedure main_menu is
|
procedure main_menu is
|
||||||
begin
|
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);
|
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 (0, 32, view_list (map_preview_panel), "map_preview_panel");
|
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, 64, view_list (status_preview_panel), "status_preview_panel");
|
||||||
ui.draw_check_box (0, 96, view_list (text_box_panel), "text_box_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;
|
end main_menu;
|
||||||
|
|
||||||
------------------------------------------------------------------------------------------
|
------------------------------------------------------------------------------------------
|
||||||
@ -186,14 +189,13 @@ procedure main is
|
|||||||
|
|
||||||
begin
|
begin
|
||||||
|
|
||||||
--~Ada.Text_IO.Open(File, Ada.Text_IO.In_File, "./design/core.txt"); -- Open the file for reading
|
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
|
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 := 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
|
--~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(Ada.Strings.Unbounded.To_String (Line)); -- Output the line to the console
|
||||||
--~Ada.Text_IO.Put_Line (">");
|
end loop;
|
||||||
--~end loop;
|
Ada.Text_IO.Close(File); -- Close the file after reading
|
||||||
--~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");
|
||||||
@ -204,6 +206,8 @@ begin
|
|||||||
|
|
||||||
initialize;
|
initialize;
|
||||||
|
|
||||||
|
monospace := import_font ("./sprite/ui/monospace.png", 11, 0);
|
||||||
|
|
||||||
ui.configure;
|
ui.configure;
|
||||||
|
|
||||||
play (import_song (c_string ("./song/main_menu.ogg")).index);
|
play (import_song (c_string ("./song/main_menu.ogg")).index);
|
||||||
@ -263,7 +267,7 @@ begin
|
|||||||
gameplay;
|
gameplay;
|
||||||
end loop gameplay_loop;
|
end loop gameplay_loop;
|
||||||
|
|
||||||
world.mapshot ("./test.png");
|
--~world.mapshot ("./test.png");
|
||||||
|
|
||||||
------------------------------------------------------------------------------------------
|
------------------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user