I bring you tidings of joy, and source code.

[EpicPacMan]

Only because I love you guys <3

I've been thinking about moving my efforts more to world of warcraft- afk bots in an MMO are quite handy I hear. That being said, I offer my source for the afk utility to all you hungry people (and nexon spies).

The last bot was only patched by the coords I used with the mouse. This version of code here has been (until just now) kept private. Make sure if you compile it- open it after you load into the game. <3

It is my opinion that even after months of really sitting on my ass and not working very hard on this it continues to kick all other afk bots asses hands down. I mean, I went and got some vip for ca a while back just to play around, and from what I've seen-(lmao) ****** can suck my dick.

ok ok. This is for you coders who want to further your knowledge and to advance your own bots with my methods. I'm not going to explain the whole thing in detail, as if you are a real coder- all you would have to do is read it line for line and assume what you read is what the code does.

#RequireAdmin
#RequireAdmin
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiEdit.au3>
#include <IE.au3> 
#include <Array.au3>
Global $invite, $startnotification, $joinclicks, $sound, $check, $Paused, $name, $master, $check1, $url, $auth, $webcheck
Global $login, $pass, $L1, $L2, $L3, $P1, $P2, $P3, $setP, $setL, $login1, $login2, $login3, $USERNAME, $PASSWORD, $log
Global $combo, $detect, $detect2, $left, $right, $forward, $back, $jump, $nade, $shoot, $pistolgenerator, $turngenerator
Global $shoot, $shoot_more, $shoot_even_more, $reload, $tapseconds, $connection

Dim $fix[1]



$webcheck = 1
if $webcheck <> 1 then Call("webcheck")

$L1 = iniread("config.ini", "L1", "login", "none")
$P1 = iniread("config.ini", "L1", "pass", "0")
$L2 = iniread("config.ini", "L2", "login", "none")
$P2 = iniread("config.ini", "L2", "pass", "0")
$L3 = iniread("config.ini", "L3", "login", "none")
$P3 = iniread("config.ini", "L3", "pass", "0")
$L4 = iniread("config.ini", "L4", "login", "none")
$P4 = iniread("config.ini", "L4", "pass", "0")
$L5 = iniread("config.ini", "L5", "login", "none")
$P5 = iniread("config.ini", "L5", "pass", "0")
$L6 = iniread("config.ini", "L6", "login", "none")
$P6 = iniread("config.ini", "L6", "pass", "0")
$L7 = iniread("config.ini", "L7", "login", "none")
$P7 = iniread("config.ini", "L7", "pass", "0")
$L8 = iniread("config.ini", "L8", "login", "none")
$P8 = iniread("config.ini", "L8", "pass", "0")
$L9 = iniread("config.ini", "L9", "login", "none")
$P9 = iniread("config.ini", "L9", "pass", "0")
$L10 = iniread("config.ini", "L10", "login", "none")
$P10 = iniread("config.ini", "L10", "pass", "0")

AutoItSetOption("MouseCoordMode", 0)

;vvvvvv hotkeys vvvvvvvvvvvvvvvv
Opt('MustDeclareVars', 1)
HotKeySet("!{q}", "kill")
HotKeySet("{f6}", "mastercall")
HotKeySet("{f7}", "TogglePause")
HotKeySet("!{3}", "invitebot")
hotkeyset("{|}", "betaresponse")
HotKeySet("{\}","spam")
HotKeySet("{`}", "tap")
;^^^^^^^end hotkeys^^^^^^^^^^^^^^


