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
where do i put this in the console or need to extract to autoit or something lol
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
Originally Posted by Kazue
