Hey, I'm proud to announce the second release (beta) of my AFK bot.
The other topic won't let me edit my fucking posts.
This raises the question, because I make so many new updates am I allowed to make a new topic for each one? Hmm.
It was made aware to me that the notification beeps were annoying and unwanted. I added a check box. Leave it unchecked if you don't want sound!
OH MAN! As more features become available, these buttons will become active and more tabs will be added to accommodate the features with options.
Please, help the project grow! Post in this thread with bugs, or suggestions.
Code:
#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
Global $invite, $startnotification, $joinclicks, $nade, $sound, $check
$check = WinExists("Combat_Arms")
Opt('MustDeclareVars', 1)
HotKeySet("{esc}", "kill")
Func kill()
Exit
EndFunc
ui()
Func ui()
Local $Invitebutton, $afk, $msg, $runjump, $background, $background2, $kill
GUICreate("EpicPacMan .::[afk bot]::.", 300, 400)
GuiCtrlCreateTab(1, 0, 300, 400)
GuiCtrlCreateTabItem("AFK BOT")
GUISetBkColor(0xFFFFFF)
$background = GUICtrlCreatePic("bg/2.jpg", 2, 23, 296, 376)
GUICtrlSetState($background, $GUI_DISABLE)
Opt("GUICoordMode", 1)
GuiCtrlCreateTab(20, 100, 50, 50)
$Invitebutton = GUICtrlCreateButton("InviteBot", 100, 110, 100, default, $BS_DEFPUSHBUTTON)
$afk = GUICtrlCreateButton("AFK-NADE", 100, 140, 100)
$kill = GUICtrlCreateButton("Exit CA FAST", 100, 170, 100)
$sound = GUICtrlCreateCheckbox("Sound?", 100, 90)
GuiCtrlCreateTabItem("Unreleased")
$background2 = GUICtrlCreatePic("bg/3.jpg", 2, 23, 296, 376)
GUICtrlSetState($background2, $GUI_DISABLE)
GUICtrlCreateButton("AIMBOT", 100, 90, 100, default, $WS_DISABLED)
GUICtrlCreateButton("Account Creation", 100, 140, 100, default, $WS_DISABLED)
GUICtrlCreateButton("Net Taping", 100, 170, 100, default, $WS_DISABLED)
GUICtrlCreateButton("Dual Bot Farmer ", 100, 200, 100, default, $WS_DISABLED)
GUICtrlCreateButton("Team Killer", 100, 230, 100, default, $WS_DISABLED)
GUICtrlCreateButton("Auto Glitch ", 100, 260, 100, default, $WS_DISABLED)
GUICtrlCreateButton("Filter Work Around", 100, 290, 100, default, $WS_DISABLED)
GUICtrlCreateButton("Chat A.I.", 100, 320, 100, default, $WS_DISABLED)
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)
If GUICtrlRead($sound) = $gui_CHECKED Then 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")
Case $msg = $kill
if $check = 0 Then Call("Fail")
WinClose("Combat_Arms")
EndSelect
WEnd
EndFunc
Func Fail()
MsgBox(0, "Failed", "Combat Arms is not open.")
Exit
EndFunc
Func join()
Global $joinclicks
If GUICtrlRead($sound) = $gui_CHECKED Then 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
If GUICtrlRead($sound) = $gui_CHECKED Then 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