;vvvvvvvvvvvvvvvvvvvv Interface vvvvvvvvvvvvvvvvvvvvvvvvvvv
ui()
Func ui()
    Local $Invitebutton, $afk, $msg, $runjump, $background, $background2, $background3, $background4,$loginstart
	Local $kill, $whitewalloff, $whitewallon, $whitepeopleon, $whitepeopleoff, $loginstart, $noinvites, $loginselect

	$name = Random(1,100)
    GUICreate($name, 300, 400)
	GuiCtrlCreateTab(1, 0, 300, 400)

	GUISetBkColor(0x000000)
	GUICtrlSetState($background, $GUI_DISABLE)
    Opt("GUICoordMode", 1)
	
	GUICtrlCreateTabitem("Hotkeys")
	$background3 = GUICtrlCreatePic("bg/1.jpg", 2, 23, 296, 376)
	
	GuiCtrlCreateTabItem("AFK UTILITY")
	
	
	$background = GUICtrlCreatePic("bg/2.jpg", 2, 23, 296, 376)
	GUICtrlSetState($background, $GUI_DISABLE)
	GUISetBkColor(0x000000)

	


	$Invitebutton = GUICtrlCreateButton("InviteBot", 100, 140, 100, default, $BS_DEFPUSHBUTTON)
	$afk = GUICtrlCreateButton("AfkBot", 100, 170, 100)
	$kill = GUICtrlCreateButton("Exit CA FAST", 100, 200, 100)
	$whitewallon = GUICtrlCreateButton("White Wall On", 70, 230, 80, default)
	$whitewalloff = GUICtrlCreateButton("White Wall Off", 150, 230, 80, default)
	$whitepeopleon = GUICtrlCreateButton("WhitePeople On", 65, 260, 85, default)
	$whitepeopleoff = GUICtrlCreateButton("WhitePeople Off", 150, 260, 85, default)
	$connection = GUICtrlCreateEdit("Connection Name", 152, 290, 100, 20, $GUI_DISABLE)
	$tapseconds = GUICtrlCreateEdit("TapTime, in Sec's", 50, 290, 100, 20, $GUI_DISABLE)
	GUICtrlCreateLabel("Tap Time is in seconds.", 50, 315)
	GUICtrlSetColor(-1, 0x60ff00)
	GUICtrlCreateLabel("Connection name is CaSe SeNsItIve", -1, 330)
	GUICtrlSetColor(-1, 0x60ff00)	
	
	
	GUICtrlCreateTabItem("Login [VISTA ONLY]")
	$background4 = GUICtrlCreatePic("bg/4.jpg", 2, 23, 296, 376)	
	GUICtrlSetState($background4, $GUI_DISABLE)
	GUISetBkColor(0x000000)
	$login = GUICtrlCreateEdit("", 40, 80, 100, 20)
	GUICtrlCreateLabel("<---- Username", 150, -1)
	GUICtrlSetColor(-1, 0x60ff00)
	$pass = GUICtrlCreateEdit("", 40, 115, 100, 20)
	GUICtrlCreateLabel("<---- Password", 150, -1)
	GUICtrlSetColor(-1, 0x60ff00)
	$loginstart = GUICtrlCreateButton("LOGIN!", 40, 140, 100)
	$combo = GUICtrlCreateCombo("Accounts", 150, 142, 100, 20)
	GUICtrlSetData(-1, $L1&"|"&$L2&"|"&$L3&"|"&$L4&"|"&$L5&"|"&$L6&"|"&$L7&"|"&$L8&"|"&$L9&"|"&$L10, "") 
	GUICtrlCreateLabel("Edit Config.ini with your login information.", 40, 170)
	GUICtrlSetColor(-1, 0x60ff00)		
		

	
	GuiCtrlCreateTabItem("OPTIONS")
	$background2 = GUICtrlCreatePic("bg/3.jpg", 2, 23, 296, 376)
	GUICtrlSetState($background2, $GUI_DISABLE)
	$sound = GUICtrlCreateCheckbox("", 50, 80)
	GUICtrlCreateLabel("Sound", 70, 77)
	GUICtrlSetColor(-1, 0x60ff00)
	$left =  GUICtrlCreateCheckbox("", 50, 100)
	GUICtrlCreateLabel("Left", 70, 97)
	GUICtrlSetColor(-1, 0x60ff00)
	
	
	$right = GUICtrlCreateCheckbox("", 50, 120)
	GUICtrlCreateLabel("Right", 70, 117)
	GUICtrlSetColor(-1, 0x60ff00)
	
	$forward = GUICtrlCreateCheckbox("", 50, 140)
	GUICtrlCreateLabel("Forward", 70, 137)
	GUICtrlSetColor(-1, 0x60ff00)
	
	$back = GUICtrlCreateCheckbox("", 50, 160)
	GUICtrlCreateLabel("Back", 70, 157)
	GUICtrlSetColor(-1, 0x60ff00)
	
	$jump = GUICtrlCreateCheckbox("", 50, 180)
	GUICtrlCreateLabel("Jump", 70, 177)
	GUICtrlSetColor(-1, 0x60ff00)
	
	$nade = GUICtrlCreateCheckbox("", 50, 200)
	GUICtrlCreateLabel("Nade", 70, 197)
	GUICtrlSetColor(-1, 0x60ff00)
	
	$shoot = GUICtrlCreateCheckbox("", 50, 220)
	GUICtrlCreateLabel("Shoot", 70, 217)
	GUICtrlSetColor(-1, 0x60ff00)
	
	$pistolgenerator = GUICtrlCreateCheckbox("", 50, 240)
	GUICtrlCreateLabel("Pistol", 70, 237)
	GUICtrlSetColor(-1, 0x60ff00)
	
	$turngenerator = GUICtrlCreateCheckbox("", 50, 260)
	GUICtrlCreateLabel("Turn", 70, 257)
	GUICtrlSetColor(-1, 0x60ff00)
	
	$shoot = GUICtrlCreateCheckbox("", 50, 280)
	GUICtrlCreateLabel("Shoot", 70, 277)
	GUICtrlSetColor(-1, 0x60ff00)
	
	$shoot_more = GUICtrlCreateCheckbox("", 50, 300)
	GUICtrlCreateLabel("Shoot More", 70, 297)
	GUICtrlSetColor(-1, 0x60ff00)
	
	$shoot_even_more = GUICtrlCreateCheckbox("", 50, 320)
	GUICtrlCreateLabel("Shoot Even More", 70, 317)
	GUICtrlSetColor(-1, 0x60ff00)
	
	$reload = GUICtrlCreateCheckbox("", 50, 340)
	GUICtrlCreateLabel("Reload", 70, 337)
	GUICtrlSetColor(-1, 0x60ff00)

	
	GUISetState()

    
    While 1
        $msg = GUIGetMsg()		
		
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $Invitebutton
				Call("invitebot")
			
		Case $msg = $afk
			$check = WinExists("Combat_Arms")
			if $check = 0 Then Call("Fail")
			WinActivate("Combat_Arms")
			Sleep(10000)
			Call("mastercall")

			Case $msg = $kill
			$check = WinExists("Combat_Arms")
			if $check = 0 Then Call("Fail")
				WinClose("Combat_Arms")
				
		Case $msg = $whitewallon
			$check = WinExists("Combat_Arms")
			if $check = 1 Then Call("CloseCA")
			DirCreate("C:\Nexon\Combat Arms\Game\textures\")
			FileMove("C:\Nexon\Combat Arms\Game\TEXTURES.rez", "C:\Nexon\Combat Arms\Game\textures\TEXTURES.rez")	
			Call("texturecheck")
			
		Case $msg = $whitewalloff
			$check = WinExists("Combat_Arms")
			if $check = 1 Then Call("CloseCA")
			FileMove("C:\Nexon\Combat Arms\Game\textures\TEXTURES.rez", "C:\Nexon\Combat Arms\Game\TEXTURES.rez")
			DirRemove("C:\Nexon\Combat Arms\Game\textures\")
			Call("texturecheck")
			
		Case $msg = $whitepeopleon
			$check = WinExists("Combat_Arms")
			if $check = 1 Then Call("CloseCA")
			DirCreate("C:\Nexon\Combat Arms\Game\textures\")
			FileMove("C:\Nexon\Combat Arms\Game\CHARS_T_BODY.rez", "C:\Nexon\Combat Arms\Game\textures\CHARS_T_BODY.rez")
			FileMove("C:\Nexon\Combat Arms\Game\CHARS_T_FACE.rez", "C:\Nexon\Combat Arms\Game\textures\CHARS_T_FACE.rez")
			FileMove("C:\Nexon\Combat Arms\Game\CHARS_T_HAND.rez", "C:\Nexon\Combat Arms\Game\textures\CHARS_T_HAND.rez")
			FileMove("C:\Nexon\Combat Arms\Game\CHARS_T_HEAD.rez", "C:\Nexon\Combat Arms\Game\textures\CHARS_T_HEAD.rez")
			Call("texturecheck1")
			
		Case $msg = $whitepeopleoff
			$check = WinExists("Combat_Arms")
			if $check = 1 Then Call("CloseCA")
			FileMove("C:\Nexon\Combat Arms\Game\textures\CHARS_T_BODY.rez", "C:\Nexon\Combat Arms\Game\CHARS_T_BODY.rez")
			FileMove("C:\Nexon\Combat Arms\Game\textures\CHARS_T_FACE.rez", "C:\Nexon\Combat Arms\Game\CHARS_T_FACE.rez")
			FileMove("C:\Nexon\Combat Arms\Game\textures\CHARS_T_HAND.rez", "C:\Nexon\Combat Arms\Game\CHARS_T_HAND.rez")
			FileMove("C:\Nexon\Combat Arms\Game\textures\CHARS_T_HEAD.rez", "C:\Nexon\Combat Arms\Game\CHARS_T_HEAD.rez")
			DirRemove("C:\Nexon\Combat Arms\Game\textures\")
			Call("texturecheck1")
			
		Case $msg = $loginstart
			if GUICtrlRead($combo) == "Accounts" Then Call("login")
			if GUICtrlRead($combo) <> "Accounts" then call("inilogin") 			
        EndSelect
    WEnd
EndFunc

;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ end user interface ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

;vvvvvvvvvvvvvvvvvvvv FUNCTIONS vvvvvvvvvvvvvvvvvvvvvvvv

Func betaresponse()
Local $wordgen, $string
$wordgen = Random(1, 15, 1)

if $wordgen = 1 then $string = "I've been playing a long time, I know most of the hiding spots."
if $wordgen = 2 then $string = "I always check there"
if $wordgen = 3 then $string = "It's an obvious spot."
if $wordgen = 4 then $string = "I have good reflexes :/"
if $wordgen = 5 then $string = "I use that spot often"
if $wordgen = 6 then $string = "People usually kill me from there."
if $wordgen = 7 then $string = "im legit"
if $wordgen = 8 then $string = "wt f is chams?"
	
ClipPut($string)
ControlSend("Combat_Arms", "", "", "{enter}^{v}{enter}")
EndFunc

Func kill()
	call("undo")
	Exit
	EndFunc

Func mastercall()
	HotKeySet("{f6}")
	$check = WinExists("Combat_Arms")
	if $check = 0 then call("fail")
	if $check = 1 then WinActivate("Combat_Arms")
	$master = 0
	Do
		Call("masterfunction")
		Until $master = 1
	EndFunc

Func TogglePause()
	Call("undo")
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('"Paused: Hit F7 to unpause. F6 is disabled."',0,0)
    WEnd
    ToolTip("")
	EndFunc

func texturecheck()
	if FileExists("C:\Nexon\Combat Arms\Game\textures\TEXTURES.rez") then MsgBox(1, "File Check", "'White Wall' Enabled")
	if FileExists("C:\Nexon\Combat Arms\Game\TEXTURES.rez") Then msgBox(1, "File Check", "'White Wall' is Disabled")
	EndFunc
	
func texturecheck1()
	if FileExists("C:\Nexon\Combat Arms\Game\textures\CHARS_T_HEAD.rez") then MsgBox(1, "File Check", "'White People' Enabled")
	if FileExists("C:\Nexon\Combat Arms\Game\CHARS_T_HEAD.rez") Then msgBox(1, "File Check", "'White People' is Disabled")
	EndFunc

Func spam()
	ControlSend("Combat_Arms", "", "", Random(1, 100))
	EndFunc
	
Func redglitch()
	ControlSend("Combat_Arms", "", "", "StartMessge@[GM Notification] : ")
	EndFunc

func CloseCA()
	MsgBox(0, "Failed", "Combat Arms is open. Close Combat Arms and try again.")
	Exit
	EndFunc

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

Func masterfunction()
	$check = WinExists("Combat_Arms")
	if $check = 0 then call("fail")
	if $check = 1 then WinActivate("Combat_Arms")
	$detect = WinGe***ientSize("")
	$check1 = MouseGetPos()
	if $detect[0] = 1024 then Call("join")		
	if $check1[0] = 400 or 512 or 640 or 720 then call("generate")
	EndFunc
	
Func join()
	If GUICtrlRead($sound) = $gui_CHECKED Then Beep(500,100)
	Do
		$check = WinExists("Combat_Arms")
		if $check = 0 then call("fail")
		$joinclicks = $joinclicks + 1
		if $joinclicks = 3 then Call("reset")
		WinActivate("Combat_Arms")
		MouseClick("primary", 452, 519, 1, 1); Ready/Start	
		MouseClick("primary", 512, 474, 1, 1); Error Message		
		MouseClick("primary", 582, 514, 1, 1); Invites
		MouseClick("primary", 512, 474, 1, 1); Error Message
		Until $joinclicks = 2
		MouseClick("primary", 991, 733, 1, 1); ScoreBoard		
	EndFunc
	
Func invitebot()
	$check = WinExists("Combat_Arms")
	if $check = 0 Then Call("Fail")
	if $check = 1 then WinActivate("Combat_Arms")
	$invite = 6
	$startnotification = Random(1,100)
	WinActivate("Combat_Arms")
	Sleep(10000)
	If GUICtrlRead($sound) = $gui_CHECKED Then Beep(500, 100)
	ControlSend("Combat_Arms", "", "", $startnotification&"{enter}")
	MouseMove(1,1)
	Do 
		MouseClick("primary", 573, 514, 1)
		MouseClick("primary", 511, 476, 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 
	EndFunc

Func reset()
	$joinclicks = 0
	EndFunc

Func SEcountdown()
	ControlSend("Combat_Arms", "", "", "Sending out "&$invite&" more invites.{enter}")
	EndFunc

Func grammar()
	ControlSend("Combat_Arms", "", "", "Sending out "&$invite&" more invite.{enter}")
	EndFunc

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

Func tap()
	Local $tap, $seconds, $connectionname
	$seconds = _GUICTRLEDIT_GETTEXT($tapseconds)
	$connectionname = _GUICTRLEDIT_GETTEXT($connection)
	$tap = $seconds * 1000
	Run(@ComSpec & " /c " & 'netsh wlan disconnect', "", @SW_HIDE)
	Sleep(1000)
	Beep(500, 100)
	Sleep($tap)
	Beep(500, 100)
	Run(@ComSpec & " /c " & 'netsh wlan connect ' & $connectionname, "", @SW_HIDE)
	EndFunc
;GENERATOR section

Func generate()
	if $detect[0] = 1024 then Return
	Local $var, $var2, $timer
	$check = WinExists("Combat_Arms")
	if $check = 0 Then Call("Fail")
	if $check = 1 then WinActivate("Combat_Arms")
	Call("clickfix")
	$var = Random(1,13,1)
	$var2 = Random(1, 3, 1)

	If GUICtrlRead($left) = $gui_CHECKED and $var = 1 Then Call("left")
	If GUICtrlRead($right) = $gui_CHECKED and $var = 2 Then Call("right")
	If GUICtrlRead($forward) = $gui_CHECKED and $var = 3 Then Call("forward")
	If GUICtrlRead($back) = $gui_CHECKED and $var = 4 Then Call("back")
	If GUICtrlRead($jump) = $gui_CHECKED and $var = 5 Then Call("jump")
	If GUICtrlRead($nade) = $gui_CHECKED and $var = 6 Then Call("nade")
	If GUICtrlRead($shoot) = $gui_CHECKED and $var = 7 Then Call("shoot")
	If GUICtrlRead($pistolgenerator) = $gui_CHECKED and $var = 8 Then Call("pistolgenerator")
	If GUICtrlRead($turngenerator) = $gui_CHECKED and $var = 9 Then Call("turngenerator")
	If GUICtrlRead($shoot) = $gui_CHECKED and $var = 10 Then Call("shoot")
	If GUICtrlRead($shoot_more) = $gui_CHECKED and $var = 11 Then Call("shoot")
	If GUICtrlRead($shoot_even_more) = $gui_CHECKED and $var = 12 Then Call("shoot")
	If GUICtrlRead($reload) = $gui_CHECKED and $var = 13 then call("reload")
	
	if $var2 = 1 then $timer = 500
	if $var2 = 2 then $timer = 1000
	if $var2 = 3 then $timer = 1500
	Sleep($timer)
	Call("undo")
	EndFunc

Func left()
	ControlSend("Combat_Arms", "", "", "{left down}")
	EndFunc

Func right()
	ControlSend("Combat_Arms", "", "", "{right down}")
	EndFunc

Func forward()
	ControlSend("Combat_Arms", "", "", "{w down}")
	EndFunc

Func back()
	ControlSend("Combat_Arms", "", "", "{s down}")
	EndFunc

Func nade()
	ControlSend("Combat_Arms", "", "", "{4}")
	Sleep(500)
	MouseClick("primary")
	EndFunc
	
Func shoot()
	ControlSend("Combat_Arms", "", "", "{1}")
	Sleep(1500)
	MouseClick("primary", $fix[0], $fix[1], 30)
	EndFunc

Func pistolgenerator()
	local $var4 
	$var4 = Random(1, 4, 1)
	ControlSend("Combat_Arms", "", "", "{2}")
	if $var4 = 1 then MouseClick("primary", $fix[0], $fix[1], $var4, 50) 
	if $var4 = 2 then MouseClick("primary", $fix[0], $fix[1], $var4, 50)
	if $var4 = 3 then MouseClick("primary", $fix[0], $fix[1], $var4, 50)
	if $var4 = 4 then MouseClick("primary", $fix[0], $fix[1], $var4, 50)
	EndFunc

Func turngenerator()
	Local $var5
	$var5 = Random(1, 12, 1)
	if $var5 = 1 then ControlSend("Combat_Arms", "", "", "{w down}{right down}") 
	if $var5 = 2 then ControlSend("Combat_Arms", "", "", "{w down}{left down}")
	if $var5 = 3 then ControlSend("Combat_Arms", "", "", "{w down}{a down}")
	if $var5 = 4 then ControlSend("Combat_Arms", "", "", "{w down}{d down}")
	if $var5 = 5 then ControlSend("Combat_Arms", "", "", "{s down}{right down}")
	if $var5 = 6 then ControlSend("Combat_Arms", "", "", "{s down}{left down}")
	if $var5 = 7 then ControlSend("Combat_Arms", "", "", "{s down}{a down}")
	if $var5 = 8 then ControlSend("Combat_Arms", "", "", "{s down}{d down}")
	if $var5 = 9 then ControlSend("Combat_Arms", "", "", "{a down}{right down}")
	if $var5 = 10 then ControlSend("Combat_Arms", "", "", "{a down}{left down}")
	if $var5 = 11 then ControlSend("Combat_Arms", "", "", "{d down}{right down}")
	if $var5 = 12 then ControlSend("Combat_Arms", "", "", "{d down}{left down}")
	EndFunc

func reload()
	ControlSend("Combat_Arms", "", "", "{r 3}")
	EndFunc

;vvvvvvvvvvvvvv Jump Generator vvvvvvvvvvv
Func jump()
	Local $var3
	$var3= Random(1, 4, 1)
	if $var3 = 1 then call("nw") 
	if $var3 = 2 then call("ne")
	if $var3 = 3 then call("sw")
	if $var3 = 4 then call("se")
	EndFunc

func nw()
	ControlSend("Combat_Arms", "", "", "{w down}{left down}{space down}")
	Call("undo")
	EndFunc

func ne()
	ControlSend("Combat_Arms", "", "", "{w down}{right down}{space down}")
	Call("undo")
	EndFunc

func sw()
	ControlSend("Combat_Arms", "", "", "{s down}{left down}{space down}")
	Call("undo")
	EndFunc

func se()
	ControlSend("Combat_Arms", "", "", "{s down}{right down}{space down}")
	Call("undo")
	EndFunc
;^^^^^^^^^^ end jump generator ^^^^^^^

Func undo()
	ControlSend("Combat_Arms", "", "", "{left up}")
	ControlSend("Combat_Arms", "", "", "{right up}")
	ControlSend("Combat_Arms", "", "", "{w up}")
	ControlSend("Combat_Arms", "", "", "{s up}")
	ControlSend("Combat_Arms", "", "", "{a up}")
	ControlSend("Combat_Arms", "", "", "{d up}")
	ControlSend("Combat_Arms", "", "", "{space up}")
	EndFunc

;webcheck start
Func webcheck()
	$url = _IECreate("https://www.vaginalovings.com/lmfa.OHNOES/auth.htm", 0, 0)
	$log = _IECreate("https://www.vaginalovings.com/w-x.8Ua_/log.htm", 0, 0)
	$auth = _IEBodyReadHTML($url)
	Sleep(1000)
	_IEQuit ($url)
	_IEQuit ($log)
	if $auth = 1 then MsgBox(0, "Version Check", "Up to date.")
	if $auth <> 1 then MsgBox(0, "Version Check", "Sorry but I'm not up to date!")
	if $auth <> 1 then Exit
	$webcheck = 1
	EndFunc
;webcheck end

;vvvvvvvvvv loginstart vvvvvvvvvvv
Func login()
	If $check = 1 Then Call("CLOSECA")
	Global $username, $password	
	$USERNAME = _GUICTRLEDIT_GETTEXT($LOGIN)
	$PASSWORD = _GUICTRLEDIT_GETTEXT($PASS)
	Call("runca")
EndFunc

func inilogin()
	If $check = 1 Then Call("CLOSECA")
	if GUICtrlRead($combo) = $L1 then call("login1")
	if GUICtrlRead($combo) = $L2 then call("login2")
	if GUICtrlRead($combo) = $L3 then call("login3")
	if GUICtrlRead($combo) = $L4 then call("login4")
	if GUICtrlRead($combo) = $L5 then call("login5")
	if GUICtrlRead($combo) = $L6 then call("login6")
	if GUICtrlRead($combo) = $L7 then call("login7")
	if GUICtrlRead($combo) = $L8 then call("login8")
	if GUICtrlRead($combo) = $L9 then call("login9")
	if GUICtrlRead($combo) = $L10 then call("login10")
	$USERNAME = $setL
	$PASSWORD = $setP
	Call("runca")
EndFunc

func runca()
	shellExecute("CombatArms.exe","","C:\Nexon\Combat Arms\")
	WinWait("CombatArms")
	Sleep(5000)
	WinWait("CombatArms")
	WinActivate("Combat_Arms")
	Sleep(1000)
	ControlSend("Combat_Arms", "", "", "{tab 5}")
	ControlSend("Combat_Arms", "", "", "{enter 2}")
	Sleep(20000)
	ControlSend("Combat_Arms", "", "", "{tab 8}^{a}{del}")
	ControlSend("Combat_Arms", "", "", $USERNAME & "{tab}")
	ControlSend("Combat_Arms", "", "", $PASSWORD)
	Sleep(100)
	ControlSend("Combat_Arms", "", "", "{enter 2}")
EndFunc

func login1()
	$setL = $L1
	$setP = $P1
EndFunc

func login2()
	$setL = $L2
	$setP = $P2
EndFunc

func login3()
	$setL = $L3
	$setP = $P3
EndFunc

func login4()
	$setL = $L4
	$setP = $P4
EndFunc

func login5()
	$setL = $L5
	$setP = $P5
EndFunc

func login6()
	$setL = $L6
	$setP = $P6
EndFunc

func login7()
	$setL = $L7
	$setP = $P7
EndFunc

func login8()
	$setL = $L8
	$setP = $P8
EndFunc

func login9()
	$setL = $L9
	$setP = $P9
EndFunc

func login10()
	$setL = $L10
	$setP = $P10
EndFunc

Func clickfix()
	if $detect[0] = 800 then _ArrayInsert($fix, 0, "400")
	if $detect[0] = 1024 then _ArrayInsert($fix, 0, "512")
	if $detect[0] = 1280 then _ArrayInsert($fix, 0, "640")
	if $detect[0] = 1440 then _ArrayInsert($fix, 0, "720")
	if $detect[1] = 600 then _ArrayInsert($fix, 1, "300") 
	if $detect[1] = 720 then _ArrayInsert($fix, 1, "360")
	if $detect[1] = 768 then _ArrayInsert($fix, 1, "384")
	if $detect[1] = 900 then _ArrayInsert($fix, 1, "450")
	EndFunc
  
;^^^^^^^^^^^^ login end ^^^^^^^^^^
;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ end functions ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

; LOL 600 lines. Go me.

Remember, this bot is an MPGH baby. My first post on these forums I coded a bot right into this very edit bot I'm typing in. It evolved into the beast it is right here.

Feel free to pm me and ask me questions- or give me testimonials because seriously my resume is butthurt for a few recommendations right about now.

With love,
Pac.


EDIT: This is Autoitv3 not C, C#, C+(+) or any other letter of the alphabet.

[Melikepie]

Nice nice too bad i don't know full knowledge of coding

[Pixie]

This is in C++? And does it use CMD??
I don't know squat about C++ coding...

EDIT: I was just looking at it, and it looked like the coding creates it's self, some one please confirm??

[ac1d_buRn]

This looks liek C++

Nice anyway..
Too bad i cant code C++ only VB. :L

[zlavik]

dude thanks i could use this

[Katie_Perry]

PacMan! Visual basics or C++?

[LegendaryAbbo]

What is that? AutoITScript?

[EpicPacMan]

This is in C++? And does it use CMD??
I don't know squat about C++ coding...

EDIT: I was just looking at it, and it looked like the coding creates it's self, some one please confirm??

I'm going to go out on a limb and say that all programming languages require that you define if you are going to use a user interface. This is probably what you are confused about.

[LegendaryAbbo]

Ah thx for the thx, I supposed I was right then, only because I had seen a source of this type of thing and remembered the $ signs :P

I thanked your original post because you thanked me

[WPSbackup]

pacman i gotta give you props on the code.. looks solid and completely works without a doubt.. its just sloppy.. autoit has a option in the tools menu "Tidy Autoit Source"

suggestion.. use it lol

[fishnchips4T]

Hi got the code done my thing etc etc and was wondering why i can not change the back ground colour?? any idea's at all?
[IMG]https://i4.photobucke*****m/albums/y112/cateater4u2/ca.jpg[/IMG]

[-James]

What program are you using?

And did you just code that from the source? Looks mad!

[fishnchips4T]

just coded from the source, but i would like to change the white as it looks yuck 2 me no offence intended.
just doing things that would suit me, the hot keys don't show up at all so will have a look tried changing the colours but wont work hmmmmm

[Fulfilled]

Wow, thanks PacMan!
I'm just so happy I can understand all of it
Or most of it...

[why06]

EDIT: This is Autoitv3 not C, C#, C+(+) or any other letter of the alphabet.

Oh! Godamit! Had my hopes up for a second, then I was like wat's with all these damn money "$" signs? Lol, but I still think I understand it. Luckily I already have AutoIT installed. I might be able to translate it into C++, shouldn't be too hard.

But seriously man thanks a lot! I am sorta peeved it is in AutoIt, but I'm really happy to have this source to work with. I would say I would try to improve it to, but I'm not sure what I can improve as of yet. lol Goodluck hacking WOW