Labyrinth Leveling Bot (Updated)

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