cowtipscript.au3

;; ----------------------------------------------------------------------
;; Cow Tip Script, tip the cow in Holtberg and earn a bunch of XP. This
;; is an early version I run out of SCiTe. I'll add a working GUI soon.
;; ----------------------------------------------------------------------

;; AutoIT settings
#NoTrayIcon
Opt("MustDeclareVars", 1)
Opt("WinTitleMatchMode", 2)

;; Variables used below
Local $count = 0
Local $max = 1
Local $modMin = 50
Local $betweenTips = 5500
Local $title = "Asheron"
Local $actionButton = "r"

;; Select the game window
WinSetOnTop($Title, "", 0)
WinActivate($Title, "")

;; Sleep before starting
Sleep(50)
Send(";")

;; Main tipping loop
While(1)
    ;; Sleep between tips
    Sleep($betweenTips);

    ;; Count tips
    $count += 1

    ;; Send the "use" button to tip the cow
    Send($actionButton)

    ;; Every few tips re-select the cow
    if Mod($count,$modMin) == 0 Then
        Sleep(500)
        Send("[")
        Sleep(500)
        Send(";")
    EndIf

    ;; Exit the loop
    if $count == $max then ExitLoop
WEnd

;; Alert when complete
MsgBox(1, "Done", "Get those XP")

;; End the program
Exit