Z 's Battleground Honor Farming Bot (Alpha - Source included)

[=Z=]

Bot updated to 1.03 on 10/09/2009


Intro

First let me preface this by saying, though I have gone to lengths to make this bot as undetectable as possible, there is always a chance of a ban and neither I, nor any other contributors will be held responsible if you are caught. While I can guarantee that the bot will make sure you don't get AFK booted, people may still see you not moving on the map (except to jump up and down to avoid AFK status) and flag/report you, so you use this at your own risk, be intelligent and try to check on the bot regularly.

Also, this bot is not yet complete, it's a work in progress and will most likely have multiple contributors, if you think you know of a good addition to the bot, feel free to code it and pending that I review your code I will make it official and add it to the source.

New BG Nav has been added (thanks Drek), though I have not personally tested it, so it may still need to be tweaked a bit.

As an example of how navigation works; in AV with nav enabled the bot will attempt to run out of the starting cave into an area nearby the frostwolf fortress. Having tested this personally over a few dozen hours with no modifications to the source I'm posting here, I was never once flagged as AFK (people generally assumed I was defending the fort). Also, I play horde only so there may be limited nav support for alliance, sorry, you can still use it to anti-afk stationary (it'll just jump every minute or so in the default starting position for the BG) for any BG on horde or alliance.

The bot doesn't use memory reading or injection, I've tried to make it as undetectable as possible while maintaining as much functionality as I can, unfortunately, this means it sacrifices some accuracy and may occasionally screw up when something/someone enters the field of view (this is why I suggest to have your character staring at the ground). Again, I cannot guarantee anything, nor will I be held responsible if you get banned for someone noticing you standing in 1 spot jumping every minute if you use this bot for 12 hours straight, so be responsible use the bot with caution.

The bot will queue for BGs, navigate, release corpse if dead and detect and leave BGs when they end, it will also rejoin the queue if it has been idle for more than 40 minutes to prevent you from anti-afk'ing in a bg for 10 hours straight (thanks drek!), this means that once you set it up you can go AFK for as long as you want and it should keep on running the same BGs until you stop it. It does this by pixel searching specified coordinates on the screen for the the join/quit/release buttons. Because it uses pixel searching, it's not 100% reliable, but I would say it work 99% of the time for me, with the occasionally rare screw up (you may need to tweak the coordinates.. depending on your resolution... I use 1280x1024). When running this, I recommend having your character face a dark black wall or the ground (avoid any area with red) to minimize the chance that someone runs into your field of view and triggers the pixelsearching code by mistake.

Also, most of the timers used in the bot consistently have been changed to small randomization, this should reduce the chance of being caught by warden as the bots wait times between actions will be slightly different every time.

Instructions

1. Start WoW
2. Open your BG queue window (H) and select the battlegrounds tab
3. Highlight the BG you plan on botting
4. Close BG queue window
5. Open AutoIT and open Bot Source code and choose Tools -> Go (or press F5)
6. Bot will launch and maximize your WoW window, it will give you instructions in tooltips in the top left corner, follow them
7. Bot will run through it's setup and pop up a few message boxs with options, such as enabling nav before starting it's BG routine.
8. After setup is complete the bot will take over and should start queuing for BGs, sit back and enjoy!

And now for the source code.



AutoIT SOURCE

