Выполнение скрипта при зажатой ПКМ

HotKeySet ("{F1}","_Pause" ) 
HotKeySet ("{F2}","_NotPause") 
HotKeySet("{F7}", "_Exit") 
Global $Paused 
Func _Pause() 
$Paused = True 
While $Paused 
Sleep(100) 
WEnd 
EndFunc 
Func _NotPause() 
$Paused = False 
EndFunc 
While 1
$Variable = PixelSearch(672,364,693,385,0xFF0000,40)
If IsArray($Variable) = True Then 
MouseClick("LEFT") 
EndIf
WEnd 
Func _Exit() 
Exit 
EndFunc

#include "MouseOnEvent.au3"

HotKeySet("{F1}", "_Pause" )
HotKeySet("{F2}", "_NotPause")
HotKeySet("{F7}", "_Exit")

_MouseSetOnEvent($MOUSE_SECONDARYDOWN_EVENT, "_NotPause", 0, 1)
_MouseSetOnEvent($MOUSE_SECONDARYUP_EVENT, "_Pause", 0, 1)

Global $Paused = True
_Pause()

While 1
  If Not $Paused Then
    $Variable = PixelSearch(672,364,693,385,0xFF0000,40)
    If IsArray($Variable) = True Then
      MouseClick("LEFT")
    EndIf
  EndIf
WEnd

Func _Pause()
  $Paused = True
EndFunc

Func _NotPause()
  $Paused = False
EndFunc

Func _Exit()
  Exit
EndFunc

#include <Misc.au3>
_IsPressed($sHexKey [, $vDLL = 'user32.dll'])

#include <WinAPIEx.au3>
#include <Misc.au3>

If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
Global $Paused, $counter = 0, $amount = 6
HotKeySet("{F3}", "TogglePause")
HotKeySet("{F2}", "Terminate")
Shoot()
Func Shoot()
While 1
If _WinAPI_GetAsyncKeyState(0x02) = True Then
Local $coord = PixelSearch(672,364,693,385,0xBB1518,20)
If Not @error Then
MouseClick("Left")
MouseMove(MouseGetPos(0),MouseGetPos(1)+$amount,0)
Sleep(20)
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