Booty Bay WoW Exploit Community

This script will join bg an avoid going afk(dont move dont do anithing else)
during this week will add waypoints an other funcionts

you need an addon that autojoin/leave BG and release spirit(TB_AutoBG or the old pirox addon from his bot)

Code:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <File.au3>

$Battlepad = GUICreate("Battlepad", 238, 164, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_SYSMENU, $WS_DLGFRAME, $WS_POPUP, $WS_GROUP, $WS_CLIPSIBLINGS))
$Tab1 = GUICtrlCreateTab(5, 5, 225, 153, $TCS_FIXEDWIDTH)
$TabSheet1 = GUICtrlCreateTabItem("Main")
$Group1 = GUICtrlCreateGroup("Profile", 9, 30, 130, 120)
$List1 = GUICtrlCreateList("", 14, 45, 121, 32)
GUICtrlSetData(-1, "Alliance|Horde")
$List2 = GUICtrlCreateList("", 14, 75, 121, 71, BitOR($LBS_MULTIPLESEL, $WS_BORDER))
GUICtrlSetData(-1, "Alterac Valley|Warsong Gulch|Arathi Basin|Eye of the Storm|Strand of the Ancients ")
$Group2 = GUICtrlCreateGroup("", 139, 30, 85, 120)
$Button1 = GUICtrlCreateButton("Start", 144, 45, 75, 20, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Stop", 144, 65, 75, 20, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Addon", 144, 85, 75, 20, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Config", 144, 105, 75, 20, $WS_GROUP)
$Button5 = GUICtrlCreateButton("Exit", 144, 125, 75, 20, $WS_GROUP)
*****tState(@SW_SHOW)

If Not FileExists("Config.ini") Then
	_FileCreate("Config.ini")
EndIf

Init()
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $Button1
			DoBoT()
		Case $Button2
		Case $Button3
		Case $Button4
			Config()
		Case $Button5
			Exit
	EndSwitch
WEnd

Func Config()
	If SetupMsg("BG Tab", "") Then
		While 1
			If _IsPressed("09", DllOpen("user32.dll")) Then
				IniWrite("Config.ini", "COORDS", "BG", MouseGetPos(0) & "," & MouseGetPos(1))
				ExitLoop
			EndIf
		WEnd
	EndIf
	If SetupMsg("BG Panel", "") Then
		While 1
			If _IsPressed("09", DllOpen("user32.dll")) Then
				Local $tlbg = MouseGetPos()
				ExitLoop
			EndIf
		WEnd
	EndIf
	If SetupMsg("BG Panel", "") Then
		While 1
			If _IsPressed("09", DllOpen("user32.dll")) Then
				Local $brbg = MouseGetPos()
				ExitLoop
			EndIf
		WEnd
		IniWrite("Config.ini", "COORDS", "BGSel", $tlbg[0] + ($brbg[0] - $tlbg[0]) / 2 & "," & $tlbg[1] + ($brbg[1] - $tlbg[1]) / 10)
		IniWrite("Config.ini", "COORDS", "BGOff", ($brbg[1] - $tlbg[1]) / 5)
	EndIf
	If SetupMsg("Join Button", "") Then
		While 1
			If _IsPressed("09", DllOpen("user32.dll")) Then
				IniWrite("Config.ini", "COORDS", "Join", MouseGetPos(0) & "," & MouseGetPos(1))
				ExitLoop
			EndIf
		WEnd
	EndIf
EndFunc   ;==>Config

Func FindWow()
	If Not WinExists("World of Warcraft", "") Then
		$iMsgBoxAnswer = MsgBox(21, "Window Not Found", "Could not find World of Warcraft game window.")
		Select
			Case $iMsgBoxAnswer = 4 ;Retry
				FindWow()
			Case $iMsgBoxAnswer = 2 ;Cancel
		EndSelect
	Else
		If Not WinActive("World of Warcraft", "") Then WinActivate("World of Warcraft", "")
		WinWaitActive("World of Warcraft", "")
	EndIf
EndFunc   ;==>FindWow

Func SetupMsg($title, $text)
	$iMsgBoxAnswer = MsgBox(65, $title, $text)
	Select
		Case $iMsgBoxAnswer = 1 ;OK
			FindWow()
			Return 1
		Case $iMsgBoxAnswer = 2 ;Cancel
			Return 0
	EndSelect

EndFunc   ;==>SetupMsg

Func Sel()
	Global $sItems
	Local $aItems = _GUICtrlListBox_GetSelItems($List2)
	For $iI = 1 To $aItems[0]
		If $iI > 1 Then $sItems &= ","
		$sItems &= $aItems[$iI]
	Next
	Return $sItems
EndFunc   ;==>Sel

Func Antiafk()
	Local $Keys[6]
	$Keys[0] = "C"
	$Keys[1] = "L"
	$Keys[2] = "K"
	$Keys[3] = "P"
	$Keys[4] = "Y"
	$Keys[5] = "{SPACE}"
	$i = Random(0, 5, 1)
	Sleep(1000)
	Send($Keys[$i])
	Sleep(50)
	Send($Keys[$i])
	Sleep(1000)
EndFunc   ;==>Antiafk

Func Honor()
	Send("h")
	MouseMove($BGpos[1], $BGpos[2])
	MouseDown("left")
	Sleep(50)
	MouseUp("left")
	Sleep(50)
EndFunc   ;==>Honor

Func DoBoT()
	init()
	$Timer = TimerInit()
	FindWow()
	JoinBG()
	Sleep(1000)
	FindWow()
	Antiafk()
	While 1
		If TimerDiff($Timer) > 60000 Then
			FindWow()
			JoinBG()
			Sleep(1000)
			FindWow()
			Antiafk()
			$Timer = TimerInit()
		EndIf
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $Button2
				ExitLoop
			Case $Button5
				ExitLoop
				Exit
		EndSwitch
	WEnd
EndFunc   ;==>DoBoT

Func init()
	Global $BGpos = StringSplit(IniRead("Config.ini", "COORDS", "BG", ""), ",")
	Global $BGsel = StringSplit(IniRead("Config.ini", "COORDS", "BGSel", ""), ",")
	Global $BGoff = IniRead("Config.ini", "COORDS", "BGOff", "")
	Global $JoinPos = StringSplit(IniRead("Config.ini", "COORDS", "Join", ""), ",")
	Global $BGToJoin = StringSplit(Sel(), ",")
EndFunc   ;==>init

Func JoinBG()
	For $i = 1 To $BGToJoin[0]
		Honor()
		Switch $BGToJoin[$i]
			Case 0
				AV()
			Case 1
				WSG()
			Case 2
				AB()
			Case 3
				EOTS()
			Case 4
				SOTA()
		EndSwitch
		MouseMove($JoinPos[1], $JoinPos[2])
		MouseDown("left")
		Sleep(50)
		MouseUp("left")
		Sleep(50)
		Send("h")
		Sleep(1000)
	Next
	Sleep(1000)
EndFunc   ;==>JoinBG

Func AV()
	MouseMove($BGsel[1], $BGsel[2])
	MouseDown("left")
	MouseUp("left")
	Sleep(1000)
EndFunc   ;==>AV

Func WSG()
	MouseMove($BGsel[1], $BGsel[2] + $BGoff)
	MouseDown("left")
	MouseUp("left")
	Sleep(1000)
EndFunc   ;==>WSG

Func AB()
	MouseMove($BGsel[1], $BGsel[2] + $BGoff * 2)
	MouseDown("left")
	MouseUp("left")
	Sleep(1000)
EndFunc   ;==>AB

Func EOTS()
	MouseMove($BGsel[1], $BGsel[2] + $BGoff * 3)
	MouseDown("left")
	MouseUp("left")
	Sleep(1000)
EndFunc   ;==>EOTS

Func SOTA()
	MouseMove($BGsel[1], $BGsel[2] + $BGoff * 4)
	MouseDown("left")
	MouseUp("left")
	Sleep(1000)
EndFunc   ;==>SOTA