Fast lvling after latest patch / infinite quest rewards

[mmoivo]

i am not talking about automating it ) if you do it in a legit way will they ban ? lawl maybe i should call them and ask if they will ban me for using this haha )))

[Miksu]

i am not talking about automating it ) if you do it in a legit way will they ban ? lawl maybe i should call them and ask if they will ban me for using this haha )))

I really doubt they will ban anyone using this without any automation

[Bossqwerty]

I will not support this code because I know it sucks but its a start. This is designed for minimum sized windows, but doesn't rely on them being any particular place on the screen.

Note that you will need to get a Window Title name changer to identify which Diablo III window is your "Diablo III Main" and which one is your "Diablo III Slave 1"

You will also need to adjust the coordinates of the invite button on your Main's friend list. The color matching on the quest turnin seems to be fairly reliable, but that will be the other thing to adjust. I put all these variables at the top. It is entirely capable of being in the background with one exception the click to interact to turn in seems to require the mouse to be over the NPC. So with that you will lose textbox focus and such. If someone knows a way around this let me know.

Let me know what you think.


****EDIT*** Updated the script again. No longer has Slave1 leave game before inviting to the next. Also be aware the timings in this script are for a fast connection on a fast machine. You WILL need to increase the sleeps or even add some I'm sure.


Donations accepted: [email protected]

#include <GUIConstantsEx.au3>

Global $winTitleMain = "Diablo III Main"
Global $winTitleSlave1 = "Diablo III Slave 1"

Global $hWndMain = WinGetHandle($winTitleMain)
Global $hWndSlave1 = WinGetHandle($winTitleSlave1)

Global $Slave1xcoord = 725
Global $Slave1ycoord = 355
Global $ColorMatch = "0x5D3A3D"
Global $ColorVariation = 5

HotKeySet("{pause}", "Terminate")

Func Terminate()
    Exit
EndFunc   ;==>Terminate

While 1
    InviteSlave1()
    BotSlave1AcceptInvite()
    Sleep(3000)
    BotMainResume()
    BotMainLeaveGame()
    BotSlave1TurnIn()
WEnd

Func BotMainResume()
    ControlClick($hWndMain, '', '', "left", 1, 120, 240)
    Sleep(5000)
EndFunc   ;==>BotMainResume

Func BotSlave1Resume()
    ControlClick($hWndSlave1, '', '', "left", 1, 120, 240)
    Sleep(5000)
EndFunc   ;==>BotSlave1Resume

Func BotSlave1AcceptInvite()
    ControlClick($hWndSlave1, '', '', "left", 1, 700, 520)
    Sleep(500)
    ControlClick($hWndSlave1, '', '', "left", 1, 345, 355)
    Sleep(500)
EndFunc   ;==>Bot1AcceptInvite

Func BotMainLeaveGame()
    ControlSend($hWndMain, '', '', "{SPACE}")
    Sleep(500)
    ControlSend($hWndMain, '', '', "{ESC}")
    Sleep(500)
    ControlClick($hWndMain, '', '', "left", 1, 415, 330)
    Sleep(500)
    ControlClick($hWndMain, '', '', "left", 1, 345, 360)
    Sleep(500)
EndFunc   ;==>BotMainLeaveGame

Func InviteSlave1()

    ControlClick($hWndMain, '', '', "left", 1, 780, 565)
    Sleep(500)
    ControlClick($hWndMain, '', '', "left", 1, $Slave1xcoord, $Slave1ycoord)
    Sleep(500)
    ControlSend($hWndMain, '', '', "{SPACE}")
EndFunc   ;==>InviteSlave1


Func BotSlave1TurnIn()
    Sleep(1000)
    $aryWinPos = WinGetPos($hWndSlave1)
    $PixelFound = PixelSearch($aryWinPos[0] + 20, $aryWinPos[1] + 30, $aryWinPos[0] + 200, $aryWinPos[1] + 110, $ColorMatch, $ColorVariation)
    ConsoleWrite( "Pixel found: " & $PixelFound[0] & " " & $PixelFound[1] & @CRLF)
    $origMousePos = MouseGetPos()
    BlockInput(1)
    MouseMove($PixelFound[0], $PixelFound[1], 0)
    MouseClick("left", $PixelFound[0], $PixelFound[1], 3, 0)
    MouseMove($origMousePos[0], $origMousePos[1], 0)
    BlockInput(0)
    Sleep(3500)
    ControlSend($hWndSlave1, '', '', "{SPACE}")
    Sleep(200)
    ControlSend($hWndSlave1, '', '', "{SPACE}")
    Sleep(200)
    ControlSend($hWndSlave1, '', '', "{SPACE}")
    Sleep(200)
    ControlSend($hWndSlave1, '', '', "{SPACE}")
    Sleep(200)
    ControlSend($hWndSlave1, '', '', "{SPACE}")
    Sleep(200)
    ControlSend($hWndSlave1, '', '', "{SPACE}")
    Sleep(200)
    ControlSend($hWndSlave1, '', '', "{SPACE}")
    Sleep(200)
    ControlSend($hWndSlave1, '', '', "{SPACE}")
    Sleep(2000)
