Start it with your gathering tool unsheathed.
Code:
HotKeySet("`", "Terminate") Global $reps = 41 Global $wait = 10700 Global $rest = "0" Global $sheath = "R" Global $manatostam = "2" Global $wand = "1" Global $tool = "4" WinWaitActive("Darkfall Online") Sleep(2000) Harvest() Cast() Cast() Harvest() Rest() Func Harvest() Send($tool) Sleep(2000) $i = 0 while ($i < $reps) $i = $i + 1 MouseClick("Left") Sleep($wait) WEnd EndFunc Func Cast() Send($wand) Sleep(2000) Send($manatostam) Sleep(250) MouseClick("Left") Sleep(8000) EndFunc Func Rest() Send($sheath) Sleep(2000) Send($rest) Sleep(500) MouseClick("Left") EndFunc Func Terminate( ) Exit 0 EndFunc