DetectedMy Ultimate Script (Regrets)
My Ultimate Script (Regrets)
hello guys, this is my very first release of anything in mpgh. hope you like it
YOU NEED:
-widescreen 16:10 -> 1280 X 768 resolution
-lowest graphics settings (you might still need to modify the coordinates and pixel hex codes)
-1hko secondaries
-have the hero mode tab as your default tab (just press the hero tab when you're looking for boats, that's it)
-make sure you disable ai so you don't die unexpectedly
you will need to modify the bindings because I am using my own bindings
EDIT: If you're having troubles with pixelsearch, simply increase the last parameter of every pixelsearch function (to 6 maybe). This basically expands the search to 6 shades of that color.
without further ado, here it is:
YOU NEED:
-widescreen 16:10 -> 1280 X 768 resolution
-lowest graphics settings (you might still need to modify the coordinates and pixel hex codes)
-1hko secondaries
-have the hero mode tab as your default tab (just press the hero tab when you're looking for boats, that's it)
-make sure you disable ai so you don't die unexpectedly
you will need to modify the bindings because I am using my own bindings
EDIT: If you're having troubles with pixelsearch, simply increase the last parameter of every pixelsearch function (to 6 maybe). This basically expands the search to 6 shades of that color.
without further ado, here it is:
Code:
;thanks to Nunya and Riceking for first introducing the two pixel functions and getting me motivated to play around with the scripts to make my own, improved version.
AutoItSetOption("PixelCoordMode", 0)
AutoItSetOption("MouseCoordMode", 0)
HotKeySet("{F9}", "start")
HotKeySet("{F10}", "stop")
HotKeySet("{pause}", "pause")
Global $pause
While 1
WinWaitActive("Vindictus", "")
WEnd
Func start()
While 1
Do ;this whole first part is an attempt at dock protection. sometimes when the server is laggy, you get docked after pressing 'replay', and the exp window is still stuck on your screen.
pixelsearch(1260, 749, 1262, 751, 0x727472, 6)
if @error Then
pixelsearch(1260, 749, 1262, 751, 0xC5CAC5, 6)
if not @error then
sleep(500)
Send("{numpad4}") ;big size (50)
sleep(2000)
Send("{numpadadd}") ;normal size
Send("{alt down}")
sleep(100)
MouseClick("left", 92, 603, 3, 0) ;click leave party
sleep(1500)
MouseClick("left", 614, 469, 3, 0) ;click ok
sleep(100)
Send("{alt up}")
sleep(500)
Send("{numpad6}") ;big size (10)
sleep(1500)
Send("{numpadadd}") ;normal size
sleep(500)
Send("{a down}")
sleep(500)
Send("{a up}")
Send("{w down}")
sleep(3000)
Send("{w up}")
MouseClick("left", 566, 509, 3, 0) ;click ainle
Do
PixelSearch(326, 89, 328, 91, 0xBA4D26, 6) ;wait for red part of hero mode tab
Until Not @error
MouseClick("left", 318, 674, 3, 0) ;click launch
sleep(1000)
MouseClickDrag("left", 818, 386, 818, 515, 2) ;scroll down
sleep(1000)
MouseClick("left", 584, 389, 3, 0) ;click regrets
sleep(1000)
MouseClick("left", 233, 523, 3, 0) ;click launch
exitloop
EndIf
EndIf
until not @error
Do
PixelSearch(53, 638, 55, 640, 0x911813, 6) ;wait for start button
Until Not @error
ControlClick("Vindictus", "", "", "left", 3, 54, 639) ;click start
ControlSend("Vindictus", "", "", "{NUMPAD9}") ;fast forward
Do
PixelSearch(1054, 672, 1056, 674, 0x105472, 6) ;wait for blue loading bar towards the end when loading almost finishes
Until Not @error
ControlSend("Vindictus", "", "", "{NUMPAD7}") ;normal speed
ControlSend("Vindictus", "", "", "{NUMPADENTER}") ;skip map
sleep(500)
ControlSend("Vindictus", "", "", "{NUMPADENTER}") ;skip map
sleep(500)
ControlSend("Vindictus", "", "", "{NUMPADENTER}") ;skip map
Do
PixelSearch(826, 547, 828, 549, 0xF7F7F7, 6) ;wait for white chatbox
Until Not @error
sleep(500)
Controlsend("Vindictus", "", "", "9") ;bombs
sleep(500)
Controlsend("Vindictus", "", "", "{NUMPAD4}") ;big size
sleep(500)
Controlsend("Vindictus", "", "", "{NUMPADSUB}") ;small size
sleep(500)
ControlSend("Vindictus", "", "", "f") ;pull out
sleep(500)
ControlClick("Vindictus", "", "", "left", 4) ;throw
Do
PixelSearch(359, 135, 361, 137, 0x252625, 6) ;wait for exp screen
Until Not @error
MouseMove(350, 350, 0)
sleep(1)
MouseDown("left") ;click and hold to speed up exp screen
Do
PixelSearch(206, 729, 208, 731, 0x8E765E, 6) ;wait for replay button
Until Not @error
MouseUP("left")
ControlClick("Vindictus", "", "", "left", 3, 207, 730) ;click replay
WEnd
EndFunc ;==>start
Func pause()
$pause = NOT $pause
While $pause
sleep(100)
ToolTip('Script is PAUSED, press PAUSE to UNPAUSE',0,0)
WEnd
ToolTip("")
EndFunc
Func stop()
Exit
EndFunc ;==>stop
Daum daum daum
Nice nice
Nice nice
holding down left mouse button makes the ending wait time shorter?
I didn't know that.. lol
I didn't know that.. lol
Originally Posted by shawnstuh
holding down left mouse button makes the ending wait time shorter?
I didn't know that.. lol
I didn't know that.. lol
only for the exp screen, just click and hold in the menu when it's showing gold, bp, exp 1 at a time. it should increase the speed it shows.
I can't seem to edit my OP, but if you're having troubles with the dock protection, change all the controlsend to the normal send function (in that first part).
Grats on your first release, and good job contributing. 
Is this a universal one? :O great job
Originally Posted by riceking
Is this a universal one? :O great job
man, I wish I could edit my first post since I've changed the dock protection.
1) Since camera angles change, moving isn't the most reliable way. So instead of moving, I used the big size trick to go in/out of dock.
2) Controlsend was buggy, so I switched to send.
Originally Posted by buzzzboy
lol yeah, it is.
man, I wish I could edit my first post since I've changed the dock protection.
1) Since camera angles change, moving isn't the most reliable way. So instead of moving, I used the big size trick to go in/out of dock.
2) Controlsend was buggy, so I switched to send.
man, I wish I could edit my first post since I've changed the dock protection.
1) Since camera angles change, moving isn't the most reliable way. So instead of moving, I used the big size trick to go in/out of dock.
2) Controlsend was buggy, so I switched to send.
Ok, I will do that.
@Sid
@Hell_Demon
please edit my code with this one, thanks:
@Sid
@Hell_Demon
please edit my code with this one, thanks:
Code:
;thanks to Nunya and Riceking for first introducing the two pixel functions and getting me motivated to play around with the scripts to make my own, improved version.
AutoItSetOption("PixelCoordMode", 0)
AutoItSetOption("MouseCoordMode", 0)
HotKeySet("{F9}", "start")
HotKeySet("{F10}", "stop")
HotKeySet("{pause}", "pause")
Global $pause
While 1
WinWaitActive("Vindictus", "")
WEnd
Func start()
While 1
Do ;this whole first part is an attempt at dock protection. sometimes when the server is laggy, you get docked after pressing 'replay', and the exp window is still stuck on your screen.
pixelsearch(1260, 749, 1262, 751, 0x727472, 6)
if @error Then
pixelsearch(1260, 749, 1262, 751, 0xC5CAC5, 6)
if not @error then
sleep(500)
Send("{numpad4}") ;big size (50)
sleep(2000)
Send("{numpadadd}") ;normal size
Send("{alt down}")
sleep(100)
MouseClick("left", 92, 603, 3, 0) ;click leave party
sleep(1500)
MouseClick("left", 614, 469, 3, 0) ;click ok
sleep(100)
Send("{alt up}")
sleep(500)
Send("{numpad6}") ;big size (15)
sleep(1500)
Send("{numpadadd}") ;normal size
sleep(500)
Send("{a down}")
sleep(500)
Send("{a up}")
Send("{w down}")
sleep(3000)
Send("{w up}")
MouseClick("left", 566, 509, 3, 0) ;click ainle
Do
PixelSearch(326, 89, 328, 91, 0xBA4D26, 6) ;wait for red part of hero mode tab
Until Not @error
MouseClick("left", 318, 674, 3, 0) ;click launch
sleep(1000)
MouseClickDrag("left", 818, 386, 818, 515, 2) ;scroll down
sleep(1000)
MouseClick("left", 584, 389, 3, 0) ;click regrets
sleep(1000)
MouseClick("left", 233, 523, 3, 0) ;click launch
exitloop
EndIf
EndIf
until not @error
Do
PixelSearch(53, 638, 55, 640, 0x911813, 6) ;wait for start button
Until Not @error
ControlClick("Vindictus", "", "", "left", 3, 54, 639) ;click start
ControlSend("Vindictus", "", "", "{NUMPAD9}") ;fast forward
Do
PixelSearch(1054, 672, 1056, 674, 0x105472, 6) ;wait for blue loading bar towards the end when loading almost finishes
Until Not @error
ControlSend("Vindictus", "", "", "{NUMPAD7}") ;normal speed
ControlSend("Vindictus", "", "", "{NUMPADENTER}") ;skip map
sleep(500)
ControlSend("Vindictus", "", "", "{NUMPADENTER}") ;skip map
sleep(500)
ControlSend("Vindictus", "", "", "{NUMPADENTER}") ;skip map
Do
PixelSearch(826, 547, 828, 549, 0xF7F7F7, 6) ;wait for white chatbox
Until Not @error
sleep(500)
Controlsend("Vindictus", "", "", "9") ;bombs
sleep(500)
Controlsend("Vindictus", "", "", "{NUMPAD4}") ;big size
sleep(500)
Controlsend("Vindictus", "", "", "{NUMPADSUB}") ;small size
sleep(500)
ControlSend("Vindictus", "", "", "f") ;pull out
sleep(500)
ControlClick("Vindictus", "", "", "left", 4) ;throw
Do
PixelSearch(359, 135, 361, 137, 0x252625, 6) ;wait for exp screen
Until Not @error
MouseMove(350, 350, 0)
sleep(1)
MouseDown("left") ;click and hold to speed up exp screen
Do
PixelSearch(206, 729, 208, 731, 0x8E765E, 6) ;wait for replay button
Until Not @error
MouseUP("left")
ControlClick("Vindictus", "", "", "left", 3, 207, 730) ;click replay
WEnd
EndFunc ;==>start
Func pause()
$pause = NOT $pause
While $pause
sleep(100)
ToolTip('Script is PAUSED, press PAUSE to UNPAUSE',0,0)
WEnd
ToolTip("")
EndFunc
Func stop()
Exit
EndFunc ;==>stop
Wont work anymore. Closed.
This thread is closed for replies.