#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.8.1
 Author:         Solemn

 Script Function:
	  Leecher runs this script.
#ce ----------------------------------------------------------------------------

#RequireAdmin

WinActivate("Diablo III")

HotKeySet("{END}", "ExitScript")

$X = 0
$Y = 0

While 1
   Text("Back to start")
   Sleep(1000)
   StartGame()
WEnd

Func StartGame() ;moet game leaven via leave game en niet tp
   Text("Choosing the right Quest")
   MouseClick("Left", 236, 574, 1, 10) ;Game settings
   Sleep(200)
   MouseClick("Left", 943, 665, 1, 10) ;Change Quest
   Sleep(200)
   MouseClick("Left", 1176, 343, 9, 10) ;Scrolling up
   Sleep(200)
   MouseClick("Left", 914, 367, 1, 10) ;Clicking act1
   Sleep(200)
   MouseClick("Left", 1177, 570, 8, 10) ;Scrolling down
   Sleep(200)
   MouseClick("Left", 865, 389, 1, 10) ;Selecting act 3.3
   Sleep(200)
   MouseClick("Left", 868, 427, 1, 10) ;Selecting act 3.3.3
   Sleep(200)
   MouseClick("Left", 848, 776, 1, 10) ;OK Quest
   Sleep(200)
   MouseClick("Left", 841, 650, 1, 10) ;OK overwrite
   Text("Starting Game")
   Sleep(200)
   MouseClick("Left", 1142, 875, 1, 10) ;Start Game
   CheckIngame()
EndFunc

Func CheckIngame()
   Text("Waiting for loading screen")
   $found = false
   While not $found
	  Text("Waiting for loading screen")
	  $Search = PixelSearch(1113, 1029, 1115, 1031, 0x13235A, 20) ;Search for TP in bar
	  If Not @error Then
		 $found = true
		 Text("Currently in-game")
		 Sleep(1000)
		 MapToKeep3()
	  EndIf
   WEnd
EndFunc

Func MapToKeep3()
   Text("Teleporting to Keep Depths 3")
   Send("M") ;Opening Map
   Sleep(500)
   MouseClick("Left", 687, 786, 1, 10) ;Porting to Keep 3
   Sleep(3000)
   Text("Entering the Larder")
   MouseClick("Left", 1607, 266, 1, 10) ;Entering the larder
   Sleep(1500)
   Text("Walking to Ghom")
   MouseClick("Left", 1776, 0, 1, 10) ;Walking to Ghom
   Sleep(3500)
   MouseClick("Left", 1776, 0, 1, 10) ;Walking to Ghom
   FightGhom()
EndFunc

Func FightGhom()
   Text("FIGH FIGHT FIGHT")
   Sleep(500)
   MouseClick("Left", 1415, 203, 1, 10)
   Sleep(50000000000000)
EndFunc

Func Text($message) ;ToolTip with fixed position
   ToolTip($message, 960, 942, "", 0, 2)
EndFunc

Func ExitScript()
    Exit
EndFunc