Also, the X/Y values of PixelGetColor need to be adjusted to reflect your UI. Use ACTool to figure out the Pixel location of the green area farthest to the right of your health and your targets health.
You'll also need to adjust the Send areas of the macro to properly reflect your needs.
This macro currently will check your health, if it's not full it will wait 60 seconds before continuing. Then it will push F8 and check for a target, if it has no target it will continue to pres F8 until it finds a target that is at full health (not engaged). It then pushes Alt+5 and Alt+7 which are the slots I have my two buffs in I want up before combat starts. After that it presses Ctrl+1 and Ctrl+= which are my slots for snare and ruse. Then it cycles pressing keys 2345780-= which are the keys I have for all my combat abilities, this cycles 85 times which I've found is enough to kill a monster and then some. After the cycle completes it will call the "main" function again which restarts the macro from the start.
Unfortunatly you must include the number of times you want the macro to loop at the start by how many Call("main") lines you have. If someone knows of a way I can loop this forever please let me know.
My snare has a very large range on it so you'll need to chance that area to a skill you can use to aggro that has a long range.
Again, fix the damn thing before you use it, don't message me asking why it doesn't work, I've used it already successfully, you just need to do some editing. Simply a template. Trying to keep complete idiots from being able to macro.
One more thing, this is for AutoIt V3, it will NOT work with AutoItV2.*.
Enjoy.
Code:
WinActivate("EverQuest II", "")
Sleep(3000)
Call("main")
Call("main")
Call("main")
Call("main")
Call("main")
Call("main")
Call("main")
Call("main")
Call("main")
Call("main")
Func main()
$health = PixelGetColor (118,30)
If $health = 64256 Then
$tarret = Call("target")
While $tarret = 0
Call("target")
Wend
Else
Send("/healloop{ENTER}")
Sleep(60000)
$tarret = Call("target")
While $tarret = 0
Call("target")
Wend
EndIf
Send("!5")
Sleep(2000)
Send("!7")
Sleep(2000)
$comret = Call("combat")
If $comret = 1 Then
Send("/Combat complete{ENTER}")
Else
Send("/Combat has failed{ENTER}")
EndIf
EndFunc
Func target()
$target = PixelGetColor (118,85)
Send("/tarloop{ENTER}")
Send("{F8}")
If $target = 64256 Then
Return 1
Else
Send("{ESC}")
Return 0
EndFunc
Func combat()
Send("^1")
Sleep(3000)
Send("^=")
Sleep(1000)
$i = 0
While $i <=85
Send("234780-=")
$i = $i + 1
Wend
Return 1
EndFunc
---------------
Switch:
Code:
WinActivate("EverQuest II", "") Sleep(3000) While 1 < 2 Call("main") Wend Func main()
