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