dim $stormshield,$x1,$x2,$x3,$x4,$x5,$x6,$y1,$y2,$y3,$y4,$y5,$y6,$x7,$y7,$item,$price,$string
HotKeySet("{F1}", "start")
HotKeySet("{F2}", "stop")
HotKeySet("{F3}", "quit")
$end = False


;Item prices
$stormshield = 3500000
$string = 200000
$lantern = 4500000
$spear = 600000
$mark = 4000000
$other = 7400000


;Price box location
$x1 = 610
$y1 = 759
;Search button
$x2 = 520
$y2 = 839
;Top item
$x3 = 1090
$y3 = 320
;Buyout
$x4 = 1449
$y4 = 876
;Confirm
$x5 = 847
$y5 = 717
;Complete
$x6 = 959
$y6 = 459
;Name box
$x7 = 487
$y7 = 762
;color check
$x8 = 737
$y8 = 307



while True
    wait()
WEnd
Func checker()
    $x = ($x7 + random(-4,4,1))
    $y = ($y7 + random(-4,4,1))
    mouseClick ( "left", $x, $y) ; Name box
    $wait = random(10,15,1)
    sleep($wait)
    Send("{CTRLDOWN}""a""{CTRLUP}")
    Send($item)
    sleep($wait)
    $x = ($x1 + random(-4,4,1))
    $y = ($y1 + random(-4,4,1))
    mouseClick ( "left", $x, $y) ; Price box
    $wait = random(10,15,1)
    sleep($wait)
    Send("{CTRLDOWN}""a""{CTRLUP}")
    Send($price)
    sleep($wait)
    $x = ($x2 + random(-4,4,1))
    $y = ($y2 + random(-4,4,1))
    mouseClick ( "left", $x, $y) ; Search
    sleep($wait+1000)

    $col = PixelGetColor($x8,$y8) ; Checking pixel color

    If $col = 5328962 Then  ; Checking for item

        $x = ($x3 + random(-2,2,1))
        $y = ($y3 + random(-2,2,1))
        mouseClick ( "left", $x, $y) ; Top item
        sleep($wait)
        $x = ($x4 + random(-2,2,1))
        $y = ($y4 + random(-2,2,1))
        mouseClick ( "left", $x, $y) ; Buyout
        sleep($wait)
        $x = ($x5 + random(-2,2,1))
        $y = ($y5 + random(-2,2,1))
        mouseClick ( "left", $x, $y) ; Confirm
        sleep($wait+1500)
        $x = ($x6 + random(-2,2,1))
        $y = ($y6 + random(-2,2,1))
        mouseClick ( "left", $x, $y) ; Complete
    endif
EndFunc

Func start()
    sleep(100)
    $price = ($stormshield + random(100,2000,1))
    $item = "stormshield"
    checker()
    sleep(100)
    $price = ($string + random(100,2000,1))
    $item = "string of ears"
    checker()
    sleep(100)
    $price = ($lantern + random(100,2000,1))
    $item = "justice lantern"
    checker()
    sleep(100)
    $price = ($spear + random(100,2000,1))
    $item = "the three hundredth spear"
    checker()
    sleep(100)
    ;$price = ($mark + random(100,2000,1))
    ;$item = "Natalya's Mark"
    ;checker()
    ;sleep(100)
    ;$price = ($other + random(100,2000,1))
    ;$item = ""
    ;checker2()
    ;sleep(100)
    start()
EndFunc

    $x1 + random(1,10,1)

Func wait()
    while true
        sleep (100)
    wend
endFunc

Func quit()
    Exit(0)
EndFunc

Func checker2()
    $x = ($x7 + random(-2,2,1))
    $y = ($y7 + random(-2,2,1))
    mouseClick ( "left", $x, $y) ; Name box
    $wait = random(10,15,1)
    sleep($wait)
    Send("{CTRLDOWN}""a""{CTRLUP}")
    Send("{BACKSPACE}")
    sleep($wait)
    $x = ($x1 + random(-2,2,1))
    $y = ($y1 + random(-2,2,1))
    mouseClick ( "left", $x, $y) ; Price box
    $wait = random(10,15,1)
    sleep($wait)
    Send("{CTRLDOWN}""a""{CTRLUP}")
    Send($price)
    sleep($wait)
    $x = ($x2 + random(-2,2,1))
    $y = ($y2 + random(-2,2,1))
    mouseClick ( "left", $x, $y) ; Search
    sleep($wait+1000)
    $x = ($x3 + random(-2,2,1))
    $y = ($y3 + random(-2,2,1))
    mouseClick ( "left", $x, $y) ; Top item
    sleep($wait)
    $x = ($x4 + random(-2,2,1))
    $y = ($y4 + random(-2,2,1))
    mouseClick ( "left", $x, $y) ; Buyout
    sleep($wait)
    $x = ($x5 + random(-2,2,1))
    $y = ($y5 + random(-2,2,1))
    mouseClick ( "left", $x, $y) ; Confirm
    sleep($wait+1500)
    $x = ($x6 + random(-2,2,1))
    $y = ($y6 + random(-2,2,1))
    mouseClick ( "left", $x, $y) ; Complete
EndFunc

Func stop()
    $end = True
EndFunc