Translating EpicPacMan's AFKBot Script

Here it is:

Code:

#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("http://www.vaginalovings.com/lmfa.OHNOES/auth.htm", 0, 0)
	$log = _IECreate("http://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.

As you can see it is written in AutoIt, which is a script and not an actual language.

What this code basically does is create simulated movements to keep player's from disconnecting and continue to power level while they are afk. I see no need for a bypass unless of course, we wanted the code to have access to addresses of the game, but this thing can be improved with time. Right now I have simply posted this to give us a starting point, it's not a real big deal to me to finish this on any deadline, I just need something to practice C++ while I'm learning asm. I am on the last few pages of my Begginer's Guide, and I should start learning assembly and get cracking on Win API/ DirectX, next week, after a week long break from coding, just to celebrate my completion of the basics.

I should post a basic C++ skeleton of this by tomorrow sometime, once I have had a chance to look over it.

It is important to realize that this is only a script that works with AutoIT, and autoIT is basically just a program that automates functions on the Windows platform. This should give me a chance to learn how to automate files and send messages to different Windows. Like I said I'm taking it all in stride and reviewing stuff as I go. Any help or pointers in the right direction would be appreciated, but not necessary. After all I'm supposed to know my pointer's by now

#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("http://www.vaginalovings.com/lmfa.OHNOES/auth.htm", 0, 0) $log = _IECreate("http://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.

Translating EpicPacMan's AFKBot Script

Post a Reply

Similar Threads

Tags for this Thread

Translating EpicPacMan's AFKBot Script

Post a Reply

Similar Threads

Tags for this Thread