Page 1 of 2 12 LastLast
Results 1 to 15 of 25
  1. #1
    EpicPacMan's Avatar
    Join Date
    Jun 2009
    Gender
    male
    Location
    The internet.
    Posts
    187
    Reputation
    13
    Thanks
    150
    My Mood
    Goofy

    Cool I bring you tidings of joy, and source code.

    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.

    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.
    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.
    Last edited by EpicPacMan; 09-28-2009 at 05:12 AM.

  2. The Following 6 Users Say Thank You to EpicPacMan For This Useful Post:

    CRUSTY (03-25-2010),Fulfilled (09-28-2009),IHelper (09-28-2009),kay911kay (09-29-2009),LegendaryAbbo (09-28-2009),zlavik (09-28-2009)

  3. #2
    Melikepie's Avatar
    Join Date
    Apr 2009
    Gender
    male
    Posts
    1,653
    Reputation
    12
    Thanks
    131
    My Mood
    Amazed
    Nice nice too bad i don't know full knowledge of coding

  4. #3
    Pixie's Avatar
    Join Date
    Apr 2009
    Gender
    male
    Location
    Pixie wird wieder steigen.
    Posts
    1,890
    Reputation
    22
    Thanks
    229
    My Mood
    Fine
    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??

  5. #4
    ac1d_buRn's Avatar
    Join Date
    Aug 2009
    Gender
    female
    Location
    CA Source Section
    Posts
    3,406
    Reputation
    157
    Thanks
    3,991
    My Mood
    Flirty
    This looks liek C++

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

  6. #5
    zlavik's Avatar
    Join Date
    Nov 2008
    Gender
    male
    Location
    ƵĻÆVÍĶ
    Posts
    839
    Reputation
    18
    Thanks
    103
    My Mood
    Angelic
    dude thanks i could use this

  7. #6
    Katie_Perry's Avatar
    Join Date
    Feb 2009
    Gender
    male
    Posts
    3,089
    Reputation
    31
    Thanks
    175
    My Mood
    Sneaky
    PacMan! Visual basics or C++?

  8. #7
    LegendaryAbbo's Avatar
    Join Date
    Dec 2008
    Gender
    male
    Posts
    5,244
    Reputation
    23
    Thanks
    546
    My Mood
    Relaxed
    What is that? AutoITScript?

  9. The Following User Says Thank You to LegendaryAbbo For This Useful Post:

    EpicPacMan (09-28-2009)

  10. #8
    EpicPacMan's Avatar
    Join Date
    Jun 2009
    Gender
    male
    Location
    The internet.
    Posts
    187
    Reputation
    13
    Thanks
    150
    My Mood
    Goofy
    Quote Originally Posted by PixieCorp View Post
    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.

  11. #9
    LegendaryAbbo's Avatar
    Join Date
    Dec 2008
    Gender
    male
    Posts
    5,244
    Reputation
    23
    Thanks
    546
    My Mood
    Relaxed
    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

  12. #10
    WPSbackup's Avatar
    Join Date
    Sep 2009
    Gender
    male
    Posts
    28
    Reputation
    11
    Thanks
    2
    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

  13. #11
    fishnchips4T's Avatar
    Join Date
    Jan 2009
    Gender
    male
    Location
    new zealand
    Posts
    268
    Reputation
    16
    Thanks
    15
    My Mood
    Flirty
    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?
    I never hack, if i did, i still would not kill anyone that is how bad i am at the game...





    What do women and noodles have in common?? They both wiggle when you eat em!

  14. #12
    -James's Avatar
    Join Date
    Nov 2008
    Gender
    male
    Location
    MEETING TRUNKY ON XBOX. OH WAIT, HE DOESNT HAVE IT
    Posts
    4,942
    Reputation
    41
    Thanks
    817
    My Mood
    Bashful
    What program are you using?

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

  15. #13
    fishnchips4T's Avatar
    Join Date
    Jan 2009
    Gender
    male
    Location
    new zealand
    Posts
    268
    Reputation
    16
    Thanks
    15
    My Mood
    Flirty
    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
    I never hack, if i did, i still would not kill anyone that is how bad i am at the game...





    What do women and noodles have in common?? They both wiggle when you eat em!

  16. #14
    Fulfilled's Avatar
    Join Date
    Aug 2009
    Gender
    male
    Location
    Behind you... :P
    Posts
    973
    Reputation
    14
    Thanks
    73
    My Mood
    Amused
    Wow, thanks PacMan!
    I'm just so happy I can understand all of it
    Or most of it...
    Respect List
    Dave - for creating the site.
    User1 - he's an uber beast.
    Whitten - for having an emo bear on his avatar.
    Obama - for being "Obamba" rofl.
    Liz - She helps a LOT (good bye choobs...)
    Stumpy & Trunky - can't tell which is which for some reason, sorry
    ...
    Where'd they all go?

    Me - Because you have to respect yourself.

  17. #15
    why06's Avatar
    Join Date
    Jul 2009
    Gender
    male
    Location
    IBM
    Posts
    4,305
    Reputation
    170
    Thanks
    2,194
    My Mood
    Flirty
    Quote Originally Posted by EpicPacMan View Post
    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

    "Every gun that is made, every warship launched, every rocket fired signifies, in the final sense, a theft from those who hunger and are not fed, those who are cold and are not clothed. This world in arms is not spending money alone. It is spending the sweat of its laborers, the genius of its scientists, the hopes of its children. The cost of one modern heavy bomber is this: a modern brick school in more than 30 cities. It is two electric power plants, each serving a town of 60,000 population. It is two fine, fully equipped hospitals. It is some fifty miles of concrete pavement. We pay for a single fighter plane with a half million bushels of wheat. We pay for a single destroyer with new homes that could have housed more than 8,000 people. This is, I repeat, the best way of life to be found on the road the world has been taking. This is not a way of life at all, in any true sense. Under the cloud of threatening war, it is humanity hanging from a cross of iron."
    - Dwight D. Eisenhower

Page 1 of 2 12 LastLast

Similar Threads

  1. lol how do you use engine.rar and cshell.dll
    By czudej in forum Combat Arms Hacks & Cheats
    Replies: 6
    Last Post: 01-17-2009, 07:18 PM
  2. Stamina Hack and source code ?
    By Teh Sasuke in forum C++/C Programming
    Replies: 0
    Last Post: 12-31-2007, 06:08 PM
  3. Replies: 1
    Last Post: 12-17-2007, 02:52 PM
  4. how do you make a trainer and or bypass??
    By 123456789987654321 in forum WarRock - International Hacks
    Replies: 11
    Last Post: 06-04-2007, 01:00 PM
  5. whe you mix drugs, photoshop and flash animation
    By -[standoff]- in forum General
    Replies: 7
    Last Post: 12-09-2006, 06:47 PM