Booty Bay WoW Exploit Community

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

DOWNLOAD [Source Code Included]
RapidShare: Easy Filehosting

If you run into errors then try this source code here, simply compile it with autoit:

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

_Main()

Func _Main()
    Local $RunWoW, $StartBot, $Helpme, $Exitplease, $msg, $PATH

    GUICreate("Trollin's Honor Bot V0.2 BETA", 390, 80)

    GUICtrlCreateLabel("Please select Help if this is your first time using this bot!", 30, 10)
    $RunWow = GUICtrlCreateButton("Run WoW", 10, 50, 70, 20)
    $StartBot = GUICtrlCreateButton("Start Botting!", 110, 50, 70, 20)
    $Helpme = GUICtrlCreateButton("Help", 210, 50, 70, 20)
    $Exitplease = GUICtrlCreateButton("Exit", 310, 50, 70, 20)

    GUISetState()

    Do
        $msg = GUIGetMsg()

        Select
            Case $msg = $RunWow
            $PATH = FileSelectFolder("Select Your World Of Warcraft Folder","",1)

        If FileExists($PATH & "\WoW.exe") Then
            MsgBox(4096, $PATH & "\WoW.exe", "WoW.exe exists in " & $PATH & ", starting WoW")
            FileCreateShortcut($PATH & "\WoW.exe", @DesktopDir & "\WoW.lnk")
            Sleep(3000)
            ShellExecute("WoW.lnk", @DesktopDir)
            Else
            MsgBox(4096, $PATH & "\WoW.exe", "WoW.exe does not exist" & $PATH & ", aborting.")
        EndIf

            Case $msg = $StartBot
                MsgBox(0, "Starting bot..", "Press OK to proceed.")
                Sleep("1000")
                WinActivate("World of Warcraft")
                WinWaitActive("World of Warcraft")

                While 1

                    Send("{w}")
                    Sleep("8000")
                    Send("{s}")
                    Send("{d}")

                    WEnd

            Case $msg = $Helpme
                MsgBox(0, "Help document..", ">> Run WoW -- This starts World of Warcraft, but not the bot" & @CRLF & ">>Start Botting! -- This opens World of Warcraft up, and starts the botting!" & @CRLF & ">>Exit -- Closes program..")

            Case $msg = $Exitplease
                MsgBox(0, "Closing Trollin's Honor Bot V0.2 BETA", "Thanks for using my bot!")
            Case $msg = $GUI_EVENT_CLOSE
                MsgBox(0, "Closing Trollin's Honor Bot V0.2 BETA", "Thanks for using my bot!")
        EndSelect
    Until $msg = $GUI_EVENT_CLOSE Or $msg = $Exitplease
EndFunc