Code:
#SingleInstance , Force
toggle := 0 ;
f3::ExitApp ;
f2::Pause ;
f1::
toggle := !toggle
Clipboard := ""
Unique := "Unique"
if (toggle = 1) {
Loop{
;Random Zones
;Chance Orb
Random, chancex, 210, 225
Random, chancey, 300, 315
;Item in Tab
Random, itemx, 300, 350
Random, itemy, 414, 470
;Scour Orb
Random, scourx, 420, 443
Random, scoury, 535, 545
;Sleeps
Random, s1, 64, 128
;Automated chancing
MouseClick, right, %chancex%, %chancey%
Sleep, s1
MouseClick, left, %itemx%, %itemy%
Sleep, s1
MouseClick, right, %scourx%, %scoury%
Sleep, s1
MouseClick, left, %itemx%, %itemy%
Sleep, s1
;Copy item data to clipboard, check for Unique Item, if the item is Unique, break the loop & display a message
Send, ^c
ClipWait, 5
Sleep, 5
If InStr(Clipboard, Unique)
MsgBox, "Unique Item Obtained"
Else
;Repeat Loop
MouseClick, right, %chancex%, %chancey%
Sleep, s1
MouseClick, left, %itemx%, %itemy%
Sleep, s1
MouseClick, right, %scourx%, %scoury%
Sleep, s1
MouseClick, left, %itemx%, %itemy%
Sleep, s1
}
}
return