|
I did have some lag issues when I first tried this macro so I changed the timings. This version is not as fast as the other but it doesn't suffer from lag.
Do
For $x = 1 to $var1
CheckCombatState()
Send("{a down}")
Sleep ("1300")
Send("{a up}") ;
Sleep("500")
Send("{n down}")
Send("{n up}")
MouseMove ( $var3, $var4)
Sleep("3500")
MouseClick ( "right" , $var3, $var4, 10)
Sleep("1500")
send("{2}")
Sleep("1000")
MouseClick ("left" , 805, 217, 1)
Sleep ("1000")
MouseClickDrag ( "left" , $var3, $var4, $var5, $var6, 10)
Sleep ("1200")
Next
send("{d down}")
Send("{w down}")
Sleep ("1200")
Send("{w up}")
Send("{d up}")
Sleep ("50")
For $x = 1 to $var1
CheckCombatState()
Send("{d down}")
Sleep ("1300")
Send("{d up}")
Sleep("500")
Send("{n down}")
Send("{n up}")
MouseMove ( $var3, $var4)
Sleep("3500")
MouseClick ( "right" , $var3, $var4, 10)
Sleep("1500")
send("{2}")
Sleep("1000")
MouseClick ("left" , 805, 217, 1)
Sleep ("1000")
MouseClickDrag ( "left" , $var3, $var4, $var5, $var6, 10)
Sleep ("1200")
Next
Send("{a down}")
Send("{w down}")
Sleep ("1200")
Send("{w up}")
Send("{a up}")
Sleep ("50")
Until $i = 1
And if you are a commando you can replace the combat portion of the macro with the following.
Func CheckCombatState()
If PixelGetColor(($portraitx), ($portraity)) = $CombatCheck Then
return
Else
Do
;Combat Routine
MouseClick ("left" , 700, 400)
send("{TAB}") ;Change this to your hotkey to cycle target outward
MouseDown ("left")
Sleep (10000)
MouseUp ("left")
Sleep ("1000") ;Change this accordingly to make sure your abilities cycle
Until PixelGetColor(($portraitx), ($portraity)) = $CombatCheck
EndIf
return
EndFunc
|