; CASTS A BUNCH OF SPELLS BY ABDICATING THEN ALIGNING AND CASTING
; SCRIPT EXPECTS YOU TO START FROM A FRESH ABDICATION


; CHANGE THESE FOR EACH ITERATION
; STARTING CASTS = HOW MANY CASTS THE SPELL ALREADY HAS
; TARGET = HOW MANY TOTAL CASTS YOU WANT TO HAVE AT THE END
$startingcasts = 0
$target = 100

; CHANGE AS NEEDED TO ADJUST SPEED
$sleeptime = 40


; DON'T MESS WITH THESE
$tocast = $target - $startingcasts
$casts = 0

; THE ESCAPE KEY EXITS, IN CASE ANYTHING MESSES UP
HotKeySet("{ESC}","Quit")
ProgressOn("Macro Progress", $tocast & " Spells")

while ($casts < $tocast)
   Align()
   Sleep(($sleeptime * 9))
   Cast()
   Abdicate()
   Sleep($sleeptime)
   $casts += 1
   ProgressSet(100*$casts/$tocast, "Casting " & $casts + 1 & " - Approx " & ($tocast - $casts) * 1.5 & " seconds remain")
WEnd


; YOU MUST CHANGE THE BELOW MOUSECLICK NUMBERS (first 2, for
; X and Y coordinates) SO THAT IT CLICKS THE CORRECT BUTTONS.
; THIS VARIES WIDELY ON BROWSER, SCREEN POSITION, AND ZOOM!

Func Abdicate()
   MouseClick( "left", -1017, 801, 1, 1) ; Abdicate Button
   Sleep($sleeptime)
   MouseClick( "left", -810, 1141, 1, 1) ; Abdicate Confirmation
EndFunc

Func Align()
   MouseClick( "left", -1028, 911, 1, 1) ; Alignment - CHANGE ME EVERY ITERATION!
   Sleep($sleeptime)
   MouseClick( "left", -976, 911, 1, 1) ; Faction - CHANGE ME EVERY ITERATION!
EndFunc

Func Cast()
   MouseClick( "left", -593, 1037, 1, 1) ; Cast the spell in the 4th slot
EndFunc




Func Quit()
   Exit
EndFunc