Code: Select all
#NoEnv
SetWorkingDir %A_ScriptDir%
#SingleInstance force
#MaxThreadsBuffer on
SetTitleMatchMode, 2
;#IfWinActive r5apex.exe
SetBatchLines -1 ;removes default 10ms delay between lines
#MaxHotkeysPerInterval 99000000
#HotkeyInterval 99000000
#KeyHistory 0
ListLines Off
SetKeyDelay, -1, -1
SetMouseDelay, -1
SetDefaultMouseSpeed, 0
SetWinDelay, -1
*1::CADMode = 1
*2::CADMode = 2
*3::CADMode = 3
*4::CADMode = 4
#If (CADMode = 1)
1::
ttflagw1 = ((ttflagw1 +1) & 1)
if (ttflagw1)
ToolTip, Dropshot, 200, 2000
SetTimer RemoveToolTip, 300
*~$LButton::
KeyWait, LButton, T0.20
If (ErrorLevel)
{
while GetKeyState("LButton")
{
; if not GetKeyState("q")
Send, {ctrl}
KeyWait, LButton
Send, {ctrl}
}
}
return
; Mode #2
#If (CADMode = 2)
2::
ttflagw1 = ((ttflagw1 +1) & 1)
if (ttflagw1)
ToolTip, RapidFire, 200, 2000
SetTimer RemoveToolTip, 300
*~$LButton::
Loop
{
SetMouseDelay 20
Click
If (GetKeyState("LButton","P")=0)
Break
}
; Mode #3
#If (CADMode = 3)
_nr := False
Compensation = 1
_compVal = 1 ; Compensation value
~LButton::norecoil() ; Left Trigger
~3::
Suspend
SetTimer RemoveToolTip, 1
Pause ,,1
SetTimer RemoveToolTip, 3000
if A_IsPaused {
ToolTip, Recoil/OFF, 200, 2000 ,
return
SetTimer RemoveToolTip, 1
} else {
ToolTip, Recoil/ON, 200, 2000
SetTimer RemoveToolTip, 1000
}
_nr := ! _nr ; dont touch
return
norecoil()
{
global
if _nr
{
Loop{
if Compensation = 1
if GetKeyState("LButton", "P")
{
mouseXY(0, _compVal)
Sleep 30
mouseXY(0, _compVal)
Sleep 50
}
else
break
} ;; loop
} ;; if
} ;; norecoil()
mouseXY(x,y)
{
DllCall("mouse_event",uint,1,int,x,int,y,uint,0,int,0)
}
ToolTip(Text)
{
ToolTip, %Text%, xPos, yPos
SetTimer, RemoveToolTip, 1300
return
RemoveToolTip:
SetTimer, RemoveToolTip, Off
ToolTip
Return
}
~NumpadAdd:: ; Adds compensation.
_compVal := _compVal + 1
ToolTip("more " . _compVal)
Return
~NumpadSub:: ; Substracts compensation.
if _compVal > 0
{
_compVal := _compVal - 1
ToolTip("less " . _compVal)
}
return
~*$LButton::
Loop
{
GetKeyState, state, Lbutton, P
if state=u
break
mouseXY(1,1)
sleep 1
mouseXY(Slider,1)
sleep 1
mouseXY(Slider,-1)
sleep 1
mouseXY(-1,0)
sleep 1
mouseXY(Slider,1)
sleep 1
mouseXY(Slider,-1)
sleep 1
}
return
mouseXY(x,y)
#If (CADMode = 4)
4::
ttflagw1 = ((ttflagw1 +1) & 1)
if (ttflagw1)
ToolTip, OFF, 200, 2000
SetTimer RemoveToolTip, 300