[AutoIT] Blood Lord & BACKGROUND SUPPORT

AutoItSetOption("MouseCoordMode", 0)

HotKeySet("{HOME}", "BloodLord")
HotKeySet("{END}", "End")
HotKeySet("{F9}", "DisplayRuns")

$run = 1
$money = 7098000 ; put the amount of money you have in your inventory
$timer = 0
$diff = 0
$show = false

While 1
sleep(1)
WEnd

Func BloodLord()
$timer = TimerInit()
While 1
If($show) then
$diff = Int(TimerDiff($timer) / 1000)
ToolTip("Run #" & $run & " - Money: ~" & $money & " - Time running: " & Time($diff), 0, 0)
EndIf
ControlClick("Vindictus", "", "", "left", 3, 108, 910) ; Start
ControlSend("Vindictus", "", "", "{Numpad6}") ; <host_timescale 3>
Sleep(8000)
ControlSend("Vindictus", "", "", "{NUMPADSUB}") ; Changelevel
Sleep(7000)
ControlSend("Vindictus", "", "", "{Numpad6}") ; <host_timescale 3>
Sleep(500)
ControlSend("Vindictus", "", "", "{F6}") ; Transform - F7 = PALADIN
Sleep(500)
ControlSend("Vindictus", "", "", "{0}") ; <sticky_bomb 999>
Sleep(500)
ControlSend("Vindictus", "", "", "{w down}") ; Move forward 2 seconds
Sleep(2000)
ControlSend("Vindictus", "", "", "{w up}") ; Stop
Sleep(9000)
ControlSend("Vindictus", "", "", "f") ; Sticky bomb out
Sleep(500)
ControlSend("Vindictus", "", "", "e") ; Throw
Sleep(500)
ControlSend("Vindictus", "", "", "{7}") ; <fine_bomb 999>
Sleep(5000)
ControlSend("Vindictus", "", "", "f") ; Fine bomb out
Sleep(500)
ControlSend("Vindictus", "", "", "e") ; Throw
Sleep(2000)
ControlSend("Vindictus", "", "", "f") ; Fine bomb out -- in case
Sleep(500)
ControlSend("Vindictus", "", "", "e") ; Throw
Sleep(2000)
ControlSend("Vindictus", "", "", "f") ; Fine bomb out -- in case.. sometimes it takes 3!
Sleep(500)
ControlSend("Vindictus", "", "", "e") ; Throw
Sleep(67000) ; Window appear
ControlClick("Vindictus", "", "", "left", 3, 195, 705) ; Replay
Sleep(12000) ; Going to the boat
$run += 1
$money += 20000
WEnd
EndFunc

Func DisplayRuns()
$show = NOT $show
If($show) then
ToolTip("Run #" & $run & " - Money: ~" & $money & " - Time running: " & Time($diff), 0, 0) ; Display
Else
ToolTip("") ; Don't
EndIf
EndFunc

Func Time($sec)
$hours = Int($sec / 3600)
$minutes = Int(($sec - $hours * 3600) / 60)
$seconds = $sec - $hours * 3600 - $minutes * 60
Return StringFormat('%02d:%02d:%02d', $hours, $minutes, $seconds)
EndFunc

Func End()
Exit ; Bye bye
EndFunc