Thank you for the script!
I had problems when using it so I edited the code a bit
To be binded are
bind "-" "cc_send_start_game_message"
bind "/" "changelevel2"
bind "." "god"
bind "," "ohk"
bind "\" "cc_change_figure_height 0.1" not needed as this bot uses nuke not spears now
bind "'" "nuke" it is " ' " an apostrophe
bind "]" "host_timescale 4"
I manually bind these to pubconsole 1.6 by @l2noob2
The bot still walks into a wall for a few seconds but i find it a big faster than OP's bot.
some timers may have to be changed if your computer loads slowly or if you have to run at a lower host_timescale
Bot could still be faster but I'm happy with what I have...for now!
Code:
Opt("WinWaitDelay",100)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Global $boatbot
HotKeySet("{HOME}", "start")
HotKeySet("{END}", "stop")
While 1
sleep ( 1 )
WEnd
; -------- Functions -------------------
Func start()
$boatbot = Not $boatbot
While $boatbot
_WinWaitActivate("Vindictus","")
MouseClick("left",117,646,1) ; Clicks START to launch mission
Sleep(2000)
Send("{-}") ; bypass leaderboard
Sleep(5000)
Send("{/}") ; skip map
Sleep(5000)
Send("{/}") ; skip map
Sleep(5000)
Send("{,}") ; ohk
Sleep(100)
Send("{.}") ; god
Sleep(100)
Send("{NUMPAD7}") ; spear
Sleep(100)
Send("{\}") ; changefigure
Sleep(100)
Send("{UP down}") ; will move forward for 5 seconds to trigger cutscene.
Sleep(3600)
Send("{UP up}")
Sleep(100)
Send("{LEFT down}")
Sleep(3000)
Send("{LEFT up}")
Sleep(100)
Send("{UP down}") ; will move forward for 5 seconds to trigger cutscene.
Sleep(5000)
Send("{UP up}")
Sleep(100)
Send("{SPACE}")
Send ("{]}")
Sleep(12000)
Send ("{'}") ; nuke
Sleep (500)
Send ("{]}")
Sleep (3000)
Send ("{]}")
Sleep (1000)
Send ("{]}")
Sleep (5000)
Send ("{]}")
Sleep (5000)
Send ("{]}")
Sleep (5000)
Send ("{]}")
Sleep(35000) ; this is the time it takes until the Mission Successful menu shows up.
Send ("{]}")
Sleep(5000)
MouseClick("left",393,706,1)
Sleep(500)
MouseClick("left",96,426,1) ; will click REPLAY on Missions Successful window
Sleep(20000) ; time to zone back to boat and repeat the script
WEnd
EndFunc
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