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

[tochybaja]

I still have bug makes the script stop after a while ;/ I dont know whats going on i have petbattles v4

my pet setup 25-6-2 all working good about 2hours then stop ;/

[imafish2004]

I've had a few hiccups with the updated script. Occasionally it would fail to select a pet in battle and on others it wouldnt queue at all.

I have recreated the images from scratch now making sure to try and get the images as close to the centre of the relevant buttons as possible, seems to have fixed most of issues for now.

[asdfx123]

This macro sends your level 25 pet out when battle begins:

/run C_PetBattles.ChangePet(1)

Happy pet battles!

[Balthier]

Still looking for one to help me test this out, as it still seems to be buggy

[yaparadox]

Apparently I overlooked something in the previous 'fixed' version (v3).
This on the other hand, should work perfectly.

Download link (v4)

The old links are updated.
Readme & stuff (How to get 14m Exp/Hour 85-90 [Video])here

#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
$both = 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)
   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")
   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
			Sleep(100)
			$Step = 2
		 WEnd
		 While $Step = 2
			Sleep(100)
			$Step = 3
		 WEnd	  
		 While $Step = 3
			WinActivate("PB-Win")
			$Search = _ImageSearch('accept.bmp', 1, $AB_X, $AB_Y, 80)
			If $Search = 1 Then		 
			   MouseClick("left", $AB_X, $AB_Y, 1)
			   Sleep(100)
			   MouseMove(0,0,1)
			   Sleep(200)
			   $both = $both + 1
			ElseIf $both = 0 Then
			   $Search = _ImageSearch('find.bmp', 1, $FB_X, $FB_Y, 80)
			   If $Search = 1 Then
				  MouseClick("left",$FB_X, $FB_Y,1)
				  Sleep(100)
				  MouseMove(0,0,1)
				  Sleep(200)
			   EndIf
			EndIf
			If $both = 2 Then
			   $Step = 5
			Else
			   MouseMove(0,0,1)
			   Sleep(500)
			   $Step = 4
			EndIf
		 WEnd
		 While $Step = 4
			WinActivate("PB-Lose")
			$Search = _ImageSearch('accept.bmp', 1, $AB_X, $AB_Y, 80)
			If $Search = 1 Then		 
			   MouseClick("left", $AB_X, $AB_Y, 1)
			   Sleep(100)
			   MouseMove(0,0,1)
			   Sleep(200)
			   $both = $both + 1
			ElseIf $both = 0 Then
			   $Search = _ImageSearch('find.bmp', 1, $FB_X, $FB_Y, 80)
			   If $Search = 1 Then
				  MouseClick("left",$FB_X, $FB_Y,1)
				  Sleep(100)
				  MouseMove(0,0,1)
				  Sleep(200)
			   EndIf
			EndIf
			If $both = 2 Then
			   $Step = 5
			Else
			   MouseMove(0,0,1)
			   Sleep(500)
			   $Step = 3
			EndIf
		 WEnd
		 While $Step = 5
			WinActivate("PB-Win")
			$both = 0
			Sleep(100)
			$Search = _ImageSearch('pet1.bmp', 1, $FP_X, $FP_Y, 80)
			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, 80)
			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, 80)
			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
			Sleep(100)
			$Step = 2
		 WEnd
		 While $Step = 2
			Sleep(100)
			$Step = 3
		 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, 80)
			If $Search = 1 Then		 
			   MouseClick("left", $AB_X, $AB_Y, 1)
			   Sleep(100)
			   MouseMove(0,0,1)
			   Sleep(200)
			   $both = $both + 1
			ElseIf $both = 0 Then
			   $Search = _ImageSearch('find.bmp', 1, $FB_X, $FB_Y, 80)
			   If $Search = 1 Then
				  MouseClick("left",$FB_X, $FB_Y,1)
				  Sleep(100)
				  MouseMove(0,0,1)
				  Sleep(200)
			   EndIf
			EndIf
			If $both = 2 Then
			   $Step = 5
			Else
			   MouseMove(0,0,1)
			   Sleep(500)
			   $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, 80)
			If $Search = 1 Then		 
			   MouseClick("left", $AB_X, $AB_Y, 1)
			   Sleep(100)
			   MouseMove(0,0,1)
			   Sleep(200)
			   $both = $both + 1
			ElseIf $both = 0 Then
			   $Search = _ImageSearch('find.bmp', 1, $FB_X, $FB_Y, 80)
			   If $Search = 1 Then
				  MouseClick("left",$FB_X, $FB_Y,1)
				  Sleep(100)
				  MouseMove(0,0,1)
				  sleep(200)
			   EndIf
			EndIf
			If $both = 2 Then
			   $Step = 5
			Else
			   MouseMove(0,0,1)
			   Sleep(500)
			   $Step = 3
			EndIf
		 WEnd
		 While $Step = 5
			If $toWin = "WoW1" Then
			   WinActivate("PB-WoW1")
			Else
			   WinActivate("PB-WoW2")
			EndIf
			;;WinActivate("PB-Win")
			$both = 0
			Sleep(100)
			$Search = _ImageSearch('pet1.bmp', 1, $FP_X, $FP_Y, 80)
			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, 80)
			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, 80)
			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
			Sleep(100)
			$Search = _ImageSearch('find.bmp', 1, $FB_X, $FB_Y, 80)
			If $Search = 1 Then
			   Sleep(500)
			   $Step = 8
			EndIf
		 WEnd
		 While $Step = 8
			If $toWin = "WoW1" Then
			   WinActivate("PB-WoW1")
			Else
			   WinActivate("PB-WoW2")
			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")
   GUICtrlSetState($buttonWoW1,$GUI_DISABLE)
   GUICtrlSetState($buttonWoW2,$GUI_DISABLE)
   GUICtrlSetState($buttonStart, $GUI_DISABLE)
   Sleep(100)
