Anti-AFK detection. Written in Auto-It.

[EVARGNUG]

Let's get this started:

Global $Paused
$TT = 0
$win = "- ArcheAge -"
$esVar = ""
$vRan = ""
HotKeySet("{HOME}","ToggleAntiAFK")
HotKeySet("{END}","ExitS")
Dim $TTmsg[3]
   $TTmsg[0] = 'Anti-AFK is on' & @CRLF & @CRLF & 'Press "End" to exit'
   $TTmsg[1] = 'Anti-AFK  is on' & @CRLF & @CRLF & 'Sitting down and then nodding' & @CRLF & @CRLF & 'Press "End" to exit'
   $TTmsg[2] = 'Anti-AFK  is on' & @CRLF & @CRLF & 'Jumping' & @CRLF & @CRLF & 'Press "End" to exit'
Dim $numpad[4]
   $numpad[0] = "{NUMPAD1 down}"
   $numpad[1] = "{NUMPAD1 up}"
   $numpad[2] = "{NUMPAD2 down}"
   $numpad[3] = "{NUMPAD2 up}"
Dim $jump[2]
   $jump[0] = "{SPACE down}"
   $jump[1] = "{SPACE up}"
While 1
	Sleep(1000)
 WEnd
Func ToggleAntiAFK()
   WinExists($win)
   If @error Then
	  $esVar = 1
	  ExitS()
   Else
	  $Paused = NOT $Paused
	  Tool_Tip() ; 0
	  While $Paused
		 $vRan = Random(0,2)
		 Select
			Case $vRan <= 1
			   If $esVar = 1 Then
				  ExitS()
			   Else
				  $TT = 1
				  Tool_Tip() ; 1
				  SdaN()
			   EndIf
			Case $vRan > 1
			   If $esVar = 1 Then
				  ExitS()
			   Else
				  $TT = 2
				  Tool_Tip() ; 2
				  Jump()
			   EndIf
		 EndSelect
		 $vRan = ""
		 Tool_Tip() ; 3
	  WEnd
   EndIf
   ToolTip("")
EndFunc
Func Tool_Tip()
   ToolTip($TTmsg[$TT],10,10)
   sRan()
   $TT = 0
EndFunc
Func sRan()
   $sRan = Random(2412,4689)
   $sRan = $sRan - Random(367.13, 439.52)
   Sleep($sRan)
EndFunc
Func SdaN()
   For $element In $numpad
	  ControlSend($win,"","",$element)
	  Sleep(Random(731,1049))
   Next
EndFunc
Func Jump()
   For $element In $jump
	  ControlSend($win,"","",$element)
   Next
   Sleep(Random(747,1073))
EndFunc
Func ExitS()
	Exit 0
EndFunc

1. Bind any emote to NUMPADs 1 and 2 (make sure your NUMPAD is enabled).
2. Keep jump button defaulted to SPACE.
3. Compile above, rename .exe to something unsuspicious and run.
4. HOME button to start, END to terminate.

Your character should either perform two emotes or jump. Don't use this in towns.

[TheMikael2222]

Thanks for releasing!

[EVARGNUG]

Let's get this started:

 

Global $Paused
$TT = 0
$win = "- ArcheAge -"
$vRan = ""
HotKeySet("{HOME}","ToggleAntiAFK")
HotKeySet("{END}","ExitS")
Dim $TTmsg[3]
   $TTmsg[0] = 'Anti-AFK is on' & @CRLF & @CRLF & 'Press "End" to exit'
   $TTmsg[1] = 'Anti-AFK  is on' & @CRLF & @CRLF & 'Sitting down and then nodding' & @CRLF & @CRLF & 'Press "End" to exit'
   $TTmsg[2] = 'Anti-AFK  is on' & @CRLF & @CRLF & 'Jumping' & @CRLF & @CRLF & 'Press "End" to exit'
Dim $numpad[4]
   $numpad[0] = "{NUMPAD1 down}"
   $numpad[1] = "{NUMPAD1 up}"
   $numpad[2] = "{NUMPAD2 down}"
   $numpad[3] = "{NUMPAD2 up}"
