From c71c8e8b5df8df1ed4d61a1783c3bf25c4b9beba Mon Sep 17 00:00:00 2001
From: elfyyy <kyleh04@ymail.com>
Date: Fri, 8 Jan 2016 09:40:43 -0500
Subject: [PATCH] Adds TReflectionKeyboard.SendArrowWait

Allows to send a arrow key and wait to release it.
-Preparing for TReflectionAntiban
---
 lib/core/input/Keyboard.simba | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/lib/core/input/Keyboard.simba b/lib/core/input/Keyboard.simba
index 9c440ac..b29eea9 100644
--- a/lib/core/input/Keyboard.simba
+++ b/lib/core/input/Keyboard.simba
@@ -20,3 +20,23 @@ begin
   if Send then
     Reflect.Keyboard.TypeKey(Vk_Enter);
 end;
+
+procedure TReflectionKeyboard.SendArrowWait(Key: Byte; WaitTime: Integer);
+var
+  KeyCode : integer;
+begin;
+  if not InRange(Key,0,3) then
+    Reflect.Logger.Warn('Key is not in range')
+  else
+  begin
+    case Key of
+      0 : Keycode := (vk_up);
+      1 : Keycode := (vk_right);
+      2 : Keycode := (vk_down);
+      3 : Keycode := (vk_left);
+    end;
+    KeyDown(KeyCode);
+    Wait(WaitTime);
+    KeyUp(KeyCode);
+  end;
+end;