First - WoW Exploit Community 2012 recommendations!

  1. The BEST WOW Guides Available today. E.G: Leveling & Loremaster Guide,Vanity Pets & Mounts Guide, Dailies & Events Guide,Titles, Rep, & Macros Guide and more!) Try it FREE Now

  2. Great Video Guide: "How to Level Your World of Warcraft Character Solo From Level 1 to 90 The FASTEST Way Possible?"

  3. Sorry for not updating the site but We don't have time to this. We have decided to sell it. This site is for sale! first come first served- contact us: sales @ dtheatre.com


Just compile or run whit autoit then click setup go to wow
put your mouse over the 1 press tab press ok 2 tab ok (for the 4 steps)
then select up to 3 BG put Start and go to sleep

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

1 Comment so far »

  1. by Griffin, on February 3 2010 @ 3:37 pm

     

    *****tState(@SW_SHOW) doesn’t work, GUISetState(@SW_SHOW) does.

Comment RSS · TrackBack URI

Leave a comment

Name: (Required)

eMail: (Required)

Website:

Comment:

 

WoW Booty Bay

Remember, help yourself to our guides and help keep our emulation server up and running so we can continue to test the newest hacks and exploit the freshest loopholes!

Resources