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.

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