Greets folks, here is my first submission for AutoIT scripting. This extremely simple script looks for items listed cheaply, and buys them out. everything is annotated to allow for configuration.
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.
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. Press F4 to stop script. a messagebox will pop up so you know for sure the bot has stopped.
I recommend NOT compiling this as if you do you will have no way to update $Buyout $BuyoutCap and $Reset.
Enjoy!
(Note: Thanks to kakiru for some assitance with code trouble, Sonders for testing, AwareMeBrah for the idea, vvvat for telling me how the hell to loop a function and Miiiep for giving me a script to get mouse co-ordinates. and to everyone for putting up with my constant questions! )
Code:
;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
Put the following values in your D3prefs.txt file. (they should already be there, modify them to the following values.)
DisplayModeWindowMode "1"
DisplayModeWinLeft "1"
DisplayModeWinTop "1"
DisplayModeWinWidth "800"
DisplayModeWinHeight "600"
DisplayModeUIOptWidth "800"
DisplayModeUIOptHeight "600"
DisplayModeWidth "800"
DisplayModeHeight "600"