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