[Autoit] 800x600 Auction house Buyout Snipebot

[TehVoyager]

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! )

;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"

[SipyCup]

Cant wait to give it a try. How do you change D3's resolution while windowed?

[TehVoyager]

set the options in the D3prefs file.

shut down D3 and open D3prefs.txt
Change the following values

DisplayModeWindowMode "1"
DisplayModeWinLeft "1"
DisplayModeWinTop "1"
DisplayModeWinWidth "800"
DisplayModeWinHeight "600"
DisplayModeUIOptWidth "800"
DisplayModeUIOptHeight "600"
DisplayModeWidth "800"
DisplayModeHeight "600"

Should work. im at work right now so i will have to check my settings when i get home. when i do that i will update the Opening post with those values.

You should credit those who helped you, HERE and HERE. It's only the polite thing to do, especially since I can see the same code in this release .


Edit: Just saw that you did, my apologies!

AHHHH I SEE WHAT YOU DID THERE!!!!!!

lol

[SipyCup]

Is there no way to put what stats you want or type of gear?

[TehVoyager]

read the instructions. you set those then press F2.

So go in. select what you want to look for (for me, Armor, Ring, 20%GF, 59-60, Rare)
Then press F2 and off it goes looking for low priced bids.

Open the Auction house. open the Equipment Tab. Set your Armor Type, Level, and Attribute(s) you want to search for.

^What it says in the opening post. please dont TL : DR Scripts. it could cost you.

[SipyCup]

Already made 6mil lol

[TehVoyager]

Found a slight bug in the Sleep timer for confirming the Purchase. was shortening the sleep timer and accidentally extended it a LOT. >.>

This is now Corrected. please Recopy the script from the Opening post, or Modify
Sleep(8000) to say Sleep(1000)

Already made 6mil lol

R U serious?


..Damn!

[parusax]

This is really good if you know what items to look for.

[kakiru]

Coordinates for 1920*1080 are (in order of the script):

642*761
725*319
1439*880
827*713
963*459

So you don't have to get coords for yourself.

[TehVoyager]

Thanks for the post Kakiru. i made the script for 800x600 so that everyone could use it regardless to maximum screen resolution.

[kakiru]

Yeah, just figured I'd throw those out there, since there are quite a few who use it. Everyone likes their resolution and doesn't want to change it.

Kinda silly.

[TehVoyager]

I just have multiple copies of my D3prefs.txt file, each set for a different configuration. one is set for windowed fullscreen for tipical play, one for 800x600 for working on this, and one for a Sarkoth bot edit. when i want to change setups i exit my client and copy the txt file over.

[lostsk8r]

damn, wish i knew what to look for

[duder]

im guesing its supposed to reset to 10k after its reached 12k? it doesnt however, not that i see a point for this anyway ;-)
but i guess it should be like this for it to actually reset, since buyout wont ever go above buyoutcap?

If ($Buyout >= $BuyoutCap) Then $Buyout = $Reset

[projex]

Thank you for putting this up.