Code:
AutoItSetOption ( "GUIOnEventMode",1 )
HotKeySet("{Scrolllock}","Stop")
HotKeySet("{Pause}","Pause")
#include <GUIConstants.au3>
Dim $Pause
$GUI = GUICreate("Hot Stacker v1.0", 400, 600, -1, -1)
WinsetOnTop("Hot Stacker v1.0", "",1)
GUICtrlCreateLabel("Hot Stacker v1.0", 150, 10)
GUICtrlCreateLabel("INSTRUCTIONS", 150, 80)
GUICtrlCreateLabel("1. Input the name of your first desired tank to have HOTS stacked on.", 10, 105)
GUICtrlCreateLabel("2. Input the name of your second desired tank to have HOTS stacked on.", 10, 130)
GUICtrlCreateLabel("3. Click the 'Start Bot' Button to start this bot.", 10, 155)
GUICtrlCreateLabel("Created By:Andrew N., Muat of MMOwned", 110, 260)
GUICtrlCreateLabel("This bot is intended for use by a druid.", 120, 290)
GUICtrlCreateLabel("I do not take any liability for your account being banned and/or suspended from the",0, 320)
GUICtrlCreateLabel("use of this program. If it does get banned or suspended, your shit out of luck :P", 1, 340)
$First = GUICtrlCreateInput("Target 1's Name", 150, 180 , 100 , 25 , 1)
$Second = GUICtrlCreateInput("Target 2's Name", 150, 210 , 100 , 25 , 1)
$StartBot = GUICtrlCreateButton("Start Bot", 155, 575, 100, 25)
GUICtrlSetOnEvent($StartBot, "bot")
$Lifebloombl = GUICtrlCreatePic(@ScriptDir & "\Lifebloom.gif",25,530, 64,64)
$Lifebloomtr = GUiCtrlCreatePic(@ScriptDir & "\LIfebloom.gif", 330, 10, 64, 64)
$Rejuvenationtl = GUICtrlCreatePic(@ScriptDir & "\Rejuvenation.gif", 25, 10, 64,64)
$Rejuvenationbr = GUICtrlCreatePic(@ScriptDir & "\Rejuvenation.gif", 330, 530, 64, 64)
$Treeoflifebm = GUICtrlCreatePic(@ScriptDir & "\Tree.gif", 175, 400, 64, 64)
GuiSetState(@SW_Show)
While 1
Wend
Guisetstate($StartBot,"Bot")
;Functions
Func Stop()
MsgBox(0, "Quitting Hot Stacker v1.0", "Now Quitting Hot Stacker v1.0", 1)
Exit
EndFunc
Func Pause()
if $Pause = 1 Then
global $Pause = 0
Else
global $Pause = 0
While $Pause = 1
Sleep(1000)
WEnd
EndIf
EndFunc
Func Bot()
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
Sleep(3000)
$i = 1
Do
Send("/target $First{Enter}")
Send("5")
Sleep(1510)
Send("/target $Second{Enter}")
Send("5")
Sleep(1510)
Send("/target $First{Enter}")
Send("5")
Sleep(1510)
Send("/target $Second{Enter}")
Send("5")
Sleep(1510)
Send("/target $Second{Enter}")
Send("5")
Sleep(1510)
Send("/target $First{Enter}")
Send("5")
Sleep(1510)
Send("/target $Second{Enter}")
Send("5")
Sleep(1510)
Send("/target $First{Enter}")
Send("3")
Sleep(1510)
Send("/target $Second{Enter}")
Send("3")
Sleep(1510)
Until $i > 1
EndFunc
Where it says $First and $Second in the Function named bot is where I need the inputs to be placed.