From 34f8acab833b9c2969e28109a29daa7dd0c162c4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Adam=20Zadro=C5=BCny?= Date: Mon, 25 Mar 2024 13:31:26 +0100 Subject: add support for running with right shift pressed I personally find it much more convenient to use my other hand to hold the shift to run. The behaviour of left shift is left unchanged. --- eepers.adb | 4 ++-- raylib.ads | 1 + 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/eepers.adb b/eepers.adb index 68ca025..0bce801 100644 --- a/eepers.adb +++ b/eepers.adb @@ -1458,7 +1458,7 @@ begin if Game.Player.Dead then Command_Queue.Size := 0; else - if Boolean(Is_Key_Down(KEY_LEFT_SHIFT)) and then Game.Turn_Animation <= 0.0 then + if (Boolean(Is_Key_Down(KEY_LEFT_SHIFT)) or else Boolean(Is_Key_Down(KEY_RIGHT_SHIFT))) and then Game.Turn_Animation <= 0.0 then if Is_Key_Down(KEY_A) or else Is_Key_Down(KEY_LEFT) then Command_Queue.Size := 0; Command_Enqueue(Command_Queue, (Kind => Command_Step, Dir => Left)); @@ -1493,7 +1493,7 @@ begin Command_Enqueue(Command_Queue, (Kind => Command_Plant)); end if; end if; - if Is_Key_Down(KEY_LEFT_SHIFT) then + if Boolean(Is_Key_Down(KEY_LEFT_SHIFT)) or else Boolean(Is_Key_Down(KEY_RIGHT_SHIFT)) then TURN_DURATION_SECS := BASE_TURN_DURATION_SECS * 0.8; else if Command_Queue.Size /= 0 then diff --git a/raylib.ads b/raylib.ads index 2c8415f..0ba7384 100644 --- a/raylib.ads +++ b/raylib.ads @@ -79,6 +79,7 @@ package Raylib is KEY_ESCAPE: constant int := 256; KEY_ENTER: constant Int := 257; KEY_LEFT_SHIFT: constant Int := 340; + KEY_RIGHT_SHIFT: constant Int := 344; function Is_Key_Pressed(key: int) return C_bool with -- cgit v1.2.3