How to get 14m Exp/Hour 85-90 [Video]

[tochybaja]

US working , but very long que and not always i meet with my second character ;/ But working

[worchie]

Bored at work today, so I made a new & improved AutoIt script utilizing...

Great script, thanks, mate!

Can you add Pause or Stop hotkey?
Sometimes STEP 4 doesn't have time to click, because the panel with the acception disappears before the cursor will find image(accept.bmp). Can the step 4 to find quickly accept.bmp?


Sorry for bad english (

[Fujik]

Ok - I have bought 2 new accounts (battle chest + 1 month for both) to try to match with my main account and no luck.
I have 2 RL friends who play WoW and the 3 of us are on seperate pet servers.

What I know so far:
A-There are at least 3 pet servers
B-The server you buy pet training on has nothing to do with the pet server you are on
C-The server you make your first toon on has nothing to do with the pet server you are on
D-The first pet you use as a battle pet has nothing to do with the pet server you are on
E-The server you are playing on has nothing to do with the pet server you are on

My new RaF accounts match my friend's account, therefore I can also confirm what has been said last page: If you are on the same pet server, the search time for both accounts will be the exact same, regardless of the setup you're running(5-1-1, 25-1-1, 25-25-25)

EDIT: I have purchased 2 more battle chests since I've initially made that post. ALL 4 are on the SAME pet server. I am thinking all new accounts will be going on that pet server. My guess is they went a little like this: They took the player pool before MoP came out, they estimated the number of pet servers they needed and they split the players into these servers. Then, they made a new pet server and started shipping the new accounts on there and I'm guessing they will keep doing so until it's full, then they will proceed to make a new one. I really hope this is not how things work because this will ruin any of my future attempts at having this exploit work for me, but logical conclusions lead me to believe this is how it works.

At last, I would like to find someone in the same situation who's perhaps willing to swap accounts suggesting my RAF match your account and yours obviously has to match mine. If you want to give it a shot, PM me

PS: If you have ANY infos about pet servers or conclusions that you came to and that I havn't, please share them

[Alfalfa]

Unable to queue with the only other account I have. Tried different combos, etc etc, nothing. Really wish I could get this to work. Different queue times always.

Maybe it has to do with amount of pet battle achievements. This is really irritating.

[DrMight]

Great script, thanks, mate!

Can you add Pause or Stop hotkey?
Sometimes STEP 4 doesn't have time to click, because the panel with the acception disappears before the cursor will find image(accept.bmp). Can the step 4 to find quickly accept.bmp?


Sorry for bad english (

The images are searched for 10times per second, and it clicks it as soon as it appears.

If the Accept Window disappears really fast, it would mean someone else use the same Pet Setup as you, and abandon/decline the invite.
If the Accept Window stays up for a really long time, and it still doesnt click it, Id try replacing the accept.bmp (remember 24bit).

For all those wondering, atleast EU is working like a charm.
When queues are taking unusual long, switching pet setup usually fix this.

Working on a new version of my script, and it'll most likely be complete later today.
I've added a GUI to easier manage WoW-windows (no more use of alt+tab), aswell as added a mode for leveling 2 characters/ leveling pets.

[Hybrin]

Unable to queue with the only other account I have. Tried different combos, etc etc, nothing. Really wish I could get this to work. Different queue times always.

Maybe it has to do with amount of pet battle achievements. This is really irritating.

Has nothing to do with pet battle achievements, Started on 0 on one account and 110 on another, 0 So to speak meaning just pet level achievement - 1-25

[DrMight]

New Version ready, this time with GUI aswell as support for leveling 2 characters or 2 pets (switch on winning).




The script can be downloaded here: petbattles.rar - 3.0 MB (Mirror) (Source + x86 & x64 version)

#include 
#include 
#include 
#include 
#include 
#include 

HotKeySet("{F9}", "ExitProg")

Func ExitProg()  
   $Go = False
   Sleep(100)
   WinSetTitle("PB-WoW1", "", "World of Warcraft")
   WinSetTitle("PB-WoW2", "", "World of Warcraft")
   WinSetTitle("PB-Win", "", "World of Warcraft")
   WinSetTitle("PB-Lose", "", "World of Warcraft")
   Sleep(100)
   Exit 0
EndFunc

$Go = False
$Step = 0
$Search = 0
;$saveStep = 0
$selectType = 0
$checkCorrect = 0
$buttonWoW1 = 0
$buttonWoW2 = 0
$buttonStart = 0
$buttonResetSoft = 0
$buttonResetHard = 0
$buttonExit = 0
$buttonCounter = 0
$battleModeNum = 0
;$saveMode = 0
$battleMode = 0
$toWin = 0
$msg = 0
#Find button
$FB_X=0
$FB_Y=0
#Accept button
$AB_X=0
$AB_Y=0
#First Pet
$FP_X=0
$FP_Y=0
#Forfeit flag
$FF_X=0
$FF_Y=0 

GUI()

Func checkSettings()
   $battleMode = GUICtrlRead($selectType)
   If $battleMode = "OneChar" Then
	  GUICtrlSetData($buttonWoW1, "PB-Win")
	  GUICtrlSetData($buttonWoW2, "PB-Lose")
	  WinSetTitle("PB-WoW1", "", "World of Warcraft")
	  WinSetTitle("PB-WoW2", "", "World of Warcraft")
	  $battleModeNum = 1
	  GUICtrlSetState($buttonWoW1,$GUI_ENABLE)
	  GUICtrlSetState($buttonWoW2,$GUI_ENABLE)
   ElseIf $battleMode = "TwoChars" Then
	  GUICtrlSetData($buttonWoW1, "PB-WoW1")
	  GUICtrlSetData($buttonWoW2, "PB-WoW2")
	  WinSetTitle("PB-Win", "", "World of Warcraft")
	  WinSetTitle("PB-Lose", "", "World of Warcraft")
	  $battleModeNum = 2
	  GUICtrlSetState($buttonWoW1,$GUI_ENABLE)
	  GUICtrlSetState($buttonWoW2,$GUI_ENABLE)
   ElseIf $battleMode = "TwoPets" Then
	  GUICtrlSetData($buttonWoW1, "PB-WoW1")
	  GUICtrlSetData($buttonWoW2, "PB-WoW2")
	  WinSetTitle("PB-Win", "", "World of Warcraft")
	  WinSetTitle("PB-Lose", "", "World of Warcraft")
	  $battleModeNum = 2
	  GUICtrlSetState($buttonWoW1,$GUI_ENABLE)
	  GUICtrlSetState($buttonWoW2,$GUI_ENABLE)
   EndIf
   ;$saveMode = $battleModeNum
   ;$oponentCheck = GUICtrlRead($checkCorrect)
   ;MsgBox(0,"test","  " & $oponentCheck & " aa " & $battleMode)
EndFunc

Func setWindowTitle($newTitle)
   WinSetTitle("World of Warcraft", "", $newTitle)
   $buttonCounter = $buttonCounter + 1
   If $buttonCounter = 2 Then
	  GUICtrlSetState($buttonStart, $GUI_ENABLE)
   EndIf
EndFunc
Func GUI()
   $startGUI = GUICreate("PetBattler",210,190,270,175)
   ;$checkCorrect = GUICtrlCreateCheckbox("Check oponent",5,5,50,20)
   GUICtrlCreateLabel("What to level:",20,20,75,20)
   $selectType = GUICtrlCreateCombo("",105,20,75,20)
   GUICtrlSetData($selectType, "OneChar|TwoChars|TwoPets")
   GUICtrlCreateLabel("Set Window Names: ",20,55,150,20)
   $buttonWoW1 = GUICtrlCreateButton("PB-Win",33,75,70,30)
   GUICtrlSetState($buttonWoW1,$GUI_DISABLE)
   $buttonWoW2 = GUICtrlCreateButton("PB-Lose",108,75,70,30)
   GUICtrlSetState($buttonWoW2,$GUI_DISABLE)
   $buttonStart = GUICtrlCreateButton("Start",33,110,70,30) ;70/33
   GUICtrlSetState($buttonStart, $GUI_DISABLE)
   ;$buttonResetSoft = GUICtrlCreateButton("Soft Reset",108,110,70,15)
   ;$buttonResetHard = GUICtrlCreateButton("Hard Reset",108,125,70,15)
   $buttonResetHard = GUICtrlCreateButton("Reset",108,110,70,30)
   $buttonExit = GUICtrlCreateButton("Exit (F9)",108,145,70,30)
EndFunc

While 1
	  GUISetState(@SW_SHOW)
	  $msg = GUIGetMsg()
	  ;If $msg = $checkCorrect Then checkSettings()
	  If $msg = $selectType Then checkSettings()
	  If $msg = $buttonWoW1 Then setWindowTitle(GUICtrlRead($buttonWoW1))
	  If $msg = $buttonWoW1 Then GUICtrlSetState($buttonWoW1,$GUI_DISABLE)
	  If $msg = $buttonWoW2 Then setWindowTitle(GUICtrlRead($buttonWoW2))
	  If $msg = $buttonWoW2 Then GUICtrlSetState($buttonWoW2,$GUI_DISABLE)
	  If $msg = $buttonStart Then StartStop()
	  ;If $msg = $buttonResetSoft Then ResetSoft()
	  If $msg = $buttonResetHard Then ResetHard()
	  If $msg = $buttonExit Then ExitProg()
   While $Go = True
	  While $battleModeNum = 1
		 While $Step = 0
			Sleep(500)
			WinActivate("PB-Lose")
			Sleep(200)
			Send("{ENTER}")
			Sleep(500)
			Send('/run PetBattleFrame.BottomFrame.ForfeitButton:SetScript("OnClick", function() C_PetBattles.ForfeitGame() end)')
			Sleep(500)
			Send("{ENTER}")
			Sleep(500)
			MouseMove(0,0,1)
			$Step = 1
		 WEnd
		 While $Step = 1
			WinActivate("PB-Win")
			Sleep(100)
			$Search = _ImageSearch('find.bmp', 1, $FB_X, $FB_Y, 100)
			If $Search = 1 Then
			   MouseClick("left",$FB_X, $FB_Y,1)
			   Sleep(150)
			   MouseMove(0,0,1)
			   sleep(200)
			   $Step = 2
			EndIf
		 WEnd
		 While $Step = 2
			WinActivate("PB-Lose")
			Sleep(100)
			$Search = _ImageSearch('find.bmp', 1, $FB_X, $FB_Y, 100)
			If $Search = 1 Then
			   MouseClick("left",$FB_X, $FB_Y,1)
			   Sleep(150)
			   MouseMove(0,0,1)
			   sleep(200)
			   $Step = 3
			EndIf
		 WEnd	  
		 While $Step = 3
			WinActivate("PB-Win")
			Sleep(100)
			$Search = _ImageSearch('accept.bmp', 1, $AB_X, $AB_Y, 100)
			If $Search = 1 Then		 
			   MouseClick("left", $AB_X, $AB_Y, 1)
			   Sleep(150)
			   MouseMove(0,0,1)
			   Sleep(200)
			   $Step = 4
			EndIf
		 WEnd
		 While $Step = 4
			WinActivate("PB-Lose")
			Sleep(100)
			$Search = _ImageSearch('accept.bmp', 1, $AB_X, $AB_Y, 100)
			If $Search = 1 Then		 
			   MouseClick("left", $AB_X, $AB_Y, 1)
			   Sleep(150)
			   MouseMove(0,0,1)
			   Sleep(200)
			   $Step = 5
			EndIf
		 WEnd
		 While $Step = 5
			WinActivate("PB-Win")
			Sleep(100)
			$Search = _ImageSearch('pet1.bmp', 1, $FP_X, $FP_Y, 100)
			If $Search = 1 Then
			   MouseClick("left", $FP_X, $FP_Y, 1)
			   Sleep(150)
			   MouseMove(0,0,1)
			   Sleep(200)
			   $Step = 6
			EndIf
			Sleep(10)
			$Search = _ImageSearch('pet2.bmp', 1, $FP_X, $FP_Y, 100)
			If $Search = 1 Then
			   MouseClick("left", $FP_X, $FP_Y, 1)
			   Sleep(150)
			   MouseMove(0,0,1)
			   Sleep(200)
			   $Step = 6
			EndIf
		 WEnd
		 While $Step = 6
			WinActivate("PB-Lose")
			Sleep(100)
			$Search = _ImageSearch('forfeit.bmp', 1, $FF_X, $FF_Y, 100)
			If $Search = 1 Then
			   MouseClick("left", $FF_X, $FF_Y, 1)
			   Sleep(150)
			   MouseMove(0,0,1)
			   Sleep(2500)
			   $Step = 7
			EndIf
		 WEnd
		 While $Step = 7
			WinActivate("PB-Lose")
			Sleep(100)
			$Search = _ImageSearch('find.bmp', 1, $FB_X, $FB_Y, 80)
			If $Search = 1 Then
			   Sleep(500)
			   $Step = 1
			EndIf
		 WEnd	  
	  WEnd
	  While $battleModeNum = 2
		 While $Step = 0
			Sleep(500)
			WinActivate("PB-WoW1")
			Sleep(200)
			Send("{ENTER}")
			Sleep(500)
			Send('/run PetBattleFrame.BottomFrame.ForfeitButton:SetScript("OnClick", function() C_PetBattles.ForfeitGame() end)')
			Sleep(500)
			Send("{ENTER}")
			Sleep(500)
			WinActivate("PB-WoW2")
			Sleep(200)
			Send("{ENTER}")
			Sleep(500)
			Send('/run PetBattleFrame.BottomFrame.ForfeitButton:SetScript("OnClick", function() C_PetBattles.ForfeitGame() end)')
			Sleep(500)
			Send("{ENTER}")
			Sleep(500)
			MouseMove(0,0,1)
			$toWin = "WoW1"
			$Step = 1
		 WEnd
		 While $Step = 1
			If $toWin = "WoW1" Then
			   WinActivate("PB-WoW1")
			Else
			   WinActivate("PB-WoW2")
			EndIf
			Sleep(100)
			$Search = _ImageSearch('find.bmp', 1, $FB_X, $FB_Y, 100)
			If $Search = 1 Then
			   MouseClick("left",$FB_X, $FB_Y,1)
			   Sleep(100)
			   MouseMove(0,0,1)
			   sleep(200)
			   $Step = 2
			EndIf
		 WEnd
		 While $Step = 2
			If $toWin = "WoW1" Then
			   WinActivate("PB-WoW2")
			Else
			   WinActivate("PB-WoW1")
			EndIf	
			Sleep(100)
			$Search = _ImageSearch('find.bmp', 1, $FB_X, $FB_Y, 100)
			If $Search = 1 Then
			   MouseClick("left",$FB_X, $FB_Y,1)
			   Sleep(100)
			   MouseMove(0,0,1)
			   sleep(200)
			   $Step = 3
			EndIf
		 WEnd	  
		 While $Step = 3
			If $toWin = "WoW1" Then
			   WinActivate("PB-WoW1")
			Else
			   WinActivate("PB-WoW2")
			EndIf
			Sleep(100)
			$Search = _ImageSearch('accept.bmp', 1, $AB_X, $AB_Y, 100)
			If $Search = 1 Then		 
			   MouseClick("left", $AB_X, $AB_Y, 1)
			   Sleep(100)
			   MouseMove(0,0,1)
			   Sleep(200)
			   $Step = 4
			EndIf
		 WEnd
		 While $Step = 4
			If $toWin = "WoW1" Then
			   WinActivate("PB-WoW2")
			Else
			   WinActivate("PB-WoW1")
			EndIf	
			Sleep(100)
			$Search = _ImageSearch('accept.bmp', 1, $AB_X, $AB_Y, 100)
			If $Search = 1 Then		 
			   MouseClick("left", $AB_X, $AB_Y, 1)
			   Sleep(100)
			   MouseMove(0,0,1)
			   Sleep(200)
			   $Step = 5
			EndIf
		 WEnd
		 While $Step = 5
			If $toWin = "WoW1" Then
			   WinActivate("PB-WoW1")
			Else
			   WinActivate("PB-WoW2")
			EndIf
			;;WinActivate("PB-Win")
			Sleep(100)
			$Search = _ImageSearch('pet1.bmp', 1, $FP_X, $FP_Y, 100)
			If $Search = 1 Then
			   MouseClick("left", $FP_X, $FP_Y, 1)
			   Sleep(100)
			   MouseMove(0,0,1)
			   Sleep(200)
			   $Step = 6
			EndIf
			Sleep(10)
			$Search = _ImageSearch('pet2.bmp', 1, $FP_X, $FP_Y, 100)
			If $Search = 1 Then
			   MouseClick("left", $FP_X, $FP_Y, 1)
			   Sleep(100)
			   MouseMove(0,0,1)
			   Sleep(200)
			   $Step = 6
			EndIf			
		 WEnd
		 While $Step = 6
			If $toWin = "WoW1" Then
			   WinActivate("PB-WoW2")
			Else
			   WinActivate("PB-WoW1")
			EndIf			
			;;WinActivate("PB-Lose")
			Sleep(100)
			$Search = _ImageSearch('forfeit.bmp', 1, $FF_X, $FF_Y, 100)
			If $Search = 1 Then
			   MouseClick("left", $FF_X, $FF_Y, 1)
			   Sleep(100)
			   MouseMove(0,0,1)
			   Sleep(2500)
			   $Step = 7
			EndIf
		 WEnd
		 While $Step = 7
			If $toWin = "WoW1" Then
			   WinActivate("PB-WoW2")
			Else
			   WinActivate("PB-WoW1")
			EndIf
			;;WinActivate("PB-Lose")
			Sleep(100)
			$Search = _ImageSearch('find.bmp', 1, $FB_X, $FB_Y, 80)
			If $Search = 1 Then
			   Sleep(500)
			   If $toWin = "WoW1" Then
				  $toWin = "WoW2"
			   Else
				  $toWin = "WoW1"
			   EndIf
			   Sleep(100)
			   $Step = 1
			EndIf
		 WEnd	 
	  WEnd
   WEnd
WEnd


Func StartStop()
	If $Go = False Then
	  ;$Step = $saveStep
	  ;$battleModeNum = $saveMode
	  ;$saveMode = 0
	  ;$saveStep = 0
	  $Go = True
	  ;HotKeySet("{F8}", "StartStop") 
	  Sleep(200)
	;ElseIf $Go = True Then
	  ;$Go = False
	  ;$Search = 0
	  ;$saveStep = $Step
	  ;$Step = 99
	  ;$saveMode = $battleModeNum
	  ;$battleModeNum = 99
	  ;WinActivate("PetBattler")
	  ;Sleep(200)
	EndIf
EndFunc
Func ResetSoft()
   $saveStep = 1
EndFunc
Func ResetHard()
   Sleep(100)
   WinSetTitle("PB-WoW1", "", "World of Warcraft")
   WinSetTitle("PB-WoW2", "", "World of Warcraft")
   WinSetTitle("PB-Win", "", "World of Warcraft")
   WinSetTitle("PB-Lose", "", "World of Warcraft")
   WinSetTitle("0", "", "World of Warcraft")
   WinSetTitle("0", "", "World of Warcraft")
   WinSetTitle("0", "", "World of Warcraft")
   $Go = False
   $Step = 0
   $saveStep = 0
   $buttonCounter = 0
   $battleModeNum = 0
   $toWin = 0
   #Find button
   $FB_X=0
   $FB_Y=0
   #Accept button
   $AB_X=0
   $AB_Y=0
   #First Pet
   $FP_X=0
   $FP_Y=0
   #Forfeit flag
   $FF_X=0
   $FF_Y=0    
   GUICtrlSetData($selectType,"")
   GUICtrlSetData($selectType,"OneChar|TwoChars|TwoPets")
   GUICtrlSetState($buttonWoW1,$GUI_DISABLE)
   GUICtrlSetState($buttonWoW2,$GUI_DISABLE)
   GUICtrlSetState($buttonStart, $GUI_DISABLE)
   Sleep(100)
EndFunc

[mackank]

I am right now getting around 8 million exp a hour in lvl 87, is that what I should be expecting or has it been nerfed? Using 25-6-1 pets and queues are always less then a minute

[Alfalfa]

Has nothing to do with pet battle achievements, Started on 0 on one account and 110 on another, 0 So to speak meaning just pet level achievement - 1-25

So my hypothesis is wrong. "Battlegroups" appear to be completely random and unchangeable. Is there anything I can do short of buying another battlechest?

[Fujik]

So my hypothesis is wrong. "Battlegroups" appear to be completely random and unchangeable. Is there anything I can do short of buying another battlechest?

My 4 new RaF accounts(which were made exclusively for this exploit) happen to be on the same pet's battlegroup, and I'm ready to bet that they are on the same Battlegroup as your new account too, therefore I think buying more battlechests won't solve it. I'm not sure yet as I've been trying to isolate the factors that could be influential to what pet bgroup you're on, but I believe that your best bet is to ask your friends for old accounts that they will never use again and perhaps scroll of rezz them to check if they are sharing your pet's bgroup. All the new accounts seem to go to the same BGroup.

[TuraelDX]

this tutorial works on same realm and 2 accounts?

[Alfalfa]

My 4 new RaF accounts(which were made exclusively for this exploit) happen to be on the same pet's battlegroup, and I'm ready to bet that they are on the same Battlegroup as your new account too, therefore I think buying more battlechests won't solve it. I'm not sure yet as I've been trying to isolate the factors that could be influential to what pet bgroup you're on, but I believe that your best bet is to ask your friends for old accounts that they will never use again and perhaps scroll of rezz them to check if they are sharing your pet's bgroup. All the new accounts seem to go to the same BGroup.

ok, my account is 6 months old and my other account is 2 months old. My friend, who's account is 2+ years old, was able to queue against me. Do you think age is the primary factor? At this point it seems all random.

this tutorial works on same realm and 2 accounts?

Yes, realm did not matter.

[robcat93]

Yea not getting paired instantly. Take like 10mins for me.

[bulzap]

Lvling atm. so far lvl 40 (started already at lvl 1). Working perfectly with DrMight program. I had to take new screenshot when using 1024x768 - but after I did that it worked perfectly. The queu time is the same as when I first tried this exploit (shortly after this thread wsa created). Queu time between 5 seconds and 40 seconds normally. I did get to lvl 25 on 1,5 hour.

[Alfalfa]

Is there anything that the unfortunate of us can do to get paired correctly?