How to get 14m Exp/Hour 85-90 [Video] menu
Follow us:

User Tag List

Page 34 of 45 FirstFirst ... 303132333435363738 ... LastLast
Results 496 to 510 of 673
  1. 06-02-2013 #496
    imafish2004's Avatar
    imafish2004
    imafish2004 is offline
    Corporal
    Reputation
    5
    Join Date
    Apr 2012
    Posts
    30
    Thanks G/R
    2/2
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    This is absolutely insane with the 300% xp potion (elixir of ancient knowledge) + heirlooms. I have no guild bonus, 300% pot, full xp heirlooms (minus ring) and I have gone up 12 levels (25-37) in 20 minutes!

    Edit : 30 minutes in - level 41
    Edit 2 : 1 hour done (with some problems due to my net connection!) and finished on 52!
    Last edited by imafish2004; 06-02-2013 at 09:18 PM.
    Reply With Quote Reply With Quote
    How to get 14m Exp/Hour 85-90 [Video]
  2. 06-02-2013 #497
    adamlad101's Avatar
    adamlad101
    adamlad101 is offline
    Member
    Reputation
    1
    Join Date
    Oct 2012
    Posts
    59
    Thanks G/R
    1/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Hey seeing as i cant do this with 2 accounts does anyone wanna do it with me on EU? i dont have level 25 pets have around level 1-10 pets but can level if you can help me PM me ( EU only )
    Reply With Quote Reply With Quote
  3. 06-03-2013 #498
    phannes1987's Avatar
    phannes1987
    phannes1987 is offline
    Site Donator
    Reputation
    26
    Join Date
    Sep 2012
    Posts
    79
    Thanks G/R
    6/1
    Trade Feedback
    1 (100%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by buschaffe View Post
    Does anybody know which addon tracks leveling like that AND makes it exportable..?
    Help much appreciated!
    Sorry,that Addon is called ReadySetDing

    Export ist per Copy Paste
    Reply With Quote Reply With Quote
  4. 06-03-2013 #499
    DrMight's Avatar
    DrMight
    DrMight is offline
    Active Member CoreCoins Purchaser
    Reputation
    60
    Join Date
    May 2011
    Posts
    39
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    New and updated version of my script is now available here.
    The bug that makes the script stop after a while, forgetting to click the Find button should now be solved.
    It now alternates between the two windows, checking that Find Battles is clicked, at the same time as it looks for the Accept button for the queue pop.

    The readme & stuff is available in my old post (where the link is also updated) (How to get 14m Exp/Hour 85-90 [Video])here

    If you're updating from a previos version, remember to backup you images, as they should still work on the new version.

    Have fun,
    - DrMight

    Code:
    #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('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
			Sleep(100)
			$Search = _ImageSearch('accept.bmp', 1, $AB_X, $AB_Y, 80)
			If $Search = 1 Then		 
			   MouseClick("left", $AB_X, $AB_Y, 1)
			   Sleep(150)
			   MouseMove(0,0,1)
			   Sleep(200)
			   $both = $both + 1
			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('find.bmp', 1, $FB_X, $FB_Y, 80)
			If $Search = 1 Then
			   MouseClick("left",$FB_X, $FB_Y,1)
			   Sleep(150)
			   MouseMove(0,0,1)
			   Sleep(200)
			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(150)
			   MouseMove(0,0,1)
			   Sleep(200)
			   $both = $both + 1
			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('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
			$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
			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('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
			$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
			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
    Last edited by DrMight; 06-03-2013 at 07:40 AM.
    Reply With Quote Reply With Quote
  5. 06-03-2013 #500
    Hanfidanfi's Avatar
    Hanfidanfi
    Hanfidanfi is offline
    Corporal
    Reputation
    1
    Join Date
    Jun 2013
    Posts
    20
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Thanks for the Update!! But for me he stops sometimes when they are battleing :/ He dont press forfeit. Do you have a solution?

    /edit
    He dont choose a pet on :/
    Last edited by Hanfidanfi; 06-03-2013 at 05:33 AM.
    Reply With Quote Reply With Quote
  6. 06-03-2013 #501
    DrMight's Avatar
    DrMight
    DrMight is offline
    Active Member CoreCoins Purchaser
    Reputation
    60
    Join Date
    May 2011
    Posts
    39
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by Hanfidanfi View Post
    Thanks for the Update!! But for me he stops sometimes when they are battleing :/ He dont press forfeit. Do you have a solution?
    Only thing I can think of is that you could try remake the forfeit image.
    Last edited by DrMight; 06-03-2013 at 05:32 AM.
    Reply With Quote Reply With Quote
  7. 06-03-2013 #502
    Hanfidanfi's Avatar
    Hanfidanfi
    Hanfidanfi is offline
    Corporal
    Reputation
    1
    Join Date
    Jun 2013
    Posts
    20
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    It was my mistake, he dont choose a pet :/ I tried to make new images 4 times but it still won´t work.
    Reply With Quote Reply With Quote
  8. 06-03-2013 #503
    DrMight's Avatar
    DrMight
    DrMight is offline
    Active Member CoreCoins Purchaser
    Reputation
    60
    Join Date
    May 2011
    Posts
    39
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by Hanfidanfi View Post
    It was my mistake, he dont choose a pet :/ I tried to make new images 4 times but it still won´t work.
    You're making the image while in a pet fight, yes? Using the ones in pet journal will most likely not work.
    Do you resize the window after you've made the image?
    The issue is related to the image.

    If you only intend to use OneChar, you could set pot1 & pet2 to the same pet, with a slight difference, as it searches both anyways, and it would allow you to test faster.

    The images displayed in the screenshots here (How to get 14m Exp/Hour 85-90 [Video]) are the ones I use, and Ive not had any issues with them.
    Last edited by DrMight; 06-03-2013 at 05:54 AM.
    Reply With Quote Reply With Quote
  9. 06-03-2013 #504
    DrMight's Avatar
    DrMight
    DrMight is offline
    Active Member CoreCoins Purchaser
    Reputation
    60
    Join Date
    May 2011
    Posts
    39
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    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

    Code:
    #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
    Reply With Quote Reply With Quote
  10. 06-03-2013 #505
    Balthier's Avatar
    Balthier
    Balthier is offline
    Member
    Reputation
    7
    Join Date
    Apr 2008
    Posts
    228
    Thanks G/R
    0/1
    Trade Feedback
    6 (100%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Does anyone have time to try and queue up with me? Seems like when I try it with two of my own accounts they will never meet eachother. Pm me with details, EU ofc
    Reply With Quote Reply With Quote
  11. 06-03-2013 #506
    Hanfidanfi's Avatar
    Hanfidanfi
    Hanfidanfi is offline
    Corporal
    Reputation
    1
    Join Date
    Jun 2013
    Posts
    20
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by DrMight View Post
    You're making the image while in a pet fight, yes? Using the ones in pet journal will most likely not work.
    Do you resize the window after you've made the image?
    The issue is related to the image.

    If you only intend to use OneChar, you could set pot1 & pet2 to the same pet, with a slight difference, as it searches both anyways, and it would allow you to test faster.

    The images displayed in the screenshots here (How to get 14m Exp/Hour 85-90 [Video]) are the ones I use, and Ive not had any issues with them.
    First of all, thanks for your Help :*
    I solved the problem I simply fit the windows to the screen.. They are in window mode but weren´t over the whole screen, now they are And everything is runnig so damn awesome *__* Thank you sooooooooooooo much Might <3
    Reply With Quote Reply With Quote
  12. 06-03-2013 #507
    leinadz's Avatar
    leinadz
    leinadz is offline
    Active Member
    Reputation
    23
    Join Date
    May 2008
    Posts
    134
    Thanks G/R
    1/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    can more than just 1 person confirm that the 300% exp elixir ( elixier of ancient knowledge) will work with this method?
    Reply With Quote Reply With Quote
  13. 06-03-2013 #508
    imafish2004's Avatar
    imafish2004
    imafish2004 is offline
    Corporal
    Reputation
    5
    Join Date
    Apr 2012
    Posts
    30
    Thanks G/R
    2/2
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Trying the updated script now and seems good.

    Leinadz - There was a post ages back (which I searched after I posted) that said it would work. If you check the elixir on wowhead it says it works for pet battles and I give you my word that it does (my word may not be much!).

    Trust me it is worth it to see your levels go up every 2-3 pet battles lol

    PSA : Don't forget to go ride the darkmoon faire ride for an extra 10% xp buff for 60 mins
    Reply With Quote Reply With Quote
  14. 06-03-2013 #509
    leinadz's Avatar
    leinadz
    leinadz is offline
    Active Member
    Reputation
    23
    Join Date
    May 2008
    Posts
    134
    Thanks G/R
    1/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    ok great !! than i will try it later :P
    Reply With Quote Reply With Quote
  15. 06-03-2013 #510
    imafish2004's Avatar
    imafish2004
    imafish2004 is offline
    Corporal
    Reputation
    5
    Join Date
    Apr 2012
    Posts
    30
    Thanks G/R
    2/2
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by leinadz View Post
    ok great !! than i will try it later :P
    Do let the thread know how you get on Would be nice to have comparisons for others to follow!

    No luck farming another 300% potion for me yet, coming down from 300% xp bonus buzz is harsh!
    Reply With Quote Reply With Quote
Page 34 of 45 FirstFirst ... 303132333435363738 ... LastLast
« Previous Thread | Next Thread »

Similar Threads

  1. [MoP] Get 9Mio Exp/Hour - 18Mio Exp/Hour rested
    By Snowee in forum World of Warcraft Exploits
    Replies: 1
    Last Post: 07-28-2012, 12:56 AM
  2. [Guide] How to get 2.5k (5k with rested) exp from elite all by yourself @ Nagrand
    By Racks in forum World of Warcraft Guides
    Replies: 6
    Last Post: 06-21-2008, 03:20 PM
  3. How to: Get over 1k honor an hour solo
    By SYntekz in forum World of Warcraft Exploits
    Replies: 9
    Last Post: 12-27-2006, 12:24 AM
  4. How do I get 30k an hour?
    By Clocky in forum World of Warcraft General
    Replies: 3
    Last Post: 12-06-2006, 12:41 AM
All times are GMT -5. The time now is 10:08 AM. Powered by vBulletin® Version 4.2.3
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved. User Alert System provided by Advanced User Tagging (Pro) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
Google Authenticator verification provided by Two-Factor Authentication (Free) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
Digital Point modules: Sphinx-based search