Code:
; __ __ .__ .___ _____
;/ \ / \___________| | __| _/ _____/ ____\
;\ \/\/ / _ \_ __ \ | / __ | / _ \ __\
; \ ( <_> ) | \/ |__/ /_/ | ( <_> ) |
; \__/\ / \____/|__| |____/\____ | \____/|__|
; \/ \/
; __ __ _____ __
;/ \ / \_____ _______ ________________ _/ ____\/ |_
;\ \/\/ /\__ \\_ __ \_/ ___\_ __ \__ \\ __\\ __\
; \ / / __ \| | \/\ \___| | \// __ \| | | |
; \__/\ / (____ /__| \___ >__| (____ /__| |__|
; \/ \/ \/ \/
;/#############################################################\
; Battleground Honor/XP Farming Bot Created by:Dep.ARTed #
; Special Thanks to: =Z= for the Pixelsearch Coords and the #
; "World of Warcraft" Header. #
; #
; Features #
; - Automatic Queing up in BG and Join #
; - Navigation for Horde in Alterac Valley [Disabled] #
; - AntiAFK System #
; - Automatic Revive System #
; - Own Navigation Profiles #
; #
; More to come: #
; - Support for all Battlegrounds #
; - More standart Navigations #
; - Multilanguage (The Instructions) #
; - Botting in multiple BGs (For Mark Farming) #
; - More Stable #
; #
; #
;**************************************************************#
;Do not edit the Globals! Otherwise the Marcro breaks
Global $button[2]
Global $factionnumber = 0
Global $Navigation
Global $Resolution
Global $CreateOwnNav
Global $HowMuch
Global $createdOwnNav
;Globals for the own Navigation Conf
global $waypoint1[2]
global $waypoint2[2]
global $waypoint3[2]
global $waypoint4[2]
global $waypoint5[2]
global $waypoint6[2]
global $waypoint7[2]
global $waypoint8[2]
global $waypoint9[2]
global $waypoint10[2]
global $waypoint11[2]
global $waypoint12[2]
global $waypoint13[2]
global $waypoint14[2]
global $waypoint15[2]
;Do not EDIT any Globals! Otherwise the Marcro breaks...
WinActive("World of Warcraft")
ToolTip("Preparing the game...", 0, 0)
WinWaitActive("World of Warcraft")
While 1
WinWaitActive("World of Warcraft")
TooLTip("Executing Script.Please be patient.", 0, 0)
sLeep(2000)
prepare()
WEnd
Func prepare()
TooLTip("Setting up Macro...Prepare for further Instructions...", 0, 0)
sLeep(2000)
Send("{H}")
sLeep(1000)
TooLTip("Please select the Battleground Tab...Then select the BG (AV for Navigation) Then mouse over the Join Battle Button. Waittime: 10 Seconds", 0, 0)
sLeep(10000)
$Mousecoords = MouseGetPos()
$button = $Mousecoords
TooLTip("Button Location set...", 0, 0)
sLeep(2000)
$Resolution = InPutBox("Please select your Resolution" , " Y - 800x600 , X - 1024x680 , Z - 1280x1024 , C - 1650x1024", "", "")
$Navigation = InputBox("Choose Navigation Options", "5 - Enable BG Navigation, 6 - Disable BG Navigation", "", "")
If $Navigation = "5" then
ToolTip("BG Navigation enabled", 0, 0)
Sleep (2000)
$CreateOwnNav = InPutBox("Create own Navigation?", "8 - own Navigation, 9 - Standart Navigation[Disabled for Pre-Alpha Version]", "", "")
if $CreateOwnNav = "8" then
TooLTip("Configure Navigation Profil at first joining...", 0, 0)
sLeep (2000)
ElseIf $CreateOwnNav = "9" then
TooLTip("[Disabled for Pre-Alpha Version]", 0, 0)
sLeep(2000)
$factionnumber = InputBox("Select your faction", "1 - Horde , 2 - Alliance", "", "")
Elseif $factionnumber = "1" then
TooLTip("Horde selected", 0, 0)
sLeep (2000)
ElseIf $factionnumber = "2" then
ToolTip("Alliance selected", 0, 0)
sLeep (2000)
TooLTip("No standart Navigation for Alliance,yet. Disableing Navigation", 0, 0)
$Navigation = 6
EndIf
ElseIf $Navigation = "6" then
TooLTIp("BG Navigation disabled", 0, 0)
sLeep (2000)
EndIf
Send("{h}")
TooLTip("Thanks for your patient. Starting Script...", 0, 0)
Sleep (2000)
Start()
EndFunc
Func Start()
Send("{h}")
sleep (1000)
MouseMove ($button[0], $button[1])
sLeep (1000)
MouseClick ("left")
sLeep (1000)
Send("{h}")
Sleep (1000)
TooLTip("Queued up for Alterac Valley!", 0, 0)
Join()
EndFunc
Func Join() ;Thx to MMOWNED User =Z= for the PixeLSearch Coords!
ToolTip("Waiting...", 0, 0)
$coord = PixelSearch(450, 150, 800, 230, 0xE01308, 100)
If Not @error Then
MouseMove ($coord[0], $coord[1])
ToolTip("Joining...", 0, 0)
sleep (2000)
MouseClick ("left")
ToolTip("Waiting...", 0, 0)
Sleep (10000)
If $CreateOwnNav = "8" then
TooLTip("Starting Nav Configure Mode", 0, 0)
sLeep(2000)
Conf()
ElseIf $CreateOwnNav = "9" then
TooLTip("Starting standart Navigation", 0, 0)
sLeep(2000)
BG()
ElseIf $CreatedOwnNav = "1" then
TooLTip("Starting own Navigation...", 0, 0)
sLeep(2000)
OwnBG()
EndIF
EndIf
ToolTip("No Battleground started - Waiting for start...", 0, 0)
Sleep (5000)
Join()
EndFunc
func BG()
TooLTip("Just a Placeholder..", 0, 0)
sLeep(2000)
TooLTip("Its going to be updated soon. Stay tuned", 0, 0)
sLeep(5000)
AntiAFKCONF()
EndFunc
func conf()
TooLTip("Welcome to the Nav Conf..Please be patient...", 0, 0)
sLeep(5000)
TooLTip("Don't make more then 10 Waypoints!", 0, 0)
sLeep(2000)
TooLTip("Just move your mouse over that point you want to move your char to", 0, 0)
sLeep(4000)
TooLTip("Please don't move your char in the Conf, otherwise your NAV breaks.", 0, 0)
sLeep(4000)
TooLTip("Just wait till all people are gone and the gates are opened. Time to wait: 1:45", 0, 0)
sLeep(95000)
$HowMuch = InputBox("How much Waypoints?", "Type in your Waypoints(Not more then 10 and atleast 3)", "", "")
if $HowMuch = "3" then
ToolTip("3 Waypoints selected", 0, 0)
sLeep(2000)
elseif $HowMuch = "4" then
ToolTip("4 Waypoints selected", 0, 0)
sLeep(2000)
elseif $HowMuch = "5" then
ToolTip("5 Waypoints selected", 0, 0)
sLeep(2000)
elseif $HowMuch = "6" then
ToolTip("6 Waypoints selected", 0, 0)
sLeep(2000)
elseif $HowMuch = "7" then
ToolTip("7 Waypoints selected", 0, 0)
sLeep(2000)
elseif $HowMuch = "8" then
ToolTip("8 Waypoints selected", 0, 0)
sLeep(2000)
elseif $HowMuch = "9" then
ToolTip("9 Waypoints selected", 0, 0)
sLeep(2000)
elseif $HowMuch = "10" then
ToolTip("10 Waypoints selected", 0, 0)
sLeep(2000)
elseIf $HowMuch < "3" Then
TooLTip("Read the ****ing description")
sLeep(1000)
TooLTip("Abort Configure Mod...")
sLeep(1000)
BG()
elseIf $HowMuch > "10" Then
TooLTip("Read the ****ing description")
sLeep(1000)
TooLTip("Abort Configure Mod...")
sLeep(1000)
BG()
EndIf
ToolTip("Beginning Waypoint Configure...", 0, 0)
sLeep(2000)
ToolTip("Please move over your first Waypoint and stay there for 10 Seconds", 0, 0)
sLeep(5000)
TooLTip("Disabling Interface for better Navigation...",0 ,0)
sLeep(2000)
sEnd("{alt} {Y}")
sLeep(5000)
$mousecoords1 = MouseGetPos()
$waypoint1 = $mousecoords1
sLeep(3000)
TooLTip("First Waypoint selected - Testing...", 0, 0)
sLeep(2000)
MouseMove ($waypoint1[0], $waypoint1[1])
sLeep(1000)
MouseClick ("right")
TooLTip("...Testing...(Please Wait atleast 10 Seconds)", 0, 0)
sLeep(10000)
TooLTip("Please move over your second Waypoint and stay there for 10 Seconds", 0, 0)
sLeep(5000)
$mousecoords2 = MouseGetPos()
$waypoint2 = $mousecoords2
sLeep(3000)
TooLTip("Second Waypoint selected - Testing...", 0, 0)
sLeep(2000)
MouseMove ($waypoint2[0], $waypoint2[1])
sLeep(1000)
MouseCLick ("right")
TooLTip("...Testing...(Please Wait atleast 10 Seconds)", 0, 0)
sLeep(10000)
TooLTip("Please move over your third Waypoint and stay there for 10 Seconds", 0, 0)
sLeep(5000)
$mousecoords3 = MouseGetPos()
$waypoint3 = $mousecoords3
sLeep(3000)
TooLTip("Third Waypoint selected - Testing...", 0, 0)
sLeep(2000)
MouseMove ($waypoint3[0], $waypoint3[1])
sLeep(1000)
MouseCLick ("right")
TooLTip("...Testing...(Please Wait atleast 10 Seconds)", 0, 0)
sLeep(10000)
if $HowMuch = 3 then
TooLTip("Thanks for Configure...Wait until new Battleground" 0, 0)
sLeep(2000)
TooLTip("Activating Interface...", 0,0)
sLeep(1000)
sEnd("{alt} {Y}")
AntiAFKCONF()
else
TooLTip("Please move over your fourth Waypoint and stay there for 10 Seconds", 0, 0)
sLeep(5000)
$mousecoords4 = MouseGetPos()
$waypoint4 = $mousecoords4
sLeep(3000)
TooLTip("fourth Waypoint selected - Testing...", 0, 0)
sLeep(2000)
MouseMove ($waypoint4[0], $waypoint4[1])
sLeep(1000)
MouseCLick ("right")
TooLTip("...Testing...(Please Wait atleast 10 Seconds)", 0, 0)
sLeep(10000)
EndIf
If $HowMuch = 4 then
TooLTip("Thanks for Configure...Wait until new Battleground" 0, 0)
sLeep(2000)
TooLTip("Activating Interface...", 0,0)
sLeep(1000)
sEnd("{alt} {Y}")
AntiAFKCONF()
else
TooLTip("Please move over your fifth Waypoint and stay there for 10 Seconds", 0, 0)
sLeep(5000)
$mousecoords5 = MouseGetPos()
$waypoint5 = $mousecoords5
sLeep(3000)
TooLTip("Fifth Waypoint selected - Testing...", 0, 0)
sLeep(2000)
MouseMove ($waypoint5[0], $waypoint5[1])
sLeep(1000)
MouseCLick ("right")
TooLTip("...Testing...(Please Wait atleast 10 Seconds)", 0, 0)
sLeep(10000)
EndIf
If $HowMuch = 5 then
TooLTip("Thanks for Configure...Wait until new Battleground" 0, 0)
sLeep(2000)
TooLTip("Activating Interface...", 0,0)
sLeep(1000)
sEnd("{alt} {Y}")
AntiAFKCONF()
else
TooLTip("Please move over your sixth Waypoint and stay there for 10 Seconds", 0, 0)
sLeep(5000)
$mousecoords6 = MouseGetPos()
$waypoint6 = $mousecoords6
sLeep(3000)
TooLTip("Sixth Waypoint selected - Testing...", 0, 0)
sLeep(2000)
MouseMove ($waypoint6[0], $waypoint6[1])
sLeep(1000)
MouseCLick ("right")
TooLTip("...Testing...(Please Wait atleast 10 Seconds)", 0, 0)
sLeep(10000)
EndIf
If $HowMuch = 6 then
TooLTip("Thanks for Configure...Wait until new Battleground" 0, 0)
sLeep(2000)
TooLTip("Activating Interface...", 0,0)
sLeep(1000)
sEnd("{alt} {Y}")
AntiAFKCONF()
else
ToolTip("Please move over your seventh Waypoint and stay there for 10 Seconds", 0, 0)
sLeep(5000)
$mousecoords7 = MouseGetPos()
$waypoint7 = $mousecoords7
sLeep(3000)
TooLTip("seventh Waypoint selected - Testing...", 0, 0)
sLeep(2000)
MouseMove ($waypoint7[0], $waypoint7[1])
sLeep(1000)
MouseClick ("right")
TooLTip("...Testing...(Please Wait atleast 10 Seconds)", 0, 0)
sLeep(10000)
EndIf
If $HowMuch = 7 then
TooLTip("Thanks for Configure...Wait until new Battleground" 0, 0)
sLeep(2000)
TooLTip("Activating Interface...", 0,0)
sLeep(1000)
sEnd("{alt} {Y}")
AntiAFKCONF()
else
TooLTip("Please move over your eighth Waypoint and stay there for 10 Seconds", 0, 0)
sLeep(5000)
$mousecoords8 = MouseGetPos()
$waypoint8 = $mousecoords8
sLeep(3000)
TooLTip("eighth Waypoint selected - Testing...", 0, 0)
sLeep(2000)
MouseMove ($waypoint8[0], $waypoint8[1])
sLeep(1000)
MouseCLick ("right")
TooLTip("...Testing...(Please Wait atleast 10 Seconds)", 0, 0)
sLeep(10000)
EndIf
If $HowMuch = 8 then
TooLTip("Thanks for Configure...Wait until new Battleground", 0, 0)
sLeep(2000)
TooLTip("Activating Interface...", 0,0)
sLeep(1000)
sEnd("{alt} {Y}")
AntiAFKCONF()
else
sLeep(5000)
TooLTip("Please move over your ninth Waypoint and stay there for 10 Seconds", 0, 0)
$mousecoords9 = MouseGetPos()
$waypoint9 = $mousecoords9
sLeep(3000)
TooLTip("Ninth Waypoint selected - Testing...", 0, 0)
sLeep(2000)
MouseMove ($waypoint9[0], $waypoint9[1])
sLeep(1000)
MouseCLick ("right")
TooLTip("...Testing...(Please Wait atleast 10 Seconds)", 0, 0)
sLeep(10000)
EndIf
If $HowMuch = 9 then
TooLTip("Thanks for Configure...Wait until new Battleground" 0, 0)
sLeep(2000)
TooLTip("Activating Interface...", 0,0)
sLeep(1000)
sEnd("{alt} {Y}")
AntiAFKCONF()
else
TooLTip("Please move over your tenth Waypoint and stay there for 10 Seconds", 0, 0)
sLeep(5000)
$mousecoords10 = MouseGetPos()
$waypoint10 = $mousecoords10
sLeep(3000)
TooLTip("tenth Waypoint selected - Testing...", 0, 0)
sLeep(2000)
MouseMove ($waypoint10[0], $waypoint10[1])
sLeep(1000)
MouseCLick ("right")
TooLTip("...Testing...(Please Wait atleast 10 Seconds)", 0, 0)
sLeep(10000)
TooLTip("Thanks for Configure...Wait until new Battleground" 0, 0)
sLeep(2000)
TooLTip("Activating Interface...", 0,0)
sLeep(1000)
sEnd("{alt} {Y}")
AntiAFKCONF()
$CreatedOwnNav = 1
EndIf
EndFunc
Func OwnBG()
If $Navigation = "5" then
ToolTip("Executing own BG-Navigation Process", 0, 0)
sleep (2000)
TooLTip("Waiting till gates are opened and people are gone (less Bugs)...Waiting time 1:45")
sLeep(105000)
TooLTip("Starting Navigation Process", 0, 0)
sLeep(2000)
TooLTip("Disableing Interface for better Navigation", 0, 0)
sLeep(2000)
sEnd("{alt} {Y}")
sLeep(3000)
TooLTip("Moving...", 0, 0)
sLeep(500)
MouseMove ($waypoint1[0], $waypoint1[1])
sLeep(1000)
MouseClick ("right")
sLeep(1000)
MouseClick ("right")
sLeep(1000)
MouseClick ("right")
TooLTip("Moving...", 0, 0)
sLeep(10000)
MouseMove ($waypoint2[0], $waypoint2[1])
sLeep(1000)
MouseClick ("right")
sLeep(1000)
MouseClick ("right")
sLeep(1000)
MouseClick ("right")
TooLTip("Moving...", 0, 0)
sLeep(10000)
MouseMove ($waypoint3[0], $waypoint3[1])
sLeep(1000)
MouseClick ("right")
sLeep(1000)
MouseClick ("right")
sLeep(1000)
MouseClick ("right")
TooLTip("Moving...", 0, 0)
sLeep(10000)
If $HowMuch = "3" then
TooLTip("Navigation ends", 0, 0)
sLeep(2000)
TooLtip("Starting ANTI-AFK Mode", 0, 0)
sLeep(500)
AntiAFKCONF()
Else
MouseMove ($waypoint4[0], $waypoint4[1])
sLeep(1000)
MouseClick ("right")
sLeep(1000)
MouseClick ("right")
sLeep(1000)
MouseClick ("right")
TooLTip("Moving...", 0, 0)
sLeep(10000)
EndIf
IF $HowMuch = "4" then
TooLTip("Navigation ends", 0, 0)
sLeep(2000)
TooLtip("Starting ANTI-AFK Mode", 0, 0)
sLeep(500)
AntiAFKCONF()
else
MouseMove ($waypoint5[0], $waypoint5[1])
sLeep(1000)
MouseClick ("right")
sLeep(1000)
MouseClick ("right")
sLeep(1000)
MouseClick ("right")
TooLTip("Moving...", 0, 0)
sLeep(10000)
EndIf
IF $HowMuch = "5" then
TooLTip("Navigation ends", 0, 0)
sLeep(2000)
TooLtip("Starting ANTI-AFK Mode", 0, 0)
sLeep(500)
AntiAFKCONF()
else
MouseMove ($waypoint6[0], $waypoint6[1])
sLeep(1000)
MouseClick ("right")
sLeep(1000)
MouseClick ("right")
sLeep(1000)
MouseClick ("right")
TooLTip("Moving...", 0, 0)
sLeep(10000)
EndIf
IF $HowMuch = "6" then
TooLTip("Navigation ends", 0, 0)
sLeep(2000)
TooLtip("Starting ANTI-AFK Mode", 0, 0)
sLeep(500)
AntiAFKCONF()
else
MouseMove ($waypoint7[0], $waypoint7[1])
sLeep(1000)
MouseClick ("right")
sLeep(1000)
MouseClick ("right")
sLeep(1000)
MouseClick ("right")
TooLTip("Moving...", 0, 0)
sLeep(10000)
EndIf
IF $HowMuch = "7" then
TooLTip("Navigation ends", 0, 0)
sLeep(2000)
TooLtip("Starting ANTI-AFK Mode", 0, 0)
sLeep(500)
AntiAFKCONF()
else
MouseMove ($waypoint8[0], $waypoint8[1])
sLeep(1000)
MouseClick ("right")
sLeep(1000)
MouseClick ("right")
sLeep(1000)
MouseClick ("right")
TooLTip("Moving...", 0, 0)
sLeep(10000)
EndIf
IF $HowMuch = "8" then
TooLTip("Navigation ends", 0, 0)
sLeep(2000)
TooLtip("Starting ANTI-AFK Mode", 0, 0)
sLeep(500)
AntiAFKCONF()
else
MouseMove ($waypoint9[0], $waypoint9[1])
sLeep(1000)
MouseClick ("right")
sLeep(1000)
MouseClick ("right")
sLeep(1000)
MouseClick ("right")
TooLTip("Moving...", 0, 0)
sLeep(10000)
EndIf
IF $HowMuch = "9" then
TooLTip("Navigation ends", 0, 0)
sLeep(2000)
TooLtip("Starting ANTI-AFK Mode", 0, 0)
sLeep(500)
AntiAFKCONF()
else
MouseMove ($waypoint10[0], $waypoint10[1])
sLeep(1000)
MouseClick ("right")
sLeep(1000)
MouseClick ("right")
sLeep(1000)
MouseClick ("right")
TooLTip("Moving...", 0, 0)
sLeep(10000)
TooLTip("Navigation ends", 0, 0)
sLeep(2000)
TooLTip("Activating Interface", 0,0)
sEnd("{alt} {Y}")
sLeep(2000)
TooLtip("Starting ANTI-AFK Mode", 0, 0)
sLeep(500)
AntiAFKCONF()
EndIf
EndIf
EndFunc
func AntiAFKCONF()
while 1=1
$Button = PixelSearch(400, 150, 1000, 300, 0xE01308, 100)
If Not @error Then
MouseMove ($Button[0], $Button[1])
ToolTip("Died - Respawning", 0, 0)
sleep (2000)
MouseClick ("left")
ToolTip("Waiting...", 0, 0)
Sleep (10000)
EndIf
If $Resolution = "Z" then
$Button = PixelSearch(, 600, 1000, 690, 0x670000, 10)
If Not @error Then
MouseMove ($Button[0], $Button[1])
ToolTip("Battleground has ended - Restarting Process", 0, 0)
sleep (2000)
MouseClick ("left")
sleep (8000)
Start()
EndIf
EndIf
If $Resolution = "Y" then
$Button = PixelSearch(,860, 730, 860, 0x670000, 10)
If Not @error Then
MouseMove ($Button[0], $Button[1])
ToolTip("Battleground has ended - Restarting Process", 0, 0)
sleep (2000)
MouseClick ("left")
sleep (8000)
Start()
EndIf
EndIf
If $Resolution = "X" Then
$Button = PixeLSearch(,860, 730, 860 , 0x670000, 10)
If Not @error Then
MouseMove ($Button[0], $Button[1])
ToolTip("Battleground has ended - Restarting Process", 0, 0)
sleep (2000)
MouseClick ("left")
sleep (8000)
Start()
EndIf
EndIf
If $Resolution = "C" then
$Button = PixeLSearch(,860,730,860, 0x670000, 10)
If Not @error Then
MouseMove ($Button[0], $Button[1])
ToolTip("Battleground has ended - Restarting Process", 0, 0)
sleep (2000)
MouseClick ("left")
sleep (8000)
Start()
EndIf
EndIf
ToolTip("BG not over. Starting Anti-AFK Script", 0, 0)
Sleep (2000)
Send ("{SPACE}")
Sleep (1000)
For $i = 29 to 1 Step -1
ToolTip("Waiting to repeat.", 0, 0)
sleep (500)
ToolTip("Waiting to repeat..", 0, 0)
sleep (500)
ToolTip("Waiting to repeat...", 0, 0)
sLeep (500)
ToolTip("Waiting to repeat....", 0, 0)
Sleep (500)
Next
WEnd
EndFunc