[Wartune] E's AutoIt Scripts Daru Farmbot

Func start()
	  If $start = False Then
		 Return
	  EndIf
	  If CheckFor($farmDir, "clickblood") Then
			Do
				  Sleep(2000)
				  ClickImage($farmDir, "clickblood")
				  Sleep(100)
				  ClickImage($buttonsDir,"afkmode")
			   Until ClickImage($farmDir, "bloodfoot") = True
	  Else
			   ClickImage($buttonsDir,"afkmode")
	  EndIf
   EndFunc

Func PlantMyKyanite()
   If $plantcrop = False Then
		  Return
	   EndIf
		 If CheckFor2($farmDir, "farmplant2") Then
			ClickImage($farmDir,"mouseclean")
			Sleep(50)
			Do
				  ClickImage($farmDir, "farmplant2")
				  Sleep(50)
				  ClickImage($farmDir, "kyanite")
			   Until ClickImage($farmDir, "farmplant2") = False
		 EndIf	
	  EndFunc

Func RunScript()
	;Main script activated by hotkey
	CheckFor($buttonsDir,"collectdisabled",50)
	While $numberOfSpins > 0
		If CheckFor($buttonsDir,"collectdisabled",50) = False Then
			MouseClick("left",$sX,$sY,1,0)
		 EndIf
			Sleep(500)
			ClickImage($buttonsDir,"spin",50)
			$numberOfSpins -= 1
			While CheckFor($buttonsDir,"spindisabled",50)
			Sleep(100)
		WEnd
	WEnd		
EndFunc

Func RunScript()
	;Main script activated by hotkey
	CheckFor($buttonsDir,"collectdisabled",50)
	While $numberOfSpins > 0
		If CheckFor($buttonsDir,"collectdisabled",50) = False And CheckFor($farmDir,"shopspin",50) Then
			MouseClick("left",$sX,$sY,1,0)
		 EndIf
			Sleep(500)
			ClickImage($buttonsDir,"spin",50)
			$numberOfSpins -= 1
			While CheckFor($buttonsDir,"spindisabled",50)
			Sleep(100)
		WEnd
	WEnd		
EndFunc

;===========================================================================================================
;@Author Ewvyx  I wrote this so please don't slap your name on it.

;This script will do all of your guild altar spins for you.
;Just open the altar spinner and press 'q'
;Be sure to edit the number of spins you have available in the User Defined Variables section below
#RequireAdmin
#include <ImageSearch.au3>

;===========================================================================================================
;Global Variables (DO NOT CHANGE UNLESS YOU KNOW WHAT YOU ARE DOING)

;X Coords Input on 1920x1080 :  1518x198
;Y Coords Input on 1920x1080 :  1553x198

$Version = "1.1.0a"
Global $Paused
Global $gX = 0
Global $gY = 0
Global $sX = 0
Global $sY = 0
Global $success = False ;boolean for various checks
Global $tolFail = 0 ;tolerance failures for _ImageSearch


;===========================================================================================================
;User Defined Variables

$bmpLocation = @ScriptDir & "\Pics"
$farmDir = "Farm"
$buttonsDir = "Buttons"
$defaultCheckRate = 0.1		;smaller the number, the faster the image checks are.  increase if icons are not being found
$numberOfSpins = 15			;the number of altar spins you want to perform

;===========================================================================================================
;HotKeys

HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("q","RunScript")
;===========================================================================================================
;~Functions

Func TogglePause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
        ToolTip("Script is Paused, press q to continue.", 0, 0)
    WEnd
    ToolTip("")
EndFunc   ;==>TogglePause

Func Terminate()
    Exit 0
EndFunc   ;==>Terminate

Func CheckFor($directory,$img,$tolerance=50,$startX=0,$startY=0,$endX=@DesktopWidth,$endY=@DesktopHeight,$seconds=$defaultCheckRate)
	$c = 0
	MouseMove($sX,$sY,0)
	$string = $bmpLocation & "\" & $directory & "\" & $img & ".bmp"
	$updateString = $img
	ToolTip("Checking for " & $updateString,0,0)
	$tolerance = 70
	If $tolFail > 0 Then
		$tolerance += $tolFail
	EndIf
	Do
		$c += 1
		Sleep(50)
		If $c > ($seconds * 10) Then
			Return False
		EndIf
	Until _ImageSearchArea($string,1,$startX,$startY,$endX,$endY,$gX,$gY,$tolerance)
	If $img = "collectdisabled" Then
		$sX = $gX
		$sY = $gY
	EndIf
	Sleep(50)
	Return True
EndFunc

Func ClickImage($directory,$img,$tolerance=50,$startX=0,$startY=0,$endX=@DesktopWidth,$endY=@DesktopHeight,$seconds=$defaultCheckRate)
	If CheckFor($directory,$img,$tolerance,$startX,$startY,$endX,$endY,$seconds) Then
		MouseClick("left",$gX,$gY,1,0)
		Return True
	Else
		Return False
	EndIf
EndFunc	

Func HoverOverImage($directory,$img,$tolerance=50,$startX=0,$startY=0,$endX=@DesktopWidth,$endY=@DesktopHeight,$seconds=$defaultCheckRate)
	If CheckFor($directory,$img,$startX,$startY,$endX,$endY,$seconds,$tolerance) Then
		MouseMove($gX,$gY,0)
		Sleep(50)
		Return True
	Else
		Return False
	EndIf
EndFunc

Func RunScript()
	;Main script activated by hotkey
	CheckFor($buttonsDir,"collectdisabled",50)
	While $numberOfSpins > 0
		If CheckFor($buttonsDir,"collectdisabled",50) = False Then
			MouseClick("left",$sX,$sY,1,0)
		 EndIf
			While CheckFor($farmDir,"shopspin",50)
			Sleep(50)
			ClickImage($buttonsDir,"spin",50)
			$numberOfSpins -= 1
		 WEnd
			While CheckFor($buttonsDir,"spindisabled",50)
			Sleep(100)
			WEnd
		WEnd		
	 EndFunc		
	 
;===========================================================================================================
;Main

While 1
	ToolTip("Press 'q' to begin, PAUSE to pause and ESC to quit.",0,0)
	Sleep(100)
WEnd