david-jane

Im Here To Share my Updated Spam Messager, I hope This will Help Some one Else Out there...
- I have Fixed random things.
Should Run a lot Better!
Here Is the Scrip :-)
CODE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;; Hot Keys;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
HotKeySet("{End}", "Terminate")
$Paused = HotKeySet("{PAUSE}", "TogglePause")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Opt("SendKeyDelay", 100)
Opt("SendKeyDownDelay", 100)

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('SpamBot Is "Paused"',0,0)
WEnd
EndFunc
MsgBox(4096, "Attention", " Run Guild Wars First, Get in Town and then Press Ok...")
$Spam = InputBox("MessageToSpam", "Edit The Text Below For Your Spam!", "*Guild Wars Spam Bot*,Creator:Evil_Elf")
MsgBox(4096, "~~Hot Keys!~~", " You Should Best Read this to know the Keys. End Key is Terminate, To Pause The Program Press Pause, Break Key. Have Fun! ")

WinSetState("Guild Wars", "", @SW_MAXIMIZE)
Sleep(3000)
WinSetState("Guild Wars", "", @SW_MINIMIZE)
Local $Timer = TimerInit()
WinActivate("Guild Wars")
While 1
Sleep(20000)
If TimerDiff($Timer) > 10000 Then
$Timer = TimerInit()
TrayTip ( "SpamMessageUpDate", "Message about to be sent in 5MoreSeconds.", 20)
Sleep(5000)
ControlSend("Guild Wars", "", "", '{Enter}')
Sleep(1000)
ControlSend("Guild Wars", "", "",$Spam)
Sleep(25)
ControlSend("Guild Wars", "", "", '{Enter}')
TrayTip ( "SpamMessageUpDate", "~Message Sent!~", 20)
EndIf
Sleep(30000)
WEnd
Exit 0

Func Terminate()
Exit 0
EndFunc

Here is a Rar File, Hope you Injoy!
Leave a little Feed back here if it helps at all..