Dim $jump[2]
   $jump[0] = "{SPACE down}"
   $jump[1] = "{SPACE up}"
While 1
	Sleep(1000)
 WEnd
Func ToggleAntiAFK()
   wCheck()
   $Paused = NOT $Paused
   Tool_Tip() ; 0
   While $Paused
	  $vRan = Random(0,2)
	  Select
		 Case $vRan <= 1
			wCheck()
			$TT = 1
			Tool_Tip() ; 1
			SdaN()
		 Case $vRan > 1
			wCheck()
			$TT = 2
			Tool_Tip() ; 2
			Jump()
	  EndSelect
	  $vRan = ""
	  Tool_Tip() ; reset
   WEnd
EndFunc
Func wCheck()
   WinExists($win)
   If @Error Then
	  ExitS()
   EndIf
EndFunc
Func Tool_Tip()
   ToolTip($TTmsg[$TT],10,10)
   sRan()
   $TT = 0
EndFunc
Func sRan()
   $sRan = Random(2412,4689)
   $sRan = $sRan - Random(367.13, 439.52)
   Sleep($sRan)
EndFunc
Func SdaN()
   For $element In $numpad
	  ControlSend($win,"","",$element)
	  Sleep(Random(731,1049))
   Next
EndFunc
Func Jump()
   For $element In $jump
	  ControlSend($win,"","",$element)
   Next
   Sleep(Random(747,1073))
EndFunc
Func ExitS()
	Exit 0
EndFunc

Instructions:

1. Bind any emote to NUMPADs 1 and 2 (make sure your NUMPAD is enabled).
2. Keep jump button defaulted to SPACE.
3. Compile above, rename .exe to something unsuspicious and run.
4. HOME button to start, END to terminate.

*works on minimized

Your character should either perform two emotes or jump. Don't use this in towns.

Check inside spoiler for updated code. It now properly checks the existence of the archeage window during the loop instead of just the beginning. Not sure how to edit posts.

EDIT: nvm, guess there's a timer on editing or you can't edit OPs?

[Color]

Nice job.

[dayto1234]

Doesn't seem to work for me. Runs on desktop instead of in client

[BenXer]

Thanks dude

[three6pyro]

Error: Line 45

If

"If" statements must have a "Then" keyword.


This error pops up every time I try to run the script.


EDIT: Sorry, didn't see the updated script.

Thanks!

[Color]

[/spoiler]

Check inside spoiler for updated code. It now properly checks the existence of the archeage window during the loop instead of just the beginning. Not sure how to edit posts.

EDIT: nvm, guess there's a timer on editing or you can't edit OPs?

Yes, there's a 24 hour timer, also seems I can't run this on 64 bit..

[SaturosYuusuke]

Yes, there's a 24 hour timer, also seems I can't run this on 64 bit..

I'm on 64-bit and I can run it just fine. I did have to tweak the code a bit though.

[EVARGNUG]

Yea, if you want to modify or share the code, etc., go ahead. PM me or post here if you want me to make changes.

[CrackleSnaps]

Isn't it easier to just afk on a training dummy? Or am I missing something? I know it works, I have done it...

[SaturosYuusuke]

Yea, if you want to modify or share the code, etc., go ahead. PM me or post here if you want me to make changes.

The only real thing I had to change was:

$win = "- ArcheAge -"

to

$win = "- ArcheAge DX11 -"

Since I use DirectX 11, it changes the window name. Works perfectly otherwise though. Thanks a lot.

[Olath]

Alternativly, rather than using a script that is possibly against Eula, you can fill your backpack space, then Shift + Right click a coinpurse. Because inventory is full, it wont open, but it will also make the game think you are right clicking all the time, no afk log out.

[InfinityAri]

Sorry for being so noob, what is this compiled in/with?

[TonicWater]

Alternativly, rather than using a script that is possibly against Eula, you can fill your backpack space, then Shift + Right click a coinpurse. Because inventory is full, it wont open, but it will also make the game think you are right clicking all the time, no afk log out.

haha nice one I was simply leaving my keyboard macro to open coinpurse every 2 minutes but this one is awesome )) thanks