;; ----------------------------------------------------------------------
;; 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