Code:
#Persistent
Pids := Object()
SetTimer, A, 2199
return
numpad1::
WinGet, APID, PID, A
WinGetTitle, winTitle, ahk_pid %APID%
if (winTitle = "Trove"){
found = 0
for i, p in Pids
if (p=APID)
found=1
if (found!=1){
Pids.Insert(APID)
}else{
newPids := Object()
for i, p in Pids
if (p!=APID)
newPids.Insert(p)
Pids := newPids
}
}
return
A:
for i, d in Pids{
R()
ControlSend, , {F3 down}, ahk_pid %d%
R()
ControlSend, , {F3 up}, ahk_pid %d%
R()
ControlSend, , {F4 down}, ahk_pid %d%
R()
ControlSend, , {F4 up}, ahk_pid %d%
R()
ControlSend, , {w down}, ahk_pid %d%
Sleep, 1000
R()
ControlSend, , {w up}, ahk_pid %d%
}
return
Numpad0::
ExitApp
R()
{
Random, W, 199, 259
Sleep, %W%
}