Problems:
1. You have to have WoW selected while running this, which means no pr0n while making gold. (this problem is easily fixable but im too tired to find the code to do it)
2. I made this in like 30 mins so the code is kinda messy and really simplistic I.E. no random timer for when it clicks 1 (sorry about that for the people that are paranoid, but again im kinda tired and cant fix it right now)
3. You cant choose the hotkeys or the number it spams... (thats because idk how to do that... im a newb)
4. you have to copy the macro that it says by hand (again im a newb and idk how to make a box with the macro in it so you can just copy and paste)
1. fixed
2. fixed
3. fixed
4. fixed
replace % with $ because the board kills my vars
Code:
if not ProcessExists ( "Wow.exe" ) Then
MsgBox(0,"AH Thingie","Please start WoW first")
Exit
EndIf
InputBox("AH thingie","Make this Macro","/run if (BtmScan.Prompt:IsVisible()) then BtmScan.Prompt.Yes:Click() end","",250,120)
%k=InputBox("AH thingie","Choose the key where you bonded the macro")
MsgBox(0, "AH Thingie", "F8 is to start and stop the program" & @CRLF & "End is to close the program")
hotkeyset("{F8}","Start")
HotKeySet("{End}","terminate")
%WoWClient2 = WinList ("World of Warcraft")
func Start ()
HotKeySet("{F8}","Stop")
while 1
controlSend(%WoWClient2[1][1],"","",%k)
sleep (Random(500,1000,1))
wend
EndFunc
func terminate ()
Exit
endfunc
Func Stop ()
HotKeySet("{F8}","Start")
While 1
sleep(1000)
WEnd
EndFunc
While 1
Sleep(1000)
WEnd