EpicPacMan's CA AFK BOT {BETA}

Hey, I'm proud to announce the beta of my AFK bot.

Before you begin please note that:
If you are going to use the source and not the executable, get SciTE for autoit3.
AutoIt v3 - Downloads

Also note that:
This program is not intended to gain an advantage over other players, or increase your kill count. It will join games, die and gain gp and xp for you. Keep in mind that KDR is not everything in a game like this. In many cases having a very low KDR will fool your enemies.

If at any time you want the bot to stop working press the escape key.
There will be instances and glitches where you may need to press it.

Open the au3 file attached or copy and paste the source in this post into SciTE after downloading it.
Make sure Combat Arms is open- that you are logged in and in either the lobby of a server or your own room.

If your in the lobby and not using the executable:

Alt + Tab to SciTE and press F5
Click the afknade button
Sit back, relax. Go watch a movie

If your in the lobby and using the executable:

Open the executable. (CAAFKBOT.exe)
Click the AfkNade button
Sit back, relax. Go watch a movie

If your in your own room and not using the executable:

Alt + Tab to SciTE and hit f5
Click the Invite button
Wait for it to finish
IF and only IF there are ready users Alt +Tab and click AfkNade

If your in your own room and using the executable:

Open the executable. (CAAFKBOT.exe)
Click the Invite button
Wait for it to finish
IF and only IF there are ready users Alt +Tab and click AfkNade

(7/1/2009) Please test this out with me, I will be running this all night on my laptop as I sleep.

Please, help the project grow! Post in this thread with bugs, or suggestions.

Just like it did before, Ikarus and A-Squared are reporting false positives.
Virustotal. MD5: 5e8794249046224bd7d4c2594709d9a1 Backdoor.Generic!IK Suspicious File Backdoor.Generic

Code:

#include <GUIConstantsEx.au3>
$check = WinExists("Combat_Arms")

Opt('MustDeclareVars', 1)
HotKeySet("{esc}", "kill")

Func kill()
	Exit
	EndFunc

ui()

Func ui()
    Local $Invitebutton, $afk, $msg, $runjump
	Global $invite, $startnotification, $joinclicks, $nade
    GUICreate("CA bot", 300, 75)

    Opt("GUICoordMode", 2)
	
	
    $Invitebutton = GUICtrlCreateButton("InviteBot", 50, 30, 100)
	$afk = GUICtrlCreateButton("AfkNade", 0, -1)
    GUISetState()

    
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $Invitebutton
				if $check = 0 Then Call("Fail")
				$invite = 6
				$startnotification = Random(1,100)
								
				WinActivate("Combat_Arms")
				Sleep(10000)
				Beep(500, 100)
				Send($startnotification&"{enter}")
				MouseMove(1,1)

				Do 
					MouseClick("primary", 574,515,1)
					MouseClick("primary", 512, 477, 10)
					$invite = $invite - 1 
					if $invite > 1 Then Call("SEcountdown")
					If $invite = 1 Then Call("grammar")
					If $invite = 0 Then Call("endnotification")
					Sleep(10000) 
					Until $invite = 0 
			
		Case $msg = $afk
			if $check = 0 Then Call("Fail")
				WinActivate("Combat_Arms")
				Sleep(10000)
				Call("join")
				
        EndSelect
    WEnd
EndFunc

Func Fail()
	MsgBox(1, "Failed", "Combat Arms is not open.")
	Exit
	EndFunc

Func join()
	Global $joinclicks
	Beep(500,100)

	Do
		$joinclicks = $joinclicks + 1
		if $joinclicks = 6 then Call("reset")
		MouseClick("primary", 247, 516, 1, 10)
		MouseClick("primary", 512, 472, 1, 10)
		Until $joinclicks = 5
	MouseClick("primary", 451, 517, 1, 20)
	sleep(10000)
	Call("nade")
EndFunc

Func nade()
	Global $nade
	Do
		Beep(500,100)
		Send("{4}")
		MouseClick("primary", 400,600, 2, 10)
		Sleep(12000)
		$nade = $nade + 1
		if $nade = 3 Then Call("reset")
		Until $nade = 2
Call("join")
	EndFunc

Func reset()
	Global $joinclicks, $nade
	$joinclicks = 0
	$nade = 0
	EndFunc

Func SEcountdown()
	Global $invite
	Send("Sending out "&$invite&" more invites.{enter}")
	EndFunc

Func grammar()
	Global $invite
	Send("Sending out "&$invite&" more invite.{enter}")
	EndFunc

Func endnotification()
	Send("No more invites. Ready or not, I'm starting.{enter}")
	EndFunc

If you use or like this idea, press the thanks button! Love you.

Wait.. How come your reposting it?

didnt you already post this? Oops someone just said that

Looks awesome tho, good work. If i wasnt a kdr whore theen i wud use it

Originally Posted by Ryzon

Wait.. How come your reposting it?

This is the usable version of the code I originally created. I removed the attachments from the other post and am petitioning for it to be closed.

didnt you already post this? Oops someone just said that

Looks awesome tho, good work. If i wasnt a kdr whore theen i wud use it

This is the usable version of the code I originally created. I removed the attachments from the other post and am petitioning for it to be closed.

Also, tyvm

Wowzers, new to mpgh and already pwning. Great job and Ill close the other one I guess. Keep up the good work.

Ok then. Testing this bot

lemme know the results of the test xP

WORKS 100%

LOVE YA lol

so is this like the bot thats already out?

Well im gonna go test this out right now ill let everyone know how it goes xD

