;Universal AimKey AimBot Script Support by serge @ucforum

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include<misc.au3>
#RequireAdmin
#NoTrayIcon

Opt("MouseClickDelay", 1)
Opt("MouseClickDownDelay", 1)
Opt("SendKeyDelay", 1)
Opt("SendKeyDownDelay", 1)

HotKeySet("{Numpad5}", "SprayTap")
HotKeySet("{Numpad6}", "SingleTap")
HotKeySet("{Del}", "EndApp")
HotKeySet("{Ins}", "Gui")

Global $Alive
Global $DelayShot = 50
Global $SingleTapCount = 0

Beep(800,200)

While 1
Sleep(50)
WEnd

func Gui()

$Form1 = GUICreate("Delay Shot", 250, 150, 400, 400)
$DelayShot = GUICtrlCreateInput($DelayShot, 25, 50, 200, 0)
$Button1 = GUICtrlCreateButton("Set", 0, 100, 250, 21, $WS_GROUP)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
If WinActive("Delay Shot") And _IsPressed("0D") Then
Send("{Tab}{Enter}")
EndIf
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$DelayShot = GUICtrlRead($DelayShot)
GUIDelete($Form1)
EndSwitch
WEnd
EndFunc

func SingleTap()
Beep(800,100)
   $Alive = Not $Alive
   While $Alive
Sleep(1)
If _IsPressed("01") Then
If $SingleTapCount = 0 Then
DllCall('user32.dll', 'none', 'mouse_event', 'dword', 128, 'dword', 0, 'dword', 0, 'dword', 1, 'ptr', 0)
 Sleep($DelayShot)
DllCall('user32.dll', 'none', 'mouse_event', 'dword', 256, 'dword', 0, 'dword', 0, 'dword', 1, 'ptr', 0)
  MouseDown("Middle")
   $SingleTapCount = $SingleTapCount + 1
EndIf
    ElseIf Not _IsPressed("01") And $SingleTapCount >= 1 Then
       MouseUp("Middle")
    $SingleTapCount = 0
    EndIf
       WEnd
EndFunc

func SprayTap()
Beep(800,100)
   $Alive = Not $Alive
   While $Alive
Sleep(1)
If _IsPressed("01") Then
DllCall('user32.dll', 'none', 'mouse_event', 'dword', 128, 'dword', 0, 'dword', 0, 'dword', 1, 'ptr', 0)
 Sleep($DelayShot)
  MouseDown("Middle")
    ElseIf Not _IsPressed("01") Then
DllCall('user32.dll', 'none', 'mouse_event', 'dword', 256, 'dword', 0, 'dword', 0, 'dword', 1, 'ptr', 0)
       MouseUp("Middle")
    EndIf
       WEnd
EndFunc

func EndApp()
Beep(400,700)
Exit 0
EndFunc