EndFunc   ;==>BotSlave1sTurnIn

I am also getting this error after a few turn ins

ine98

ConsoleWrite( "Pixel found: " & $Pixelfound[0] & " " & $PixelFound[1] & @CRLF)
Console Write( "Pixelfound: " & $Pixelfound^ ERROR

Error: Subscript used with non-Array variable.

[avatar88343]

Belial experience at level 25 is really, really low. Is there a better quest to do this with?

[hesi]

Belial experience at level 25 is really, really low. Is there a better quest to do this with?

as e.g.: Zoltun Kulle ( act2 quest 8 )

do this until 50 .. then go hell zk

[avatar88343]

as e.g.: Zoltun Kulle ( act2 quest 8 )

do this until 50 .. then go hell zk

That is yields less experience than Belial right now.

[hesi]

That is yields less experience than Belial right now.

hmm i dont think so.. check my earlier post on page 1

checked with lvl9 char [0-23200 exp] a few secs ago:

6650ep / run / 20secs = ~80secs from lvl 9 to 10
it will raise to ~10200 exp per run on higher level (15+)



from 31-50 it will last longer than 1-30 ofc but belial give less exp than zk
i checked other bosses before, but belial is the only boss (except zk) which give exp after the boss kill itself (in town).
so.. zk is the best option atm

[Heat93]

for 1920x1080 - the Pause Button is ( "+" )

Global $pause = False
HotKeySet("{+}","_pause")

While 1
mouseclick("left", 1124,11)
sleep(300)
mouseclick("left", 1124,11)
sleep(300)
send("o")
sleep(500)
mouseclick("left", 1832, 223)
sleep(1000)

mouseclick("left", 409, 11)
sleep(300)
mouseclick("left", 409, 11)
sleep(300)
mouseclick("left", 969, 547)
sleep(300)
mouseclick("left", 474, 380)
sleep(2000)

mouseclick("left", 1124,11)
sleep(300)
mouseclick("left", 1124,11)
sleep(300)
mouseclick("left", 935, 255)
sleep(3500)
send("{escape}")
sleep(300)
mouseclick("left", 1380, 351)
sleep(100)
mouseclick("left", 1320, 380)
sleep(10000)

mouseclick("left", 224, 62)
sleep(5000)

Local $coord = PixelSearch(5, 24, 160, 130, 0x2f1c1a, 4)
if not @error Then
mouseclick("left", $coord[0], $coord[1])
Else
mouseclick("left", 516, 273)
endif

sleep(4300)
send("{space}")
sleep(200)
send("{space}")
sleep(200)
WEnd

Func _pause()
$pause = Not $pause
If $pause Then
While 1
Sleep(100)
Wend
EndIf
EndFunc

[avatar88343]

hmm i dont think so.. check my earlier post on page 1

checked with lvl9 char [0-23200 exp] a few secs ago:

6650ep / run / 20secs = ~80secs from lvl 9 to 10
it will raise to ~10200 exp per run on higher level (15+)



from 31-50 it will last longer than 1-30 ofc but belial give less exp than zk
i checked other bosses before, but belial is the only boss (except zk) which give exp after the boss kill itself (in town).
so.. zk is the best option atm

I tested it at level 25, 26, and 27. Belial has 2 quest turn ins back to back which combined give more XP than ZK and takes roughly the same amount of time (actually a tiny bit faster for me). That experience you're getting drops significantly after you reach 25.

[hesi]

i made a hole 1-40 lvlservice this morning ... ~3hours 20mins to complete with zk in normal.
if this is not fast enough... idk .. ask blizz to reset zk/belial nm+hell nerfs. anyway..I'm out.

[Jaerin]

Updated my script. It should no longer cause an error when the pixel isn't found. it will instead just not turnin that go around and it will fix itself the next time it gets invited.

#include <GUIConstantsEx.au3>

Global $winTitleMain = "Diablo III Main"
Global $winTitleSlave1 = "Diablo III Slave 1"

Global $hWndMain = WinGetHandle($winTitleMain)
Global $hWndSlave1 = WinGetHandle($winTitleSlave1)

Global $Slave1xcoord = 725
Global $Slave1ycoord = 355
Global $ColorMatch = "0x5D3A3D"
Global $ColorVariation = 5

HotKeySet("{pause}", "Terminate")

Func Terminate()
	Exit
EndFunc   ;==>Terminate

While 1
	InviteSlave1()
	BotSlave1AcceptInvite()
	Sleep(3000)
	BotMainResume()
	BotMainLeaveGame()
	BotSlave1TurnIn()
WEnd

Func BotMainResume()
	ControlClick($hWndMain, '', '', "left", 1, 120, 240)
	Sleep(5000)
EndFunc   ;==>BotMainResume

Func BotSlave1Resume()
	ControlClick($hWndSlave1, '', '', "left", 1, 120, 240)
	Sleep(5000)
EndFunc   ;==>BotSlave1Resume

Func BotSlave1AcceptInvite()
	ControlClick($hWndSlave1, '', '', "left", 1, 700, 520)
	Sleep(500)
	ControlClick($hWndSlave1, '', '', "left", 1, 345, 355)
	Sleep(500)
EndFunc   ;==>Bot1AcceptInvite

Func BotMainLeaveGame()
	ControlSend($hWndMain, '', '', "{SPACE}")
	Sleep(500)
	ControlSend($hWndMain, '', '', "{ESC}")
	Sleep(500)
	ControlClick($hWndMain, '', '', "left", 1, 415, 330)
	Sleep(500)
	ControlClick($hWndMain, '', '', "left", 1, 345, 360)
	Sleep(500)
EndFunc   ;==>BotMainLeaveGame

Func InviteSlave1()

	ControlClick($hWndMain, '', '', "left", 1, 780, 565)
	Sleep(500)
	ControlClick($hWndMain, '', '', "left", 1, $Slave1xcoord, $Slave1ycoord)
	Sleep(500)
	ControlSend($hWndMain, '', '', "{SPACE}")
EndFunc   ;==>InviteSlave1


Func BotSlave1TurnIn()
	Sleep(1000)
	$aryWinPos = WinGetPos($hWndSlave1)
	$PixelFound = PixelSearch($aryWinPos[0] + 20, $aryWinPos[1] + 30, $aryWinPos[0] + 200, $aryWinPos[1] + 110, $ColorMatch, $ColorVariation)
	If (@error) Then
		Return 0
	EndIf
	ConsoleWrite( "Pixel found: " & $PixelFound[0] - $aryWinPos[0] & " " & $PixelFound[1] - $aryWinPos[1] & @CRLF)
	$origMousePos = MouseGetPos()
	BlockInput(1)
	MouseMove($PixelFound[0], $PixelFound[1], 0)
	MouseClick("left", $PixelFound[0], $PixelFound[1], 3, 0)
	MouseMove($origMousePos[0], $origMousePos[1], 0)
	BlockInput(0)
	Sleep(3500)
    ControlSend($hWndSlave1, '', '', "{SPACE}")
	Sleep(200)
	ControlSend($hWndSlave1, '', '', "{SPACE}")
	Sleep(200)
	ControlSend($hWndSlave1, '', '', "{SPACE}")
	Sleep(200)
	ControlSend($hWndSlave1, '', '', "{SPACE}")
	Sleep(200)
	ControlSend($hWndSlave1, '', '', "{SPACE}")
	Sleep(200)
	ControlSend($hWndSlave1, '', '', "{SPACE}")
	Sleep(200)
	ControlSend($hWndSlave1, '', '', "{SPACE}")
	Sleep(200)
	ControlSend($hWndSlave1, '', '', "{SPACE}")
	Sleep(2000)
EndFunc   ;==>BotSlave1sTurnIn

[Aciddrag0n]

Anyone in US want to team up and do this? PM me

[mmakid]

how good are your computers to run 2x windows of diablo 3? I have a gtx 580 and a i7-950 with 16 gb of ram and one of mine always crashes.... (lowest settings, 800x600)

[Jaerin]

I'm running 11 copies of D3 right now.

You have to make a copy of the directory for each copy and launch each one with Diablo III.exe -launch from each directory

[BlooDSki]

I'm running 11 copies of D3 right now.

You have to make a copy of the directory for each copy and launch each one with Diablo III.exe -launch from each directory

i tried this, but i have to have the copies on different hard drives or else the load times and shit is ridiculous so i can only run 2. I have a top end computer and it could easily run 5-10 d3s prolly more any tips? Also with your script can you run more than leecher?