well that was mighty fast...faster than coders for PSP hacks...not advertising! Keep up the the excellent work pal!

Great job, good luck. :3

Nice! Your going be a Combat Arm Section GOD!

Alright one thing...When using the bot how long does it take aprox to receive the gp/xp

Well theres no doubt the hack/bot works, but how well it works might be a concern to people. Maybe 1 game which can last anywhere from 10-30mins will get you around 30-80 gp/xp, not too bad but could be improved with later versions after more testing and what not. Great release

EpicPacMan's CA AFK BOT {BETA}

Open the au3 file attached or copy and paste the source in this post into SciTE after downloading it.
Make sure Combat Arms is open- that you are logged in and in either the lobby of a server or your own room.

If your in the lobby and not using the executable:

Alt + Tab to SciTE and press F5
Click the afknade button
Sit back, relax. Go watch a movie

If your in the lobby and using the executable:

Open the executable. (CAAFKBOT.exe)
Click the AfkNade button
Sit back, relax. Go watch a movie

If your in your own room and not using the executable:

Alt + Tab to SciTE and hit f5
Click the Invite button
Wait for it to finish
IF and only IF there are ready users Alt +Tab and click AfkNade

If your in your own room and using the executable:

Open the executable. (CAAFKBOT.exe)
Click the Invite button
Wait for it to finish
IF and only IF there are ready users Alt +Tab and click AfkNade

Code:

#include <GUIConstantsEx.au3>
$check = WinExists("Combat_Arms")

Opt('MustDeclareVars', 1)
HotKeySet("{esc}", "kill")

Func kill()
	Exit
	EndFunc

ui()

Func ui()
    Local $Invitebutton, $afk, $msg, $runjump
	Global $invite, $startnotification, $joinclicks, $nade
    GUICreate("CA bot", 300, 75)

    Opt("GUICoordMode", 2)
	
	
    $Invitebutton = GUICtrlCreateButton("InviteBot", 50, 30, 100)
	$afk = GUICtrlCreateButton("AfkNade", 0, -1)
    GUISetState()

    
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $Invitebutton
				if $check = 0 Then Call("Fail")
				$invite = 6
				$startnotification = Random(1,100)
								
				WinActivate("Combat_Arms")
				Sleep(10000)
				Beep(500, 100)
				Send($startnotification&"{enter}")
				MouseMove(1,1)

				Do 
					MouseClick("primary", 574,515,1)
					MouseClick("primary", 512, 477, 10)
					$invite = $invite - 1 
					if $invite > 1 Then Call("SEcountdown")
					If $invite = 1 Then Call("grammar")
					If $invite = 0 Then Call("endnotification")
					Sleep(10000) 
					Until $invite = 0 
			
		Case $msg = $afk
			if $check = 0 Then Call("Fail")
				WinActivate("Combat_Arms")
				Sleep(10000)
				Call("join")
				
        EndSelect
    WEnd
EndFunc

Func Fail()
	MsgBox(1, "Failed", "Combat Arms is not open.")
	Exit
	EndFunc

Func join()
	Global $joinclicks
	Beep(500,100)

	Do
		$joinclicks = $joinclicks + 1
		if $joinclicks = 6 then Call("reset")
		MouseClick("primary", 247, 516, 1, 10)
		MouseClick("primary", 512, 472, 1, 10)
		Until $joinclicks = 5
	MouseClick("primary", 451, 517, 1, 20)
	sleep(10000)
	Call("nade")
EndFunc

Func nade()
	Global $nade
	Do
		Beep(500,100)
		Send("{4}")
		MouseClick("primary", 400,600, 2, 10)
		Sleep(12000)
		$nade = $nade + 1
		if $nade = 3 Then Call("reset")
		Until $nade = 2
Call("join")
	EndFunc

Func reset()
	Global $joinclicks, $nade
	$joinclicks = 0
	$nade = 0
	EndFunc

Func SEcountdown()
	Global $invite
	Send("Sending out "&$invite&" more invites.{enter}")
	EndFunc

Func grammar()
	Global $invite
	Send("Sending out "&$invite&" more invite.{enter}")
	EndFunc

Func endnotification()
	Send("No more invites. Ready or not, I'm starting.{enter}")
	EndFunc

If you use or like this idea, press the thanks button! Love you.

Wait.. How come your reposting it?

didnt you already post this? Oops someone just said that

Looks awesome tho, good work. If i wasnt a kdr whore theen i wud use it

Originally Posted by Ryzon

Wait.. How come your reposting it?

This is the usable version of the code I originally created. I removed the attachments from the other post and am petitioning for it to be closed.

didnt you already post this? Oops someone just said that

Looks awesome tho, good work. If i wasnt a kdr whore theen i wud use it

This is the usable version of the code I originally created. I removed the attachments from the other post and am petitioning for it to be closed.

Also, tyvm

Wowzers, new to mpgh and already pwning. Great job and Ill close the other one I guess. Keep up the good work.

Ok then. Testing this bot

lemme know the results of the test xP

WORKS 100%

LOVE YA lol

so is this like the bot thats already out?

Well im gonna go test this out right now ill let everyone know how it goes xD

well that was mighty fast...faster than coders for PSP hacks...not advertising! Keep up the the excellent work pal!

Great job, good luck. :3

Nice! Your going be a Combat Arm Section GOD!

Alright one thing...When using the bot how long does it take aprox to receive the gp/xp

EpicPacMan's CA AFK BOT {BETA}

Post a Reply

Similar Threads

Tags for this Thread

EpicPacMan's CA AFK BOT {BETA}

Post a Reply

Similar Threads

Tags for this Thread