diff options
| -rwxr-xr-x | build-linux.sh | 4 | ||||
| -rw-r--r-- | game.adb | 17 | ||||
| -rw-r--r-- | raylib.ads | 17 | ||||
| -rw-r--r-- | test.adb | 33 |
4 files changed, 31 insertions, 40 deletions
diff --git a/build-linux.sh b/build-linux.sh index 64aaa00..732d4f9 100755 --- a/build-linux.sh +++ b/build-linux.sh @@ -5,5 +5,5 @@ set -xe gnatmake -O3 -f -Wall -Wextra -gnat2022 game.adb -bargs -static -largs -L./raylib/raylib-5.0_linux_amd64/lib/ -l:libraylib.a -lm ./game -# gnatmake -gnat2022 test.adb -largs -L./raylib/raylib-5.0_linux_amd64/lib/ -l:libraylib.a -lm -# ./test +#gnatmake -f -Wall -Wextra -gnat2022 test.adb -largs -L./raylib/raylib-5.0_linux_amd64/lib/ -l:libraylib.a -lm +#./test @@ -1244,6 +1244,10 @@ procedure Game is Palette_Editor_Component: HSV_Comp := Hue; begin + if not Change_Directory(Get_Application_Directory) then + Put_Line("WARNING: Could not change working directory to the application directory"); + end if; + Set_Config_Flags(FLAG_WINDOW_RESIZABLE); Init_Window(1600, 900, Title); Set_Target_FPS(60); @@ -1396,7 +1400,10 @@ begin Close_Window; end; --- TODO: Window title icon +-- TODO: Eye Angle Speed +-- For smoother transitions. Especially from Open to Closed if we decide +-- that the Closed eyes should always point down +-- TODO: Closed eyes should always point down -- TODO: If you are standing on the refilled bomb gen and place a bomb you should refill your bomb in that turn. -- TODO: Checkpoints should be circles (like all the items) -- TODO: Custom font @@ -1409,15 +1416,9 @@ end; -- - Closed -- - Open -- - Happy (very important to indicate that he's not hostile) --- TODO: Eye Angle Speed --- For smoother transitions. Especially from Open to Closed if we decide --- that the Closed eyes should always point down --- TODO: Set working directory to where the exe is --- So it will search the resources there. -- TODO: Eyes for the Player. -- The denote last direction of the step. -- TODO: Enemies should attack on zero just like a bomb. --- TODO: Desaturate the colors -- TODO: Properly disablable DEV features -- TODO: Fullscreen mode -- TODO: Don't reset cooldown timer for eepers (might be duplicate) @@ -1425,7 +1426,7 @@ end; -- TODO: Try MSAA (if too slow, don't) -- TODO: Rename executable to "eepers" -- TODO: Icon on for Windows build --- TODO: Closed eyes should always point down +-- TODO: Window title icon -- TODO: Show Eeper Cooldown timer outside of the screen somehow -- TODO: Visual Clue that the Eeper is about to kill the Player when Completely outside of the Screen -- - Cooldown ball is shaking @@ -1,4 +1,5 @@ with Interfaces.C; use Interfaces.C; +with Interfaces.C.Strings; use Interfaces.C.Strings; with Raymath; use Raymath; package Raylib is @@ -209,4 +210,20 @@ package Raylib is type Vector2_Array is array (size_t range <>) of aliased Vector2; procedure Draw_Triangle_Strip(Points: Vector2_Array; C: Color); + + function Get_Working_Directory return chars_ptr + with + Import => True, + Convention => C, + External_Name => "GetWorkingDirectory"; + function Get_Application_Directory return chars_ptr + with + Import => True, + Convention => C, + External_Name => "GetApplicationDirectory"; + function Change_Directory(dir: chars_ptr) return C_Bool + with + Import => True, + Convention => C, + External_Name => "ChangeDirectory"; end Raylib; @@ -1,39 +1,12 @@ -with Ada.Text_IO; with Text_IO; use Text_IO; -with Ada.Strings.Fixed; use Ada.Strings.Fixed; -with Ada.Strings; use Ada.Strings; -with Ada.Containers.Vectors; -with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; -with Ada.Numerics.Discrete_Random; with Raylib; use Raylib; with Interfaces.C; use Interfaces.C; -with Interfaces.C.Pointers; +with Interfaces.C.Strings; use Interfaces.C.Strings; with Ada.Unchecked_Conversion; -with Raylib; use Raylib; -with Raymath; use Raymath; function Test return Integer is - type Palette is ( - COLOR_BACKGROUND, - COLOR_FLOOR, - COLOR_WALL, - COLOR_BARRICADE, - COLOR_PLAYER, - COLOR_DOOR_KEY, - COLOR_BOMB, - COLOR_LABEL, - COLOR_GUARD, - COLOR_URMOM, - COLOR_GNOME, - COLOR_CHECKPOINT, - COLOR_EXPLOSION, - COLOR_HEALTHBAR, - COLOR_NEW_GAME, - COLOR_EYES, - COLOR_FINAL); begin - for C in Palette loop - Put_Line(To_Unbounded_String(C'Image)); - end loop; + Put_Line("Working Directory: " & To_Ada(Value(Get_Working_Directory))); + Put_Line("Application Directory: " & To_Ada(Value(Get_Application_Directory))); return 0; end; |