[AutoIt] Resource Gathering Script w/ Rest

[Penakle]

; Simple Harvesting related AutoIt script by TeabagGus
; This script will equip a weapon first and then your harvesting tool. This makes sure you always have the tool equiped.
; It runs 2 loops of 50 attempts
; Rest is Slot 5
; Tool is slot 3
; Weapon is slot 0
Global $Paused
HotKeySet("`", "TogglePause")
HotKeySet("{DEL}", "Terminate")
WinActivate ("Darkfall Online")
Sleep (2000)
$i = 0
While $i <= 2
EquipWeapon()
Sleep (1000)
Harvest()
Sleep (1000)
Rest()
Sleep (1000)
$i = $i + 1
Wend
 
Func Harvest()
$m = 0
Send ("3")
Sleep (1000)
Send ("R")
Sleep (1000)
Send ("{DOWN Down}")
Sleep (1000)
Send ("{DOWN Up}")
Sleep (1000)
While $m <= 50
MouseClick ("Left")
Sleep (11500)
$m = $m + 1 
WEnd
Send ("R")
Sleep (1000)
EndFunc
 
Func Rest()
Send ("5")
Sleep (1000)
MouseClick ("left")
Sleep (120000)
Send ("w")
Sleep (1000)
EndFunc
 
Func EquipWeapon()
Sleep (1000)
Send ("0") ; Weapon
Sleep (1000)
EndFunc
 
Func TogglePause( )
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
 
Func Terminate( )
Exit 0
EndFunc