Originally Posted by
Khyy
Use this source and advance it. Make it type messages something in district, random little things. Maybe like "noobs!" or some shit so you can prove you were not away but just choosing not to play in missions.
It's a simple addon to prevent such occasions. Even go more advanced and have a list of sayings that it randomizes and picks every X amount of seconds.
Done :P
http://www.autoitscript.com/site/autoit/downloads/
Use autoit to compile this source code.
Code:
#RequireAdmin
#include <file.au3>
#Region ;Script Settings
Global $PhrasesFile = "Phrases.txt"
;File that holds your phrases.
Global $Sleep1 = 5
Global $Sleep2 = 15
;Controls first sleep timer, with the timer being a random number from Sleep1 to Sleep2, in seconds
Global $Sleep3 = 0
Global $Sleep4 = 10
;Controls second sleep timer, with the timer being a random number from Sleep3 to Sleep4, in seconds
Global $Sleep5 = 5
Global $Sleep6 = 15
;Controls third sleep timer, with the timer being a random number from Sleep5 to Sleep6, in seconds
Global $RandomAddition1 = 1
Global $RandomAddition2 = 3
;Controls the adder that adds to the "ForceRandomPhrase" variable
Global $TriggerNumber = 6
;When the adder makes the "ForceRandomPhrase" variable greater than this number, a random phrase is typed in game.
#EndRegion ;Script Settings
#Region ;Main
Global $ForceRandomPhrase
Global $Paused
Global $Phrases[1]
_FileReadToArray($PhrasesFile, $Phrases)
HotkeySet("`", "_TogglePause")
_TogglePause()
While 1
Sleep(Number(Random($Sleep1, $Sleep2, 1) * 1000))
Send("k")
Send("b")
Sleep(Number(Random($Sleep3, $Sleep4, 1) * 1000))
Send("{Enter}/abandonmission{Enter}")
Sleep(Number(Random($Sleep5, $Sleep6, 1) * 1000))
Switch Number(Random(1, 4, 1))
Case 1
Send("w")
Case 2
Send("a")
Case 3
Send("s")
Case 4
Send("d")
EndSwitch
_RandomPhrase()
WEnd
#EndRegion ;Main
#Region ;Functions
Func _RandomPhrase()
$ForceRandomPhrase += Number(Random($RandomAddition1, $RandomAddition2))
If $ForceRandomPhrase > Number($TriggerNumber) Then
Send("{Enter}/d " & $Phrases[Random(1, $Phrases[0], 1)] & "{Enter}")
$ForceRandomPhrase = 0
EndIf
EndFunc ;==>_RandomPhrase
Func _TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('AFK Bot is paused', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>_TogglePause
#EndRegion ;Functions
Input "Random Phrases" in a text file named "Phrases.txt" and place it in the same folder as the script.
`(tilde key) to pause
Bot performs the following in order:
Waits 5 to 15 seconds at random
presses k (ready button)
presses b (Backup button)
waits 0 to 10 seconds at random
hits enter (open chat), types /abandonmission, hits enter (send command)
waits 5 to 15 seconds
moves in a random direction (W,A,S,D keys)
Spits out a random phrase, dictated as follows:
"Force Random Phrase" Variable + Random Number from 1-3
If "Force Random Phrase" variable is greater than 6 (20 to 240 seconds) then type random phrase from file and "Force Random Phrase" variable reset to 0
The script timers and trigger value can be changed by editing the variables in the "Script Settings" region.
Note: This will not bypass the "GET PREMIUM NOW" popup. Ill work on that later.
