diff options
| author | Alexey Kutepov <reximkut@gmail.com> | 2024-03-26 19:38:50 +0700 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-03-26 19:38:50 +0700 |
| commit | 65a0d69e952b0b0ae8125017c51eaaae1e6bafc7 (patch) | |
| tree | dd905caf4a2acaed51433b201517ead044a2ee6c /eepers.adb | |
| parent | 3cbc69d86f1a06129eed82345dcc6d4cca28ffd0 (diff) | |
| parent | 34f8acab833b9c2969e28109a29daa7dd0c162c4 (diff) | |
Merge pull request #18 from cornishon/right_shift_also
Add support for running with right shift
Diffstat (limited to 'eepers.adb')
| -rw-r--r-- | eepers.adb | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |