Labyrinth Leveling Bot (Updated)

*Requirements*

Pubconsole v1.7
Godmode and OHK V6.6
AutoIT V3

*How to use*
Hotkeys

F1 - Exit
F2 - Pause
1 - Show Vindictus
2 - Hide Vindictus

It has a small console displaying runs completed and levels grown along with buttons
Click bind to auto-inject the needed binds into the console
Levels grown only works in fullscreen mode
Press Start once you're on the first floor of labyrinth
You can hide Vindictus in the background if you want(Mouse wont be completely free whenever it spear spins)

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~" & @crlF & "F1. Pause" & @crlF & "F2. Exit" & @crlF & "1. Show Vindictus" & @crlF & "2. Hide Vindictus" & @crlF & @crlF & "- Run on first floor of Labyrinth" & @crlF & "- Levels grown only works in fullscreen mode" & @crlF & "- Click bind button to auto-inject the needed binds into the console" & @crlF & "- 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

thank you for sharing and check further

downloadlink??

Originally Posted by gomugomu3

downloadlink??

You just need AutoIt.

I don't understand, it says "leveling bot" and says "Levels grown only works in fullscreen mode." Is this bot meant for leveling your character from 22-69 quickly?

levels grown is just telling you how many levels you have grown within that session

Labyrinth Leveling Bot (Updated)

Similar Threads

Tags for this Thread