EndFunc

does not work on Russian client

[gippy]

That new script doesn't seem to queue, it just tabs from window to window repeatedly. I've tried redoing the pictures quite a few times but nothing.

[Owneth]

That new script doesn't seem to queue, it just tabs from window to window repeatedly. I've tried redoing the pictures quite a few times but nothing.

I imagine your pet window is open when you tested this right?

[Light-Boost]

FIXED AFTER RESTART ON RU SERVERS
no longer gives you exp when you give up

[cutwalk]

FIXED AFTER RESTART ON RU SERVERS
no longer gives you exp when you give up

Just hopped on my eu-accout to test it - everything went fine yesterday; today 0 exp from forfeit - crap

[lappee]

FIXED AFTER RESTART ON RU SERVERS
no longer gives you exp when you give up

Fixed on EU aswell


edit: seems to have some sort of time limit, trying to figure it out
edit2: got XP after 1minute of afking in battle and then forfeiting
edit3: 45sec of afking resulted in no XP
edit4: 1minute seems to be working properly, starting when the first round timer starts to roll. preferably wait up to 1min 5secs so you can be sure to get xp

[Playingnaked]

- Fixed
- 4/4 Accounts permanently banned for this.

[DarkMassacre]

This has been posted countless of times some examples are
http://www.ownedcore.com/forums/worl...xperience.html
http://www.ownedcore.com/forums/worl...-accounts.html

plus many more if you bother to look for them
it has been know since pet battles was out on the ptr and has been nerfed twice already. Also if you forfeit the person who won will still receive pet exp so it is impossible to have your pets stay at lvl 1 like in the video.

[DrMight]

This has been posted countless of times some examples are
http://www.ownedcore.com/forums/worl...xperience.html
http://www.ownedcore.com/forums/worl...-accounts.html

plus many more if you bother to look for them
it has been know since pet battles was out on the ptr and has been nerfed twice already. Also if you forfeit the person who won will still receive pet exp so it is impossible to have your pets stay at lvl 1 like in the video.

If you select pet on one of the accounts, and forfeit directly on the other, only the selected pet recieved xp.
Even though it's been nerfed a few times prior to this, it worked flawlessly up to the recent server resets / fix.

This'll be the end of pet battle leveling for me, back to botting I suppose..
Should anyone wish though, I could update my latest script with a 1min delay.

[Man2001]

Yes please, Update the Script with a 1 min Delay! Thx in advance!

[finish]

If you select pet on one of the accounts, and forfeit directly on the other, only the selected pet recieved xp.
Even though it's been nerfed a few times prior to this, it worked flawlessly up to the recent server resets / fix.

This'll be the end of pet battle leveling for me, back to botting I suppose..
Should anyone wish though, I could update my latest script with a 1min delay.

would be nice if u can update it, i love your tool and your hard work on it!!!
in love

really dont hope we all receive bans for it