Results 1 to 9 of 9

Threaded View

  1. #1
    yajragsc's Avatar
    Join Date
    Apr 2012
    Gender
    male
    Posts
    75
    Reputation
    -3
    Thanks
    2
    My Mood
    Mellow

    how to use auto it

    how to use auti it i want to have a labryinth leveling bot with this code how do i put i

    Code:
            Local $a, $b, $i, $show, $pause, $concheck
    
            $main = GUICreate("", 135, 120, 5, 5)
            $a = 0
            $i = 0
            $b = 0
            $concheck = WinExists("PubConsole")
            $pause = 1
            $show = False
            GUISetBkColor(0xDDDDDD, $main)
            $help = GUICtrlCreateButton("Help", 5, 5, 125, 25)
            GUICtrlSetBkColor($help, 0x888888)
            GUICtrlSetColor($help, 0xEEEEEE)
            $start = GUICtrlCreateButton("Start", 5, 30, 60, 30)
            GUICtrlSetBkColor($start, 0x888888)
            GUICtrlSetColor($start, 0xEEEEEE)
            $binds = GUICtrlCreateButton("Binds", 70, 30, 60, 30)
            GUICtrlSetBkColor($binds, 0x888888)
            GUICtrlSetColor($binds, 0xEEEEEE)
            $runs = GUICtrlCreateLabel("Runs Completed: " & $i, 5, 70, 130, 20)
            GUICtrlSetColor($runs, 0x444444)
            $levels = GUICtrlCreateLabel("Levels Grown: " & $b, 5, 95, 130, 20)
            GUICtrlSetColor($levels, 0x444444)
            GUISetState(@SW_SHOW)
    
            While 1
            	$msg = GUIGetMsg()
            	If $msg = -3 Then
            		$a = 1
            		Exit
            	EndIf
            	If $msg = $start Then start()
            	If $msg = $binds Then inject()
            	If $msg = $help Then help()
            WEnd
    
            HotKeySet("{F1}", "Pause")
            HotKeySet("{F2}", "Stop")
            HotKeySet("{1}", "Show")
            HotKeySet("{2}", "Hide")
    
            While 1
            	WinWaitActive("Vindictus", "")
            WEnd
    
            Func Start()
            	For $MAPSKIP = 1 To 10
            		ControlSend("Vindictus", "", "", "{RIGHT}") ;next
            		Sleep(1000)
            	Next
            	Sleep(7500)
            	For $MAPSKIP = 1 To 10
            		ControlSend("Vindictus", "", "", "{RIGHT}") ;next
            		Sleep(1000)
            	Next
            	Sleep(7500)
            	For $MAPSKIP = 1 To 10
            		ControlSend("Vindictus", "", "", "{RIGHT}") ;next
            		Sleep(1000)
            	Next
            	Sleep(7500)
            	For $MAPSKIP = 1 To 10
            		ControlSend("Vindictus", "", "", "{RIGHT}") ;next
            		Sleep(1000)
            	Next
            	Sleep(7500)
            	Call("kill")
            EndFunc   ;==>Start
    
            Func kill()
            	While 1
            		If $a = 1 Then
            			Exit
            		EndIf
            		Sleep(1500)
            		ControlSend("Vindictus", "", "", "{NUMPADDOT}") ;ohk
            		Sleep(100)
            		ControlSend("Vindictus", "", "", "{NUMPAD0}") ;god
            		Sleep(100)
            		ControlSend("Vindictus", "", "", "{NUMPAD4}") ;spear
            		Sleep(100)
            		ControlSend("Vindictus", "", "", "{,}") ;spam height
            		Sleep(100)
            		ControlSend("Vindictus", "", "", "{NUMPAD3}") ;x3 time
            		Sleep(100)
            		ControlSend("Vindictus", "", "", "{W DOWN}")
            		Sleep(5000)
            		ControlSend("Vindictus", "", "", "{W UP}")
            		sleep(100)
            		ControlSend("Vindictus", "", "", "{NUMPAD1}") ;x1 time
            		Call("Spearspin")
            		ControlSend("Vindictus", "", "", "{NUMPAD3}") ;x3 time
            		Call("MAPRELOAD")
            	WEnd
            EndFunc   ;==>kill
    
            Func MAPRELOAD()
            	ControlSend("Vindictus", "", "", "{LEFT}") ;reload
            	Sleep(10000)
            	$i = $i + 1
            	$runs = GUICtrlCreateLabel("Runs Completed: " & $i, 5, 45, 130, 20)
            	Execute($runs)
            	Call("level")
            EndFunc   ;==>MAPRELOAD
    
            Func level()
            	ControlSend("Vindictus", "", "", "{NUMPAD1}") ;x1 time
            	Sleep(1000)
            	$search = PixelSearch(1060, 525, 1330, 670, 0xBC1232)
            	If IsArray($search) = True Then
            		$b = $b + 1
            		$levels = GUICtrlCreateLabel("Levels Grown: " & $b, 5, 70, 130, 20)
            		Execute($levels)
            	EndIf
            	Call("kill")
            EndFunc   ;==>level
    
            Func SpearSpin()
            	For $spearspin = 1 To 30
            		$spearmove = MouseMove(230, 410, 1)
            		Call("Focus")
            		ControlSend("Vindictus", "", "", $spearmove)
            		ControlSend("Vindictus", "", "", "{F}")
            	Next
            EndFunc   ;==>SpearSpin
    
            Func Focus()
            	WinActivate("Vindictus")
            EndFunc   ;==>Focus
    
            Func pause()
            	$pause = Not $pause
            	While $pause
            		ToolTip('Script is PAUSED, press ""F2"" to UNPAUSE', 0, 0)
            		Sleep(1000)
            	WEnd
            	ToolTip("")
            EndFunc   ;==>pause
    
            Func help()
            	MsgBox(0, "Help", "~Hotkeys~" & 
            @crl
            F & "F1. Pause" & 
            @crl
            F & "F2. Exit" & 
            @crl
            F & "1. Show Vindictus" & 
            @crl
            F & "2. Hide Vindictus" & 
            @crl
            F & 
            @crl
            F & "- Run on first floor of Labyrinth" & 
            @crl
            F & "- Levels grown only works in fullscreen mode" & 
            @crl
            F & "- Click bind button to auto-inject the needed binds into the console" & 
            @crl
            F & "- You can hide Vindictus in the background allowing you to do whatever you want(Mouse wont be completely free whenever it spear spins)")
            EndFunc
    
            Func Show()
            	WinSetState("Vindictus", "", @SW_SHOW)
            EndFunc   ;==>Show
    
            Func Hide()
            	WinSetState("Vindictus", "", @SW_HIDE)
            EndFunc   ;==>Hide
    
            Func STOP()
            	$a = 1
            	Exit
            EndFunc   ;==>STOP
    
            Func inject()
            	If $concheck = True Then
            		Call("binds")
            	Else
            		MsgBox(0, "", "Please make sure PubConsole is open.")
            	EndIf
            EndFunc   ;==>inject
    
            Func binds()
            	ControlSend("PubConsole", "", "", 'bind "KP_INS" "god;cc_system_message GOD"')
            	ControlSend("PubConsole", "", "", "{ENTER}")
            	ControlSend("PubConsole", "", "", 'bind "KP_DEL" "ohk;cc_system_message OHK"')
            	ControlSend("PubConsole", "", "", "{ENTER}")
            	ControlSend("PubConsole", "", "", 'bind "KP_LEFTARROW" "cc_set_sub_weapon javelin_lvl2 999;cc_system_message Fine-Javelins"')
            	ControlSend("PubConsole", "", "", "{ENTER}")
            	ControlSend("PubConsole", "", "", 'bind "KP_END" "host_timescale 1;cc_system_message x1-Time"')
            	ControlSend("PubConsole", "", "", "{ENTER}")
            	ControlSend("PubConsole", "", "", 'bind "KP_HOME" "plr_play_overlay_sequence paladin_transformation_begin_1;cc_system_message Paladin1"')
            	ControlSend("PubConsole", "", "", "{ENTER}")
            	ControlSend("PubConsole", "", "", 'bind "RIGHTARROW" "changemap_to_next_random_sector;cc_system_message Next-Sector-Loaded"')
            	ControlSend("PubConsole", "", "", "{ENTER}")
            	ControlSend("PubConsole", "", "", 'bind "LEFTARROW" "changemap_to_current_random_sector;cc_system_message Sector-Reloaded"')
            	ControlSend("PubConsole", "", "", "{ENTER}")
            	ControlSend("PubConsole", "", "", 'bind "," "cc_change_figure_height 0.1;cc_system_message Tiny-MODE"')
            	ControlSend("PubConsole", "", "", "{ENTER}")
            	ControlSend("PubConsole", "", "", 'bind "KP_PGDN" "host_timescale 3;cc_system_message x3-Time"')
            	ControlSend("PubConsole", "", "", "{ENTER}")
            EndFunc   ;==>binds
    where do i put this in the console or need to extract to autoit or something lol
    Last edited by Nico; 04-14-2012 at 04:38 AM.

Similar Threads

  1. [TUT] How to use kssn GENERATOR
    By ktalin91 in forum WarRock Korea Hacks
    Replies: 13
    Last Post: 05-10-2009, 07:17 PM
  2. How to Use Tsearch
    By wardo1926 in forum Hack Requests
    Replies: 5
    Last Post: 12-18-2007, 09:24 PM
  3. warrock addresses and how to use
    By ragman1234 in forum WarRock - International Hacks
    Replies: 1
    Last Post: 04-15-2007, 12:38 PM
  4. Help! how to use ardamax keylogg
    By gmgundamx7 in forum WarRock - International Hacks
    Replies: 8
    Last Post: 02-28-2007, 04:43 PM
  5. How To Use A Render By Phate
    By Paolo1993 in forum Tutorials
    Replies: 0
    Last Post: 01-27-2006, 08:03 PM