Anti-AFK Script

[Mordalphus]

Hey everyone, this is my first post. The problem I was having was simple. I play WoW, and WoW is notorious for it's extremely long queues for what are called BattleGrounds. Every five minutes WoW automatically puts an AFK message up, which is fine until a mod I have auto joins a BattleGround for me. It still counts as me joining while AFK, which promptly kicks me out and gives me deserter debuff which prevents me from playing for fifteen minutes. It's annoying, trust me. I was searching around the forums and found many similar posts to the one I'm making now (which is great because I've almost found the answer to my problem). I found this script while browsing.

HotKeySet("{PAUSE}", "Start")

HotKeySet("!{PAUSE}","Quit")

HotKeySet("!{HOME}", "Pause")

WinWaitActive("World of Warcraft")

While 1

Sleep(100)

WEnd

Func Start()

ToolTip('Break started.',0,0)

While 1

ControlSend("World of Warcraft", "", "", "{Space}")

Sleep(Random(120000,240000))

WEnd

EndFunc

Func Pause()

$Paused = NOT $Paused

While $Paused

Sleep(2000)

WEnd

EndFunc

Func Quit()

ToolTip("Ok, exiting...")

Sleep(2000)

Exit

EndFunc

Now this works perfectly, but it isn't exactly what I need. I want to be able to minimize WoW and browse the internet. I'm pretty sure that the problem has to do with these two lines:

WinWaitActive("World of Warcraft")

ControlSend("World of Warcraft", "", "", "{Space}")

I modified it a bit by putting in the ControlSend command, but it didn't help. Any ideas or suggestions? Any would be appreciated. :]

[James]

Use "Send" instead of control send. That should do it.

[Bert]

If he uses send, it will just do the active window. The controlsend will still work, but change WinWaitActive to WinExists. That way it will run without the window needing to have focus.

[Mordalphus]

Thanks for trying to help guys, but unfortunately it still stops working when I alt tab. It gives me the "Break started" tooltip. Here is what I've changed it to:

HotKeySet("{PAUSE}", "Start")

HotKeySet("!{PAUSE}","Quit")

HotKeySet("!{HOME}", "Pause")

WinExists("World of Warcraft")

While 1

Sleep(100)

WEnd

Func Start()

ToolTip('Break started.',0,0)

While 1

ControlSend("World of Warcraft", "", "", "{Space}")

Sleep(Random(120000,240000))

WEnd

EndFunc

Func Pause()

$Paused = NOT $Paused

While $Paused

Sleep(2000)

WEnd

EndFunc

Func Quit()

ToolTip("Ok, exiting...")

Sleep(2000)

Exit

EndFunc

Any other ideas?

[James]

Thanks for trying to help guys, but unfortunately it still stops working when I alt tab. It gives me the "Break started" tooltip. Here is what I've changed it to:

HotKeySet("{PAUSE}", "Start")

HotKeySet("!{PAUSE}","Quit")

HotKeySet("!{HOME}", "Pause")

WinExists("World of Warcraft")

While 1

Sleep(100)

WEnd

Func Start()

ToolTip('Break started.',0,0)

While 1

ControlSend("World of Warcraft", "", "", "{Space}")

Sleep(Random(120000,240000))

WEnd

EndFunc

Func Pause()

$Paused = NOT $Paused

While $Paused

Sleep(2000)

WEnd

EndFunc

Func Quit()

ToolTip("Ok, exiting...")

Sleep(2000)

Exit

EndFunc

Any other ideas?

Above ^^ you don't need the "" when doing send functions with {} either side.

Secure

[malkathorn]

Hey everyone, this is my first post. The problem I was having was simple. I play WoW, and WoW is notorious for it's extremely long queues for what are called BattleGrounds. Every five minutes WoW automatically puts an AFK message up, which is fine until a mod I have auto joins a BattleGround for me. It still counts as me joining while AFK, which promptly kicks me out and gives me deserter debuff which prevents me from playing for fifteen minutes. It's annoying, trust me. I was searching around the forums and found many similar posts to the one I'm making now (which is great because I've almost found the answer to my problem). I found this script while browsing.

HotKeySet("{PAUSE}", "Start")

HotKeySet("!{PAUSE}","Quit")

HotKeySet("!{HOME}", "Pause")

WinWaitActive("World of Warcraft")

While 1

Sleep(100)

WEnd

Func Start()

ToolTip('Break started.',0,0)

While 1

ControlSend("World of Warcraft", "", "", "{Space}")

Sleep(Random(120000,240000))

WEnd

EndFunc

Func Pause()

$Paused = NOT $Paused

While $Paused

Sleep(2000)

WEnd

EndFunc

Func Quit()

ToolTip("Ok, exiting...")

Sleep(2000)

Exit

EndFunc

Now this works perfectly, but it isn't exactly what I need. I want to be able to minimize WoW and browse the internet. I'm pretty sure that the problem has to do with these two lines:

WinWaitActive("World of Warcraft")

ControlSend("World of Warcraft", "", "", "{Space}")

I modified it a bit by putting in the ControlSend command, but it didn't help. Any ideas or suggestions? Any would be appreciated. :]

I belive what you are asking has been done. here is a link to the script.

http://www.edgeofnowhere.cc/viewtopic.php?t=305097

[Mordalphus]

I belive what you are asking has been done. here is a link to the script.

http://www.edgeofnowhere.cc/viewtopic.php?t=305097

Thanks a lot, I'll try it out.

Edited December 31, 2006 by Mordalphus

[Nlaak]

I don't know if i'm being retarded or what. I downloaded AutoIt 3 today (i used 1 & 2 in past years) and tried making a simple macro for WoW. Seems no matter what HotKeySet() I do, none work, not even the PAUSE from the above scripts. Am I missing something?

HotKeySet("{PAUSE}", "InstantAttack")

If Not WinActive("World of Warcraft","") Then WinActivate("World of Warcraft","")

WinWaitActive("World of Warcraft","")

func InstantAttack()

controlsend("World of Warcraft", "", "", "{CTRLDOWN}1{CTRLUP}")

controlsend("World of Warcraft", "", "", "3")

Sleep(2)

controlsend("World of Warcraft", "", "", "4")

Sleep(2)

controlsend("World of Warcraft", "", "", "5")

Sleep(2)

EndFunc