Code:
;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
Global $Paused
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 ))
MouseClick("left",Random(78,385,1),Random(398,437,1)) ; click 'resume game'
Sleep(Random( 4000, 6000, 1 ))
MouseClick("left", 1550, 900) ; go backwards to initialize position
sleep(Random( 2000, 3000, 1 ))
MouseClick("left",115,55) ; first click
Sleep(Random( 4500, 5500, 1 ))
MouseClick("left",150,145) ; second click
Sleep(Random( 4700, 5700, 1 ))
MouseClick("left",810,260,1) ; third click
sleep(3000) ; cancel Tyreal's dialog
send("{SPACE}")
sleep(Random( 400, 900, 1 ))
send("{SPACE}") ; cancel Imperius' dialog
sleep(Random( 400, 800, 1 ))
send("{SPACE}")
sleep(Random( 3000, 5000, 1 ))
MouseClick("left",1000,430,1) ; click on tyreal
sleep(Random( 800, 1200, 1 )) ; cancel Tyreal's popup dialog
send("{ESCAPE}")
sleep(Random( 400, 700, 1 ))
send("{ESCAPE}")
sleep(Random( 500, 700, 1 ))
MouseClick("left",524, 295)
sleep(Random( 900, 1200, 1 ))
MouseClick("left",918,296,1) ; click on the portal
sleep(Random( 2500, 3500, 1 ))
send("{ESCAPE}") ; cancel cinematic
sleep(Random( 400, 600, 1 ))
MouseClick("left",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
send("{ESCAPE}")
sleep(1000)
send("{ESCAPE}")
sleep(2000)
MouseClick("left", 926, 244) ; click portal again
sleep(4000)
send("{ESCAPE}") ; cancel cinematic
sleep(1000)
MouseClick("left",Random(850,910,1),Random(350,377,1)) ; click 'Ok'
sleep(1000)
endif
sleep(Random( 4500, 5700, 1 )) ; combat
send("2")
sleep(Random( 1000, 2000, 1 ))
send("2")
sleep(Random( 500, 1500, 1 ))
send("2")
sleep(Random( 500, 1500, 1 ))
send("2")
sleep(Random( 1000, 2000, 1 ))
send("{1}")
sleep(Random( 1000, 3000, 1 ))
send("{4}")
sleep(Random( 2000, 3000, 1 ))
send("2")
sleep(Random( 1000, 2000, 1 ))
send("{2}") ; use big AE DMG spell for Iskatu
sleep(Random( 2000, 3000, 1 ))
send("{2}")
sleep(Random( 2000, 3000, 1 ))
send("{2}")
sleep(Random( 2000, 3000, 1 ))
send("{2}")
MouseClick("left",990, 650) ; move a little bit to pick up gold
sleep(Random( 3000, 5000, 1 )) ; wait to ensure quest completes
send("t")
sleep(Random( 7200, 7900, 1 ))
send("{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