Jump to content

Anti-AFK Script


Recommended Posts

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. :]

Link to comment
Share on other sites

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?

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...