; __      __            .__       .___         _____ 
;/  \    /  \___________|  |    __| _/   _____/ ____\
;\   \/\/   /  _ \_  __ \  |   / __ |   /  _ \   __\ 
; \        (  <_> )  | \/  |__/ /_/ |  (  <_> )  |   
;  \__/\  / \____/|__|  |____/\____ |   \____/|__|   
;       \/                         \/                
; __      __                                    _____  __   
;/  \    /  \_____ _______   ________________ _/ ____\/  |_ 
;\   \/\/   /\__  \\_  __ \_/ ___\_  __ \__  \\   __\\   __\
; \        /  / __ \|  | \/\  \___|  | \// __ \|  |   |  |  
;  \__/\  /  (____  /__|    \___  >__|  (____  /__|   |__|  
;       \/        \/            \/           \/             
;/###########################################################\
; Zbot Battleground Honor Farming Bot  		Created by: =Z=  #
;************************************************************#
;															 #
; Special Thanks to Drek for additions!						 #
;															 #
;*************												 #
; Description 												 #
;*************											     #
; This bot will queue for BGs and use anti-afk measures.	 #
; You will be prompted for instructions to setup the bot     #
; follow the tooltips / prompts, tooltips are in top left	 #
; corner.													 #
;															 #
;*************												 #
; Features													 #
;*************												 #
; • Anti-AFK												 #
; • Basic navigation (extra nav routes provided by Drek)	 #
; • Death-checking + releasing								 #
; • Auto BG queuing / detecting								 #
; • BG end detection and re-queing							 #
; • Deserter debuff check									 #
;\###########################################################/


;DO NOT TOUCH - ALTERING THESE WILL BREAK THE MACRO
Global $join[2] ; position of button to click
Global $colour = 14684936 ; the decimal color of the buttons
Global $bgnum = 0; battleground number
Global $bgnav ; battleground navigation
Global $recount = 0
Global $checkdebuff

;MAIN MACRO
WinActivate("World of Warcraft") ; activate window
ToolTip("Opening WoW window...", 0, 0); displays tooltip in top left corner
WinWaitActive("World of Warcraft") ; wait untill the window is active

While 1
WinWaitActive("World of Warcraft")
ToolTip("Executing script...", 0, 0) ; displays tooltip in top left corner
Sleep (2000)
	Prep()
Wend

;Prep functions - sets up options
Func Prep()
	ToolTip("Setting up coordinates, prepare for further instructions...", 0, 0) ; displays tooltip in top left corner
	Sleep (500)
	ToolTip("Opening BG window...", 0, 0) ; displays tooltip in top left corner
	Send("{h}") ;pressed h key
	Sleep (2000)
	ToolTip("Mouse over the Join Battle button, you have 5 seconds...", 0, 0) ; displays tooltip in top left corner
	Sleep (5000)
	$x = MouseGetPos() ;sets target to mouse position
	$join = $x ;sets global variable
	ToolTip("Join Battle button location set", 0, 0) ; displays tooltip in top left corner
	Sleep (2000)
	$bgnav = InputBox("Choose navigation options", "Y - Enable BG Navigation, N - Disable BG Navigation", "", "") 	
	If $bgnav = "y" then
		ToolTip("Please enter your battleground number...", 0, 0) ; displays tooltip in top left corner
		Sleep (1000)
		$bgnum = InputBox("Choose your Battleground", "1 - AV, 2 - AB, 3 - WG, 4 - EoTS, 5 - SotA, 6 - IoC,", "", "")
		
		If $bgnum = 1 Then
			ToolTip("You have selected, Alterac Valley, beginning queing process", 0, 0) ; displays tooltip in top left corner
			Sleep (2000)
		ElseIf $bgnum = 2 Then
			ToolTip("You have selected, Arathi Basin, beginning queing process", 0, 0) ; displays tooltip in top left corner
			Sleep (2000)
		ElseIf $bgnum = 3 Then
			ToolTip("You have selected, Warson Gulch, beginning queing process", 0, 0) ; displays tooltip in top left corner
			Sleep (2000)
		ElseIf $bgnum = 4 Then
			ToolTip("You have selected, Eye of the Storm, beginning queing process", 0, 0) ; displays tooltip in top left corner
			Sleep (2000)
		ElseIf $bgnum = 5 Then
			ToolTip("You have selected, Strand of the Ancients,  beginning queing process", 0, 0) ; displays tooltip in top left corner
			Sleep (2000)
		ElseIf $bgnum = 6 Then
			ToolTip("You have selected, Isle of Conquest, beginning queing process", 0, 0) ; displays tooltip in top left corner
			Sleep (2000)
		Else
			ToolTip("You have selected nothing, beginning queing process", 0, 0) ; displays tooltip in top left corner
			Sleep (2000)
		EndIf
	ElseIf $bgnav = "n" then
		ToolTip("You have selected to disable BG Navigation", 0, 0) ; displays tooltip in top left corner
		Sleep (2000)
	EndIf
	
	ToolTip("Checking for deserter debuff...", 0, 0) ; displays tooltip in top left corner
	$checkdebuff = InputBox("Debuff", "Do you have deserter debuff? y or n", "", "")
	if $checkdebuff = "y" Then
		Send("{h}")
		debuff()
	EndIf
	
	Send("{h}") ;pressed h key
	Sleep(Random(1995,2130))
	Queue()
EndFunc

;Queue function - queues for BG 
Func Queue()
	$recount = 0 
	ToolTip("Beginning battleground script...", 0, 0) ; displays tooltip in top left corner
	Sleep(Random(2015,2145))
	ToolTip("Opening BG window...", 0, 0) ; displays tooltip in top left corner
	Send("{h}") ;pressed h key
	Sleep(Random(995,1145))
	MouseMove ($join[0], $join[1]) ;move to area coordinates for join button
	ToolTip("Queing for BG...", 0, 0) ; displays tooltip in top left corner
	Sleep(Random(1005,1165))
	MouseClick ("left")
	Sleep(Random(990,1210))
	ToolTip("Closing BG window...", 0, 0) ; displays tooltip in top left corner
	Send("{h}") ;pressed h key
	Sleep(Random(1005,1115))
	Join()
EndFunc

;Join function - detects enter battle button and joins BG
Func Join()
	ToolTip("Waiting for BG to start", 0, 0) ; displays tooltip in top left corner
	while 1=1
		$coord = PixelSearch(450, 150, 800, 230, 0xE01308, 100) ;searches for color of join battleground button within 100 variations
		If Not @error Then
			MouseMove  ($coord[0], $coord[1]) ;move to area coordinates for join button
			ToolTip("Joining BG", 0, 0) ; displays tooltip in top left corner
			Sleep(Random(2015,2270))
			MouseClick ("left")
			ToolTip("Waiting for BG to load for 10 seconds...", 0, 0) ; displays tooltip in top left corner
			Sleep (10000)
			BG() ; call combat loop
		EndIf
	ToolTip("No Enter Battle button located, checking again in 5 seconds...", 0, 0) ; displays tooltip in top left corner
	Sleep (5000)
	Join()
	WEnd
EndFunc

;Debuff Function - waits for 15 minutes before starting bot if you have the deserted debuff when starting the bot
func debuff() 
	ToolTip("Waiting 15 minutes for deserter debuff to leave", 0, 0)
	Sleep (900000)
	Queue()
EndFunc

;BG function - Navigates (if enabled) and runs anti-afk procedures, also detects death and BG end
Func BG()
	If $bgnav = "y" then
	ToolTip("Beginning Nav procedure", 0, 0) ; displays tooltip in top left corner
	Sleep(Random(1015,1175))
	
	;AV NAV CODE
	If $bgnum = 1 Then
		Send ("{left down}")
		sleep (150)
		Send ("{left up}")
		sleep (500)
		Send ("{NUMLOCK}")
		Sleep (2400)
		Send ("{NUMLOCK}")
		sleep (500)
		Send ("{right down}")
		sleep (205)
		Send ("{right up}")
		sleep (500)
		Send ("{NUMLOCK}")
		Sleep (9000)
		Send ("{NUMLOCK}")
		ToolTip("Waiting for 1:45 before continuing Nav procedure...)", 0, 0) ; displays tooltip in top left corner
		sleep (95000)
		ToolTip("Commencing Nav routine...", 0, 0) ; displays tooltip in top left corner
		Send ("{NUMLOCK}")	
		Sleep (7000)
		Send ("{left down}")
		sleep (310)
		Send ("{left up}")
		sleep (25000)
		Send ("{NUMLOCK}")
		ToolTip("Nav routine complete...", 0, 0) ; displays tooltip in top left corner
		sleep (2000)
	
	;AB NAV CODE	
	ElseIf $bgnum = 2 Then
		Send ("{NUMLOCK}")
		Sleep (6000)
		Send ("{NUMLOCK}")
		sleep (500)
		ToolTip("Waiting for 1:45 before continuing Nav procedure...)", 0, 0) ; displays tooltip in top left corner
		sleep (95000) 
		ToolTip("Co mmencing Nav routine...", 0, 0) ; displays tooltip in top left corner
		Send ("{NUMLOCK}")	
		Sleep (15000)
		Send ("{NUMLOCK}") 
		Sleep (500)		
		Send ("{right down}")
		sleep (480)
		Send ("{right up}")
		sleep (500)
		Send ("{NUMLOCK}")
		sleep (20000) 
		Send ("{NUMLOCK}") 
		ToolTip("Nav routine complete...", 0, 0) ; displays tooltip in top left corner
		sleep (2000)
	
	;WG NAV CODE
	ElseIf $bgnum = 3 Then
		Send ("{right down}")
		sleep (150)
		Send ("{right up}")
		sleep (500)
		Send ("{NUMLOCK}")
		Sleep (2200)
		Send ("{NUMLOCK}")
		sleep (500)
		Send ("{left down}")
		sleep (150)
		Send ("{left up}")
		ToolTip("Waiting for 1:45 before continuing Nav procedure...)", 0, 0) ; displays tooltip in top left corner
		sleep (94000)
		ToolTip("Commencing Nav routine...", 0, 0) ; displays tooltip in top left corner
		send ("{left down}")
		sleep (700)
		send ("{left up}")
		sleep (500)
		Send ("{NUMLOCK}")	
		Sleep (6000)
		Send ("{NUMLOCK}")	
		Sleep (500)
		Send ("{right down}")
		sleep (310)
		Send ("{right up}")
		sleep (500)
		Send ("{NUMLOCK}")
		sleep (1500)
		Send ("{NUMLOCK}")
		sleep (500) 
		
	;EotS NAV CODE
	ElseIf $bgnum = 4 Then
		Send ("{NUMLOCK}")
		Sleep (2200)
		Send ("{NUMLOCK}")
		sleep (500)
		MouseMove (665,918)
		MouseClick ("left")
		ToolTip("Waiting for 1:45 before continuing Nav procedure...)", 0, 0) ; displays tooltip in top left corner
		sleep (109000)
		ToolTip("Commencing Nav routine...", 0, 0) ; displays tooltip in top left corner
		send ("{left down}")
		sleep (950)
		send ("{left up}")
		sleep (500)
		Send ("{NUMLOCK}")	
		Sleep (6000)
		Send ("{NUMLOCK}")	
		Sleep (500)
		Send ("{right down}")
		sleep (310)
		Send ("{right up}")
		sleep (500)
		Send ("{NUMLOCK}")
		sleep (1500)
		Send ("{NUMLOCK}")
		sleep (500) 
		MouseMove (1174,813) 
		MouseClick ("left") 
	
	;SotA NAV CODE
	ElseIf $bgnum = 5 Then
		Send ("{right down}")
		sleep (350)
		Send ("{right up}")
		sleep (500)
		Send ("{NUMLOCK}")
		Sleep (7200)
		Send ("{NUMLOCK}")
		sleep (500)
		Send ("{left down}")
		sleep (350)
		Send ("{left up}")
		sleep (500)
		Send ("{NUMLOCK}")	
		Sleep (15000)
		Send ("{NUMLOCK}")	
		Sleep (500)
		Send ("{right down}")
		sleep (310)
		Send ("{right up}")
		sleep (500)
	
	;IoC NAV CODE
	ElseIf $bgnum = 6 Then
		Send ("{right down}")
		sleep (350)
		Send ("{right up}")
		sleep (500)
		Send ("{NUMLOCK}")
		Sleep (16200)
		Send ("{NUMLOCK}")
		sleep (500)
		Send ("{left down}")
		sleep (350)
		Send ("{left up}")
		sleep (500)		
		EndIf
	EndIf
	
	while 1=1
		$coord = PixelSearch(587, 206, 691, 215, 0xE01308, 100) ;searches for color of join battleground button within 100 variations
		If Not @error Then
			MouseMove  ($coord[0], $coord[1]) ;move to area coordinates for join button
			ToolTip("Character has died, respawning", 0, 0) ; displays tooltip in top left corner
			sleep (2000)
			MouseClick ("left")
			ToolTip("Waiting for BG to load for 10 seconds...", 0, 0) ; displays tooltip in top left corner
			Sleep (10000)
		EndIf
		
		$coord = PixelSearch(600, 675, 732, 678, 0x670000, 10) ;searches for color of leave battleground button within 10 variations
		If Not @error Then
			MouseMove  ($coord[0], $coord[1]) ;move to area coordinates for leave battleground button
			ToolTip("BG has ended, re-starting queing process in 10 seconds", 0, 0) ; displays tooltip in top left corner
			sleep (2000)
			MouseClick ("left")
			sleep (8000)
			Queue() ; call combat loop
		EndIf
		
	ToolTip("BG not over, commencing anti-afk...", 0, 0) ; displays tooltip in top left corner
	Sleep(Random(1010,2020))
	Send ("{SPACE}")
	Sleep(Random(910,1130))
		For $i = 29 to 1 Step -1
			$recount = $recount+1 				; Global variable that is reset to 0 on Queue
			if $recount = 2400 Then		; Counts to 40 minutes and restarts the Queue - for long BGs/if you've been kicked
				Queue()
			EndIf
			ToolTip("Waiting 60 seconds to repeat routine... tick tock...    ( | )", 0, 0); displays tooltip in top left corner
			Sleep (500)
			ToolTip("Waiting 60 seconds to repeat routine... tick tock...    ( \ )", 0, 0); displays tooltip in top left corner
			Sleep (500)
			ToolTip("Waiting 60 seconds to repeat routine... tick tock...    ( | )", 0, 0); displays tooltip in top left corner
			Sleep (500)
			ToolTip("Waiting 60 seconds to repeat routine... tick tock...    ( / )", 0, 0); displays tooltip in top left corner
			Sleep (500)
		Next
	WEnd
EndFunc

Enjoy the bot and if you have any comments or suggestions feel free to post them here. Also, if you plan to rep, please don't only rep me but the other contributors as well, thanks.

[Barrt73Rus]

will this one move around and not just stand in the cave getting reported?

read source code and find the answer to your question !

[Robske]

displays tooltip in top left corner

[Kissy]

This looks promising. I can think off a few changes that will remove some more ban chance. I'll have a proper look at home thou. +rape

[Lelle]

Can you have WoW minimized for this?

[Kissy]

I would think not. But then i never coded it.

[Aldun]

Everything works fine till the moment it has to click on Join Battle, it clicks somewhere else on the screen. What res did you use?

[Villy]

Everything works fine till the moment it has to click on Join Battle, it clicks somewhere else on the screen. What res did you use?

"(you may need to tweak the coordinates.. depending on your resolution... I use 1280x1024)"

[=Z=]

K first of all I'll answer a few questions real quick.

The bot will navigate and move you out of the cave in AV (horde only) provided nothing goes screwy while its doing its nav code.

The bot will not run unless wow is active (one of the drawbacks of not using injection or mem reading).

The bot is highly unlikely to get you banned, the chances only increased slightly if you're using it for stationary anti-afk'ing but even then people just usually afk-flag you (which means you're not technically AFK but you aren't pvping either) which, at worst, just means you wont get honor that BG (no big loss).

If you're having trouble with it clicking on buttons, here's what you do.


Open the AutoIT Window Info tool and go to mouse tab (see below)

1. Open Wow
2. Queue for a BG
3. Once you see the join battle button, move your mouse to an area just above the upper NW corner of it
4. Alt-tab to the Autoit window info window and write down the coords for your current mouse position (these are the top left corner coords)
5. Now move your mouse to the area just below the SE corner of the button
6. Alt-tab to the Autoit window info window and write down the coords for your current mouse position (these are the bottom right corner coords)
7. You will now have two sets of coords (ex: 450, 150, and 800, 230)
8. In the code, in the Join() function look for where it says the following
   

   		$coord = PixelSearch(450, 150, 800, 230, 0xE01308, 100) ;searches for color of join battleground button within 100 variations

9. Replace the first set of coords with your first set (top left corner) and the second with your other set (bottom right corner)
10. This will make it so the pixelsearch will look in a rectangle from your top left coords to your bottom right coords for the button.
11. Save and launch the macro (tools -> go)
12. It should work now
13. If you have similar issues with the other buttons, repeat the same process (replace the top left and bottom right coords in the function that uses coord = PixelSearch with your set for your resolution).

I hope that helps and answers all the questions thus far.

[Phalankx]

Excellent bot, using to bot in WSG on my mage. Will post results later, but for now, +rep.

Edit: Actually, the bot does not wait for me to enter a BG before starting the BG part of the script (WSG), nor can it tell when a BG has ended/click the leave battleground button (WSG)

[stormcrowsix]

I dualbox, could you add some code to this bot or modify it so he queus up in both wow screens or make the groupleader queu up his party instead of him alone?

[oohlala77]

Every time i start it, it opens wow, and open the PvP pane, but then it minimizes and asks me for like co-ords or something for bg enable and disable, i dont know and the tooltip says something about bg enable button location er sumthin, why wont it work =/

[banger]

Edit: Ok I changed the cursor location of the script so now it enters battles properly. Im just having troubles leaving and re-entering the bg. Gonna try and fix it up.

[=Z=]

It's going to pop-up message boxes asking you to specify if you want to enable navigation or not, just type Y or N for navigation (if you choose yes, it'll pop up another asking which BG to use it for... in this case 1 which is AV is the only one that will work).

It should not be broken for anyone, if it is, you either aren't following my instructions or are running in a different resolution (in which case you need to chance the coords like I posted earlier).

[oohlala77]

Either way if i do Nav or not, it doesn't queue for the BG, i am on the right resolution, and after i do Nav or Not it never opens the wow window back up, it just starts its little queing process wether or not the window is back up, and if i do open the window back up, it cant manage to queue itself.