Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;Iskatu barbarian Farm
;Required Skills:
;Slot1: War Cry - Charge!
;Slot2: Revenge - Vengeance is Mine
;Slot4: Earthquake - Giant's Stride
;Edition by Aikeelu, credits for the original to: K!ngp!n@Blizzhackers
;Background Mode by Falkor - http://www.ownedcore.com/forums/members/646262-falkor.html
Global $Paused, $WinTitle ='Diablo III'
HotKeySet("{HOME}", "TogglePause")
HotKeySet("{END}", "Terminate")
While 1
Sleep(500)
ToolTip("Not Running Hit 'HOME' to start/pause 'END' to force end!", 0, 0)
WEnd
Func TogglePause()
$Paused = NOT $Paused
While $Paused
ToolTip("Running!", 0, 0)
Sleep(Random( 2000, 4000, 1 ))
ControlClick($WinTitle, "", "", "left", 1, Random(78,385,1), Random(398,437,1)) ; click 'resume game'
Sleep(Random( 4000, 6000, 1 ))
ControlClick($WinTitle, "", "", "left", 1, 1550, 900) ; go backwards to initialize position
sleep(Random( 2000, 3000, 1 ))
ControlClick($WinTitle, "", "", "left", 1, 115, 55) ; first click
Sleep(Random( 4500, 5500, 1 ))
ControlClick($WinTitle, "", "", "left", 1, 150, 145) ; second click
Sleep(Random( 4700, 5700, 1 ))
ControlClick($WinTitle, "", "", "left", 1, 810, 260) ; third click
sleep(3000) ; cancel Tyreal's dialog
ControlSend($WinTitle, "", "", "{SPACE}")
sleep(Random( 400, 900, 1 ))
ControlSend($WinTitle, "", "", "{SPACE}") ; cancel Imperius' dialog
sleep(Random( 400, 800, 1 ))
ControlSend($WinTitle, "", "", "{SPACE}")
sleep(Random( 3000, 5000, 1 ))
ControlClick($WinTitle, "", "", "left", 1, 1020, 371) ; click on tyreal
sleep(Random( 800, 1200, 1 ))
ControlSend($WinTitle, "", "", "{ESCAPE}") ; cancel Tyreal's 1st popup dialog
sleep(Random( 400, 700, 1 ))
ControlSend($WinTitle, "", "", "{ESCAPE}") ; cancel Tyreal's 2nd popup dialog
sleep(Random( 500, 700, 1 ))
ControlClick($WinTitle, "", "", "left", 1, 467, 147) ; move/click on the portal
sleep(Random( 2500, 3500, 1 ))
ControlSend($WinTitle, "", "", "{ESCAPE}") ; cancel cinematic
sleep(Random( 400, 600, 1 ))
ControlClick($WinTitle, "", "", "left", 1, Random(850,910,1), Random(350,377,1)) ; click 'Ok'
sleep(Random( 700, 1200, 1 ))
If PixelGetColor(1578,111) = 16634255 Then ; in options menu. Portal must have failed
ControlSend($WinTitle, "", "", "{ESCAPE}")
sleep(1000)
ControlSend($WinTitle, "", "", "{ESCAPE}")
sleep(2000)
ControlClick($WinTitle, "", "", "left", 1, 926, 244) ; click portal again
sleep(4000)
ControlSend($WinTitle, "", "", "{ESCAPE}") ; cancel cinematic
sleep(1000)
ControlClick($WinTitle, "", "", "left", 1, Random(850,910,1), Random(350,377,1)) ; click 'Ok'
sleep(1000)
endif
sleep(Random( 4500, 5700, 1 )) ; combat
ControlSend($WinTitle, "", "", "2")
sleep(Random( 1000, 2000, 1 ))
ControlSend($WinTitle, "", "", "2")
sleep(Random( 1000, 2000, 1 ))
ControlSend($WinTitle, "", "", "{1}")
sleep(Random( 1000, 3000, 1 ))
ControlSend($WinTitle, "", "", "{4}")
sleep(Random( 2000, 3000, 1 ))
ControlSend($WinTitle, "", "", "2")
sleep(Random( 1000, 2000, 1 ))
ControlSend($WinTitle, "", "", "{2}") ; use big AE DMG spell for Iskatu
sleep(Random( 2000, 3000, 1 ))
ControlSend($WinTitle, "", "", "{2}")
sleep(Random( 2000, 3000, 1 ))
ControlSend($WinTitle, "", "", "{2}")
sleep(Random( 2000, 3000, 1 ))
ControlSend($WinTitle, "", "", "{2}")
ControlClick($WinTitle, "", "", "left", 1, 990, 650) ; move a little bit to pick up gold
sleep(Random( 3000, 5000, 1 )) ; wait to ensure quest completes
ControlSend($WinTitle, "", "", "t")
sleep(Random( 7200, 7900, 1 ))
ControlSend($WinTitle, "", "", "{ESCAPE}")
sleep(Random( 1000, 2000, 1 ))
MouseClick("left",Random(800,1110,1),Random(560,590,1)) ; click 'leave game'
sleep(Random( 6500, 7500, 1 ))
MouseClick("left",Random(70,390,1),Random(465,510,1)) ; click 'change quest'
sleep(Random( 1500, 2500, 1 ))
MouseClick("left",Random(375,790,1),Random(595,635,1)) ; click 'Fall of the High Heavens' quest
sleep(Random( 1500, 2500, 1 ))
MouseClick("left",Random(1040,1365,1),Random(840,885,1)) ; click 'Select Quest'
sleep(Random( 1500, 2500, 1 ))
MouseClick("left",Random(755,940,1),Random(610,650,1)) ; click 'Ok'
WEnd
EndFunc
Func Terminate()
Exit 0
EndFunc