AutoHotkey Community

Code: Select all

Letters := StrSplit("wasd")

F7::SetTimer SendLetter, 5000
F8::SetTimer SendLetter, Off

SendLetter:
	Send % Letters[rand(1, Letters.Count())]	
Return

rand(a, b) {
	Random rand, a, b
	return rand
}

Code: Select all

2::
Pause

1::
Antiafk:
Send {F7}
Sleep 5000
Send {F8}
GoTo Antiafk

Return

Code: Select all

8::
Send {W down}
Sleep 3000
Send {W up}

Code: Select all

#SingleInstance, Force ; Forces a single instance of the script. Useful if you edit and re-open your script many times.
#InstallKeybdHook ; Keyboard hook. Higher chances to make it work with your game.
SetKeyDelay, 100, 200 ; High delay to make sure your hotkeys work. You can lower these values as long as they work!

if not A_IsAdmin ; Admin rights checker.
{
   Run *RunAs "%A_ScriptFullPath%"  
   ExitApp
}

1::
	Loop ; The actual loop. Sends W, waits about 5 seconds, sends S. Should be enough to fool an anti-afk. Customizable, of course.
	{
		Send {W}
		RandSleep(4600,5400)
		Send {S}
		RandSleep(4400,5600)
	}
	Return

2::Pause ; Pause the script (and resume).


;--V Functions down here V--


RandSleep(x,y) ; Neat function to have random sleep times.
{
	Random, rand, %x%, %y%
	Sleep %rand%
}