;; ----------------------------------------------------------------------
;; 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
Comments
0 B
|👍
/👎
0 B
|👍
/👎