how to use auto it

**yajragsc** · 04-13-2012

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

**maddoggy00** · 04-13-2012

this should be in the help section...

save your text file as "whatever".au3
then run it using autoit when you're on a boat ready to go (at least from glancing at your code)

AutoIt Downloads - AutoItScript

**yajragsc** · 04-13-2012

ok thanks but it doesnt work is there something wrong with my script

**wolb** · 04-13-2012

what doesn't work? You are not giving much for people to go on.

do you have a process call "pubconsole"? If you don't, then you will have to change that to whatever console you have.

**yajragsc** · 04-13-2012

im using console lite when i press start on the boat it doesnt start and when i was in the frist floor of labyrinth clicked start on the autitio it doesnt start at all lol