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

[wallass1987]

this doesnt seem to be working after i start it up i highlight the bg alt tab out and run the script it goes into wow again and opens the bg window up but does not hit the join battle to queue for me then it hops out of wow and the little tool bars pop up for the nav and des buff and what not...then nothing else happens i get this showing up at the bottom

>"C:\Program Files (x86)\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Users\& \Documents\project2.au3"
C:\Users\ & \Documents\project2.au3 (79) : ==> Variable used without being declared.:
MouseMove ($join[0], $join[1])
MouseMove (^ ERROR
>Exit code: 1 Time: 33.049

if anyone can tell me what is going wrong here that would be great i copied and pasted the code from above onto my script editor and it should work according to the replies everyone else has thanks
copy and pasted the code from the OP not above sorry lol

also to i'd like to add ive been able to get the bot to click the enter battle but as to the joining it wont and when it enters the bg it just keeps doing the jump when the bg ends it does nothing but repeat this is what i have for the code it should all be the same except for the enter bg co-ords as i had to change them for my res and i cant find where i need to change the other ones so i'll just link what i have and if you know where i need to add the co-ords for other buttons lemme know thank you again


; __ __ .__ .___ _____
;/ \ / \___________| | __| _/ _____/ ____\
;\ \/\/ / _ \_ __ \ | / __ | / _ \ __\
; \ ( <_> ) | \/ |__/ /_/ | ( <_> ) |
; \__/\ / \____/|__| |____/\____ | \____/|__|
; \/ \/
; __ __ _____ __
;/ \ / \_____ _______ ________________ _/ ____\/ |_
;\ \/\/ /\__ \\_ __ \_/ ___\_ __ \__ \\ __\\ __\
; \ / / __ \| | \/\ \___| | \// __ \| | | |
; \__/\ / (____ /__| \___ >__| (____ /__| |__|
; \/ \/ \/ \/
;/###########################################################\
; 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(390, 179, 503, 203, 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,91
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
ok finally got it to work excep when the bg is over it doesnt recognize that it is and does the afk routine still any tips on how to fix that would be great thnx

[nbkbambus]

maybe i am blind or so , but could someone tell me where to get it ?? ^^ i'll apreciate thay


Ty...

[wallass1987]

first page of this thread has a code with instructions DL autoit and copy paste it to the scite script editor and follow onscreen instructions =) hopefully works for you cause i am having problems with mine GL

[=Z=]

Good to see people still enjoying this bot, I also lol @ the number of people leaching code from here to publish their own bots to farm rep (lol Blink).

Nice additions from a few of you that I implemented, when I actually get some time off work and can code again I will check some of it out.

[Shameless]

Nice Work Making This. Im having a few problems though...

It wont click enter battle when it pops up.
And
It wont leave the battle when finished.

How do i fix these?

Thanks

[wallass1987]

you have to change your co-ords in the $coord = PixelSearch(390, 179, 503, 203, 0xE01308, 100) ;searches for color of join battleground button within 100 variations section the other one for leaving is close to the bottom you'll see it just read around and you'll have no problem finding them =) cheers

[Gohan23]

hey guys, ive used this for a while now...but im playing alliance, and i am getting kinda tired of getting player reports Anyone figured out how to add navigation for ally ?
would be greatly appreciated !

[59Fifty]

Excellent bot

[Shameless]

Okay... Tried Editing The Co-Ord's for the Join Battle Button but still doesnt seem to work. Same thing happens when BG ends... Doesnt find the leave BG button or the addon that's suppost to do it isnt... Im running on 1280x960 Resolution... Can anyone help?

Thanks

[onoudidant]

i wouldn't recomend using this.
too buggy

[Shameless]

i wouldn't recomend using this.
too buggy

Too Buggy.... Well maybe when u have a post count more that 2 people might listen too you This scrip is PERFECT other than the slight issue with different co-ord's for different resolutions.

[klamor]

what resolution should i use to get it workin right?

[kakkygrecko]

so this re-queues every 40mins just in case someone reports me and i get kicked out (deserter)

[=Z=]

you have to change your co-ords in the $coord = PixelSearch(390, 179, 503, 203, 0xE01308, 100) ;searches for color of join battleground button within 100 variations section the other one for leaving is close to the bottom you'll see it just read around and you'll have no problem finding them =) cheers

This is exactly what you need to do... listen people, just because you're too lazy to read the MULTIPLE times this has been addressed on this thread and the bot doesnt work for you because you run in 640x480 resolution, doesn't mean the script is "buggy".

I have absolutely 0 issues when running the script here as is, and I imagine all the other people saying "good bot" don't either, so in short, it's not the bot, it's you that's the problem.

I try to be nice about it, but when stupid / lazy people shit talk the bot because they're too 'tarded to read a few lines, doesn't exactly make me want to help them either.

If setting this up is too hard for you, use MR.Fishit.

[jereminion]

so does this work with 3.3