InitWorld()
While(1)
    ;; Can probably increase the loop size here as you get higher
    ;; level buffs.
    For $i = 1 to 8
	ShoutLimitHeal()
    Next
    ;; Refresh stance and buffs.
    Stance()
    Sleep(500)
WEnd

Func ShoutLimitHeal()
    EQ()
EndFunc

Func InitWorld()
    ;; Wait for any startup window switching and such to get done
    ;; before we start twiddling
    Sleep(3000)
    ;; We want window relative coordinates for pixel grabs.
    AutoItSetOption("PixelCoordMode", 0)
    ;; We want minimal delay between multiple keystrokes in a send.
    AutoItSetOption("SendKeyDelay", 1)
EndFunc

;;;
;; Hereafter a simple functions that do send the appropriate keystroke
;; and associated pause.  Edit here if your keybindings are different.
Func Stance()
     WinSend("sb-macro", "", "0")
     Sleep(500)
EndFunc

Func EQ()
     WinSend("sb-macro", "", "r")
     Sleep(20000)
EndFunc

;; EOF
