Code:
Opt("WinWaitDelay",100)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Global $boatbot
HotKeySet("{HOME}", "start")
HotKeySet("{END}", "stop")
While 1
;sleep(500)
WEnd
; -------- Functions -------------------
Func start()
$boatbot = Not $boatbot
While $boatbot
_WinWaitActivate("Vindictus","")
MouseClick("left",93,661,1)
sleep(1000)
;Hit "No" in response to "im stuck" dialogue
MouseClick("left",666,465,1)
send("{alt up}")
sleep( 25000 )
Send("{p}")
sleep ( 22000 )
;paladin trans
send ("{f7}")
sleep ( 500 )
;take out small bombs
send("{0}")
sleep ( 500 )
;run to laggho
send("{w down}")
Sleep ( 6000 )
send("{w up}")
sleep ( 500 )
;kick laggho
send("r")
Sleep( 2000 )
Send("f")
sleep ( 2000 )
;throw a bomb at red spider
Send("e")
sleep( 3000 )
Send("f")
sleep ( 2000 )
;throw a second bomb for good measure
send("e")
sleep ( 70000 )
send("{alt down}")
;start clicking replay and keep clicking while the boat loads in case of lag
MouseClick("left",196,709,1)
sleep ( 3000 )
MouseClick("left",196,709,1)
sleep ( 3000 )
MouseClick("left",196,709,1)
sleep ( 3000 )
MouseClick("left",196,709,1)
sleep ( 3000 )
MouseClick("left",196,709,1)
sleep ( 3000 )
MouseClick("left",196,709,1)
sleep ( 3000 )
MouseClick("left",196,709,1)
sleep ( 3000 )
MouseClick("left",196,709,1)
sleep ( 3000 )
MouseClick("left",196,709,1)
sleep ( 3000 )
MouseClick("left",196,709,1)
sleep ( 3000 )
MouseClick("left",196,709,1)
sleep ( 3000 )
MouseClick("left",196,709,1)
sleep ( 3000 )
MouseClick("left",196,709,1)
sleep ( 3000 )
MouseClick("left",196,709,1)
sleep ( 3000 )
MouseClick("left",196,709,1)
sleep ( 3000 )
WEnd
EndFunc ;==>start
#region --- Internal functions Au3Recorder Start ---
Func _WinWaitActivate($title,$text,$timeout=0)
WinWait($title,$text,$timeout)
If Not WinActive($title,$text) Then WinActivate($title,$text)
WinWaitActive($title,$text,$timeout)
EndFunc
Func stop()
Exit
EndFunc ;==>stop