Anti-AFK Honor Leech Bot (AutoIt)

[Subset]

Credits to freehand for making this much better and less noticable!

Warning. Your experience may differ due to your battlegroup Please do not complain because you are being reported AFK.
Important things to know:
Keybounds must be:
'1' - Macro 1
'2' - Macro 2
'3' - Macro 3

AutoBG ADDON IS REQUIRED!!

Here is the code for script:

HotKeySet("{F5}", "TogglePause")

Global $Paused, $WinTitle ='World of Warcraft'
TogglePause()

ControlSend($WinTitle, "", "", "4", 1) ;Runs macro to start AutoBg. Only needs too press it once, that's why it's before the while loop.
Sleep(1000)
While 1
If WinExists($WinTitle) Then
ControlSend($WinTitle, "", "", "1", 1)
Sleep(7000)
$repeat = 0
While $repeat < 5
ControlSend($WinTitle, "", "", "2", 1)
Sleep(1000)
$repeat = $repeat + 1
WEnd
ControlSend($WinTitle, "", "", "3", 1)
Sleep(1000)
Else
MsgBox(0, "WoW Client not found!", "Have you looked under the bed?" &@CRLF& "TRY HARDER", "", "")
Exit
EndIf
WEnd

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Paused (Nagics BG Bot Thanks Freehand), F5 to resume.',0,0)
WEnd
ToolTip("")
EndFunc

Func Terminate()
Exit 0
EndFunc

Thank you Freehand!

After doing so, compile, make these three macros:
::Macro 1::

/script AcceptBattlefieldPort(1,1) 
/script AcceptBattlefieldPort(2,1)
/cast [nomounted] MountNameHere
/targetfriendplayer [nodead]
/follow

::Macro 2::

/targetenemyplayer

::Macro 3::

/cast [harm] InstantCastRangedDamagingSpell

::Macro 4::

/autobg max 2
/autobg marks

Bind Macro 1 to Key Bind 1.
Bind Macro 2 to Key Bind 2.
Bind Macro 3 to Key Bind 3.
Bind Macro 4 to Key Bind 4.

When you are ready to run it, run the .exe you made after compiling it and run it as Adminstrator. Press F5 to start. If you did it right, it should queue you up for whatever settings you have it on.

AutoBG marks mode will automatically queue you up for the battleground in which you need more of those marks to keep par with the others.

Example: Say you have 50 SotA marks, 50 AV marks, 42 IoC marks, 22 WSG marks, 11 AB marks, and 39 EotS marks.
It will queue you for AB till you have 22 or more, then for both of those till you have 39 or more, then EotS till you have 42 or more of each, then when it is 50, it will alternate which BG to do. Very good if people think you are AFKing in the same BG, you can randomize it.

Happy Honor Leeching!

[gononono64]

This needs some work... first off what do the spells do if you never leave the original spot of the battle ground... for example if im in av i dont need any spells because i will never leave the cave... second what makes me anti afk... there was not even a jump button in there... (which i dont think works anymore)

sorry dude nice try

[Multitask]

this wont work, you will be flagged afk within a minute and booted. its pretty impossible to leech honor now. you need to get into combat.

[ferodod]

Better way.

Selotape cat to a mop hanging from the ceiling, place cat on keyboard whilst in AV, hang chicken just out of reach of cat, cat swings back and forth running on keyboard to get chicken and hits keys to make you move and anti afk.

Either that, or get a wife and tell her to do it ¬_¬.

[Subset]

Well, I am doing it now on another computer, doing Strand (no one reports and you get some HKs) and I haven't been booted out of any. Maybe your battlegroup is made up of baddies.

[Subset]

Editted. Closed Reply

[Robske]

Either that, or get a wife and tell her to do it ¬_¬.

Computer aint in the kitchen...

THIS IS NOT A BOT
ITS A BACKGROUND SCRIPT/PROGRAM.
ITS MADE TO KEEP YOU OUT OF AFK STATUS AND REQUEUE.
ITS NOT MADE TO MOVE YOU AROUND.

And a useless one at that, the only thing that this will give you is a few inactive debuffs and a 3 hour suspension.

[Subset]

Maybe this doesn't work for your battlegroup. No one really cares about it, theres always people running this on my battlegroup.

[Eddie94]

Guys,Guys,guys this is working perfectly and i like that u made this bot cause what makes me anti-afk is an concecration and i dont even get debuffed cause concecration makes me into combat someway so thumbs up for this one!

[weaverofdreams]

Is there a way to make this so it will only run for a certain amount of time?

[Romulis2000]

i miss Flos bot

[drunreal]

Is there a way to make this so it will only run for a certain amount of time?

Sure there is use TimerInit() and TimerDiffer()

[Subset]

Updated for more options and functions.

[Eddie94]

Im not gonna test this update YET, i still like the first one. I don't really understand why people complains so much, this script is goodworking,simple and effective as it can be scripted. (You can use it minimized WOOOOHOOOOOOOOO! BIG +!)

Ive used this since it was up here on mmowned and player says ull get debuffed and get booted maybe a report-afk i can tell you whenever i look at the chat nothing is about me being afk just cursewords against each other for being ''noobs'' in bg. I don't think people react like reporting ppl who stands clearly still, they think ''they will get booted automatic'' and thats true but here comes (button 2 spell) i use concecration and that is tha bomb!

Look at first versions macro its perfect i just made it more realative by add /cast Divine plea (restores 25% mana)

(MACRO)
/script JoinBattlefield(0)
/script AcceptBattlefieldPort(1,1)
/script RepopMe()
/cast divine plea <------ added


so it joins BG1 and pop divine plea#1 2# It uses concecration (aoe) making me not combated but still it works (repeats)
________________________________________________________________________________ ____________________________

Good work m8 Keep it up!

[freehand]

The multiple bg's thing is awesome. I changed it up a bit though

HotKeySet("{F5}", "TogglePause")

Global $Paused, $WinTitle ='World of Warcraft'
TogglePause()

While 1
If WinExists($WinTitle) Then
ControlSend($WinTitle, "", "", "1", 1)
Sleep(15000)
Else
MsgBox(0, "WoW Client not found!", "Have you looked under the bed?" &@CRLF& "TRY HARDER", "", "")
Exit
EndIf
WEnd

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Paused (AutoRun/TurnInMarks BG Bot), F5 to resume.',0,0)
WEnd
ToolTip("")
EndFunc

Func Terminate()
Exit 0
EndFunc

Put this macro in slot 1 on your bar

/autobg max 1
/autobg marks
/script AcceptBattlefieldPort(1,1)
/cast [nomounted] MountNameHere
/targetfriend
/follow

It will mount up if you are not. and it will follow the nearest person to you, so you will actually move around and not sit in the gy.

hope it helps someone