[World of Warcraft] Ускорение работы скипта

#include <Color.au3>
#include <Misc.au3>

Global $WinName = "World of Warcraft"
Global $state = "stop"
HotKeySet("{F11}", "GoRotate")
HotKeySet("{F12}", "NGoRotate")
While 1
    Running();
 WEnd

Func GoRotate()
    $state = "rotating"
 EndFunc

 Func NGoRotate()
    $state = "nrotating"
 EndFunc


Func  Running()
    Switch $state
    Case  "rotating"
        Rotating()
    EndSwitch
EndFunc
Func Rotating()
   $colorwhite = 16777215
   $colorblue = 65535
While $state = "rotating"
If PixelGetColor(5, 5) = $colorwhite Then
Send("{F7 down}");
Send("{F7 up}");
sleep(20);
EndIf
If PixelGetColor(5, 5) = $colorblue Then
Send("{F8 down}");
Send("{F8 up}");
sleep(20);
EndIf
   WEnd
EndFunc

Func Rotating()
	$colorwhite = 16777215
	$colorblue = 65535
	While $state = "rotating"
		Switch PixelGetColor(5, 5)
			Case $colorwhite
				Send("{F7 down}")
				Send("{F7 up}")

			Case $colorblue
				Send("{F8 down}")
				Send("{F8 up}")

			Case Else
				ContinueLoop
		EndSwitch
		Sleep( 20 )
   WEnd
EndFunc

#include <WinAPIEx.au3>
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
Global $Paused, $counter = 0
HotKeySet("{F3}", "TogglePause")
HotKeySet("{F2}", "Terminate")
Shoot()
Func Shoot()
While 1
If _WinAPI_GetAsyncKeyState(0x02) = True Then
Local $coord = PixelSearch(669, 386, 695, 361,12191508,20)
If Not @error Then
MouseClick("Left")
Sleep(150)
EndIf
EndIf
WEnd
EndFunc
While 1
$counter +=1
WEnd
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
;ToolTip('Script is "Paused"',0,0, $counter, 1)
WEnd
ToolTip("")
EndFunc
Func Terminate()
Exit 0
EndFunc

#include <FastFind.au3>
#include <Misc.au3>



Opt("SendKeyDelay", 0)
Global $WinName = "World of Warcraft"
Global $FFhWnd = WinGetHandle($WinName)
FFSetWnd($FFhWnd)


Global $state = "stop"
HotKeySet("{F10}", "GoRotate")
HotKeySet("{F11}", "NGoRotate")
While 1
    Running();
 WEnd

Func GoRotate()
    $state = "rotating"
 EndFunc

 Func NGoRotate()
    $state = "nrotating"
 EndFunc


Func  Running()
    Switch $state
    Case  "rotating"
        Rotating()
    EndSwitch
EndFunc





Func Rotating()
    $colorwhite = 16777215
    $colorblue = 65535
    While $state = "rotating"
	   FFSnapShot()
        Switch FFGetPixel(5, 5)
            Case $colorwhite
                Send("{PGUP 10}")


            Case $colorblue

				Send("{PGDN 10}")

            Case Else
                ContinueLoop
        EndSwitch
   WEnd
EndFunc