Stealthbot>gn, gn spaming Options

[DgT-CrO_warrior]

can someone make script that spam gn in channel like this

i type .gn ap222
then bot spam Host>>>who said gn
GN>>>>>>Ap222<<<<<GN

and can u make the number of tymes he will repeat it
like .gn ap222 5 then he makes
GN>>>>>>Ap222<<<<<GN
GN>>>>>>Ap222<<<<<GN
GN>>>>>>Ap222<<<<<GN
GN>>>>>>Ap222<<<<<GN

[FoxInTheBox]

Part 1 can easily be done with a custom command

[DotA-Angel]

Didnt used this script for some time. I think it`s what you are looking for.

CODE
'gnsearch
'0.1

Public boottime
Private GnStr()
Private GnOwner()
Private GnTime()
Private exptime

Sub gnsearch_Event_Load()
ReDim GnStr(11)
ReDim GnOwner(11)
ReDim GnTime(11)
boottime = Time
For i = 1 To 10
GnStr(i) = "not available"
GnOwner(i) = "noone"
GnTime(i) = boottime
Next
exptime = TimeValue("00:15:00")
scTimer.Interval = 1000
scTimer.Enabled = True
End Sub

Sub gnsearch_AddGn(gamename, owner)

If GnStr(1) = gamename Then '//Check if GN with that name is available
    GnTime(1) = Time
    Exit Sub
End If
For i = 2 To 10
    If GnStr(i) = gamename Then '//Check if GN with that name is available and sort accordingly
        j = i
        While j > 1
            GnStr(j) = GnStr(j - 1)
            GnOwner(j) = GnOwner(j - 1)
            GnTime(j) = GnTime(j - 1)
            j = j - 1
        Wend
        GnStr(1) = gamename
        GnOwner(1) = owner
        GnTime(1) = Time
        Exit Sub
    End If
Next
j = 10
While j > 1
    GnStr(j) = GnStr(j - 1)
    GnOwner(j) = GnOwner(j - 1)
    GnTime(j) = GnTime(j - 1)
    j = j - 1
Wend
GnStr(1) = gamename
GnOwner(1) = owner
GnTime(1) = Time
End Sub

Sub gnsearch_ClearGn(index)
i = index
While i < 10
    GnStr(i) = GnStr(i + 1)
    GnOwner(i) = GnOwner(i + 1)
    GnTime(i) = GnTime(i + 1)
    i = i + 1
Wend
GnStr(10) = gamename
GnOwner(10) = owner
GnTime(10) = boottime
End Sub

Sub gnsearch_PrintGn(index)
s = "(" & (index - 1) & ") gn: " & GnStr(index) & " (by " & GnOwner(index) & " at " & GnTime(index) & " )"
AddQ (s)
End Sub

Sub gnsearch_WhispGn(index, user)
s = "/w " & user & " (" & (index - 1) & ") gn: " & GnStr(index) & " (by " & GnOwner(index) & " at " & GnTime(index) & " )"
AddQ (s)
End Sub


Sub gnsearch_Event_UserTalk(Username, Flags, Message, Ping)
If Left(Message, 4) = ".gn:" Then
    Call GetDBEntry(Username, myAccess, myFlags)
    If myAccess >= 10 Then
        Call gnsearch_AddGn(Mid(Message, 6), Username)
    End If
End If
If Left(Message, 4) = ".gn?" Then
    If myAccess >= 1 Then
    gnsearch_PrintGn (1)
    gnsearch_PrintGn (2)
    gnsearch_PrintGn (3)
    End If
End If
End Sub

Sub gnsearch_WhisperTalk(Username, myAccess, Message)
If Left(Message, 4) = ".gn:" Then
    If myAccess >= 10 Then
        Call gnsearch_AddGn(Mid(Message, 6), Username)
    s = "( by " & Username & ") gn: " & Mid(Message, 6)
    AddQ (s)
    End If
End If
If Left(Message, 4) = ".gn?" Then
    If myAccess >= 1 Then
    Call gnsearch_WhispGn(1, Username)
    Call gnsearch_WhispGn(2, Username)
    End If
End If
End Sub


Sub gnsearch_Event_WhisperFromUser(Username, Flags, Message)
dim acc, fl
 Call GetDBEntry(Username, acc, fl)
 Call gnsearch_WhisperTalk(Username, acc, Message)
End Sub

Sub gnsearch_scTimer_Timer()
For i = 1 To 10
    If GnOwner(i) <> "noone" Then
        If GnTime(i) + exptime < Time Then
            Call gnsearch_ClearGn(i)
        End If
    End If
Next
End Sub 

[Fallen-God]

I am afraid that I have no way of testing this script, but I am pretty sure it has no errors:

CODE
'MRS
'1.0
'Message Repeat Script:Fallen-God
'&Command: <Trigger> <Number> <Message>
'E.g. !GN 3 Battle Tanks!!

Private Const MRS_Command = "GN"          'The command to make the bot say your message as many times as specified
Private Const MRS_Access = 15             'The ammount of access needed to use the command

Sub MRS_Event_UserTalks(Username, Flags, Message, Ping)
   MRS_ProcessInput Username, Message, 1
End Sub

Sub MRS_Event_WhisperFromUser(Username, Flags, Message)
   MRS_ProcessInput Username, Message, 3
End Sub

Sub MRS_ProcessInput(Username, Message, DspId)

   GetDBEntry Username, Access, Flags
   If Access < MRS_Access Then Exit Sub
   
   If LCase(Split(Message)(0)) = BotVars.Trigger & LCase(MRS_Command) Then
      Msg = Split(Message," ", 3)
   Else
      Exit Sub
   End If
   
   If Not IsNumeric(Msg(1)) Then
      AddQ "Invalid Syntax. Example: " & BotVars.Trigger & MRS_Command & " 4 DotA -APEM!"
      Exit Sub
   End If
   
   If Msg(1) > 7 Then
      Dsp DspId, "The number of repeats you specified is too great. Try using a lower number.", Username, VBRed
      Exit Sub
   End If
   
   N = 0
   Do Until N = Msg(1)
      AddQ "GN>>>>>> " & Msg(2) & " <<<<<<GN"
      N = N + 1
   Loop

End Sub