;TehVoyager's Auction house snipescript
;Version 1.01
;IGG Donations Accepted on US server lol ^__^
;Use in 800x600 resolution, windowed. Make sure Diablo is in the Top Left corner of your screen.
;NOTE: For Larger Buyouts, Incerase "{BS 5}". BS denotes Backspace, 5 indecates the number of backspaces.
;See commented portions to adjust timings and etc.
;Not to be distributed outside Ownedcore.com.
;Feel free to modify... however please give credit where its due.
;I take Zero responsability for any Losses of IGG.
;I take Zero Responsability for your Account Potentially being banned for using this.
;
;Usage
;
;Open the Auction house. open the Equipment Tab. Set your Armor Type, Level, and Attribute(s) you want to search for.
;
;Press F2 to start Script.


Dim $Buyout = 10000 ;This is your Starting Buyout.
Dim $BuyoutCap = 12000 ;This is the Buyout Cap.
;Modify these to change initial Buyout and Cap.

Dim $Reset = 10000 ;Make this the same as $buyout.

HotKeySet("{F2}","Start") ;script started by pressing F2.
HotKeySet("{F4}", "Stop") ;script stopped by pressing F4.

While 1
Sleep(500)
Wend

Func Start()
While 1
Sleep(300 Random(1,150))

MouseClick("Primary",234,462) ;Select the Buyout input box.

Send("{BS 5}") ;Erase buyout box.

Send($Buyout)

if ($Buyout < $BuyoutCap) Then $Buyout=$Buyout 1
If ($Buyout >= $BuyoutCap) Then $Buyout = $Reset

Send("{ENTER}") ;Search.

Sleep(200 Random(1,150))

MouseClick("Primary",506,215) ;Select Top item in list.

Sleep(200 Random(1,150))

MouseClick("Primary",687,522) ;Click "Buyout" button

Sleep(200 Random(1,150))

MouseClick("Primary",362,444) ;Click "Buyout" button in Popup box.

Sleep(1000 Random(1,150))

MouseClick("Primary",412,295) ;Click "Okay" confirming purchase.

Sleep(200 Random(1,150))
Wend
EndFunc

Func Stop()
MsgBox(0, "Done!", "Script Stopped.")
Exit
EndFunc