From 706c13b95e2501230c0107a43ea5bc1943e9c85a Mon Sep 17 00:00:00 2001 From: rexim Date: Sat, 23 Mar 2024 08:04:00 +0700 Subject: Improve controls - Allow moving with arrows too - Restart on any key press after ded --- raylib.ads | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'raylib.ads') diff --git a/raylib.ads b/raylib.ads index dc8a8f0..2566243 100644 --- a/raylib.ads +++ b/raylib.ads @@ -70,6 +70,10 @@ package Raylib is KEY_P: constant int := 80; KEY_O: constant int := 79; KEY_X: constant int := 88; + KEY_RIGHT: constant int := 262; + KEY_LEFT: constant int := 263; + KEY_DOWN: constant int := 264; + KEY_UP: constant int := 265; KEY_SPACE: constant int := 32; KEY_ESCAPE: constant int := 256; KEY_ENTER: constant Int := 257; @@ -78,6 +82,11 @@ package Raylib is Import => True, Convention => C, External_Name => "IsKeyPressed"; + function Get_Key_Pressed return int + with + Import => True, + Convention => C, + External_Name => "GetKeyPressed"; procedure Draw_Rectangle_V(position: Vector2; size: Vector2; c: Color) with -- cgit v1.2.3