Testing ImageSearch

#include <ImageSearch.au3>

#include <GUIConstantsEx.au3>
#include <Debug.au3>
$sTitle = "My Debug Report"
_DebugSetup($sTitle)
;~ 		_DebugOut("Search for item:" & $gI)


Global $Paused
HotKeySet(",", "Start") ;script started by pressing -
HotKeySet(".", "Pause") ;script paused by pressing =
HotKeySet("x", "Stop") ;script stopped by pressing x

Func Start()
	$Pause = False
EndFunc   ;==>Start

Func Pause()
	$Pause = True
EndFunc   ;==>Pause

Func Stop() ;to allow the script to stop
	Exit
EndFunc   ;==>Stop


;ImageSearch Looting Variables
$directory = "D:\Tmp\Diablo\Png\" ; CHANGE THIS! Point it to the directory with the imagesearch pngs
$totalItems = 20 ; This needs to match the number of pngs you are loading

Global $General[2]
$General[0] = "uare.png" ; Matches "Square" 			require tolerance >70
$General[1] = "tome.png" ; Matches "Tome"   			require tolerance >100

Global $Legendary[6]
$Legendary[0] = "legendaryA.png" ; Matches "Legenday" 		require tolerance >70 <100
$Legendary[1] = "legendaryE.png" ;
$Legendary[2] = "legendaryI.png" ;
$Legendary[3] = "legendaryO.png" ;
$Legendary[4] = "legendaryU.png" ;
$Legendary[5] = "legendaryY.png" ;

Global $Set[6]
$Set[0] = "setA.png" ; Matches "Set"  				require tolerance >70
$Set[1] = "setE.png" ;
$Set[2] = "setI.png" ;
$Set[3] = "setO.png" ;
$Set[4] = "setU.png" ;
$Set[5] = "setY.png" ;

Global $Rare[6]
$Rare[0] = "rareA.png.png" ; Matches "Rare"			require tolerance >70 >>
$Rare[1] = "rareE.png.png" ;
$Rare[2] = "rareI.png.png" ;
$Rare[3] = "rareO.png.png" ;
$Rare[4] = "rareU.png.png" ;
$Rare[5] = "rareY.png.png" ;

;Timers
$walktime = 4500 ; time in ms the script waits for you to enter and load the cellar. Slow this down for slower move speeds and loading times
$loadtime = 5000 ; time in ms the script waits for the game to load before it starts pathfinding. Slow this down for slower hard drives
$tptime = 6900 ; time in ms the script waits for teleport before exiting the game

;Settings
$Timer = False ; set this to true and the bot will randomly wait (5% chance) in town for 30-60 seconds before starting over
$LootRares = True ; Change this to false if you don't want the bot to pick up rares (good for legendary/set only, recommend setting LootGems to False)
$LootGems = False ; Change this to true if you want to pick up gems (messy, can fill up bag with whites/blues)

;Repairs colors
$yellow = 0xFFF000 ; yellow color code (repair icon)
$red = 0xD90000 ; red color code (repair icon)

$Continue = True
$Pause = True
$Dead = False
$Logout = False
$Window = False
$NeedRepair = False
$default_resolutionX = 1920
$default_resolutionY = 1080
$x_ratio = @DesktopWidth / $default_resolutionX ; Change @Desktopwidth to a static number if you are running different resolutions ingame and on desktop
$y_ratio = @DesktopHeight / $default_resolutionY ; Change @Desktopwidth to a static number if you are running different resolutions ingame and on desktop
$i = 0
$x = 0
$currentArrayItem = 0
$gX = 0
$gY = 0

Call("RestartRun")

Func RestartRun()
	While $Continue
		If Not ($Pause) Then
			Call("pickItems")
			Sleep(10000)
		EndIf
	WEnd
	Call("RestartRun")
EndFunc   ;==>RestartRun


Func pickItems()
	Sleep(6000)
;~ 	Loot Legenday
	For $gI = 0 To (5)
		$urlString = $directory & $Legendary[$gI]
 		$Target = _ImageSearch($urlString, 1, $gX, $gY, 75)
		_DebugOut("Link:" & $urlString)
		While $i <= 5
			If $Target Then
				_DebugOut(" ===================================" )
				_DebugOut("ItemFound:" & $Target)
				_DebugOut("x=" & $gX)
				_DebugOut("y=" & $gY)
				MouseClick("left", $gX, $gY)
				Sleep(Random(1000, 1200))
				MouseMove(0, 100) ;Reset cursor position, it doesn't need to hover
 				$Target = _ImageSearch($urlString, 1, $gX, $gY, 75)
				Sleep(5000)
				$i += 1
			Else
				ExitLoop
			EndIf
		WEnd
	Next

;~ 	Loot Set
	For $gI = 0 To (5)
		$urlString = $directory & $Set[$gI]
 		$Target = _ImageSearch($urlString, 1, $gX, $gY, 75)
		_DebugOut("Link:" & $urlString)
		While $i <= 5
			If $Target Then
				_DebugOut(" ===================================" )
				_DebugOut("ItemFound:" & $Target)
				_DebugOut("x=" & $gX)
				_DebugOut("y=" & $gY)
				MouseClick("left", $gX, $gY)
				Sleep(Random(1000, 1200))
				MouseMove(0, 100) ;Reset cursor position, it doesn't need to hover
 				$Target = _ImageSearch($urlString, 1, $gX, $gY, 75)
				Sleep(5000)
				$i += 1
			Else
				ExitLoop
			EndIf
		WEnd
	Next

;~ 	Loot Rare
	For $gI = 0 To (5)
		$urlString = $directory & $Rare[$gI]
 		$Target = _ImageSearch($urlString, 1, $gX, $gY, 115)
		_DebugOut("Link:" & $urlString)
		While $i <= 5
			If $Target Then
				_DebugOut(" ===================================" )
				_DebugOut("ItemFound:" & $Target)
				_DebugOut("x=" & $gX)
				_DebugOut("y=" & $gY)
				MouseClick("left", $gX, $gY)
				Sleep(Random(1000, 1200))
				MouseMove(0, 100) ;Reset cursor position, it doesn't need to hover
 				$Target = _ImageSearch($urlString, 1, $gX, $gY, 115)
				Sleep(5000)
				$i += 1
			Else
				ExitLoop
			EndIf
		WEnd
	Next

;~ Loot general
	For $gI = 0 To (1)
		$urlString = $directory & $General[$gI]
 		$Target = _ImageSearch($urlString, 1, $gX, $gY, 115)
		_DebugOut("Link:" & $urlString)
		While $i <= 10
			If $Target Then
				_DebugOut(" ===================================" )
				_DebugOut("ItemFound:" & $Target)
				_DebugOut("x=" & $gX)
				_DebugOut("y=" & $gY)
				MouseClick("left", $gX, $gY)
				Sleep(Random(1000, 1200))
				MouseMove(0, 100) ;Reset cursor position, it doesn't need to hover
 				$Target = _ImageSearch($urlString, 1, $gX, $gY, 115)
				Sleep(5000)
				$i += 1
			Else
				ExitLoop
			EndIf
		WEnd
	Next
EndFunc   ;==>pickItems