Anti Flood Plugin by T[X]AS

This is a discussion on Anti Flood Plugin by T[X]AS within the Warcraft 3 Hacks, bots and tools board part of the Warcraft 3 forum category; Code: 'Greets '1.0 'By DrOiD dim Activate dim SecsToWisp dim TimeLastMsg Dim Product dim StatArray Sub Greets_event_load() Activate = "on" ...

Page 1 of 2 12 LastLast
Results 1 to 10 of 12
  1. #1
    hendricius's Avatar
    hendricius is offline Administrator

    Array
    Join Date
    Feb 2007
    Location
    Goettingen, Germany
    Posts
    6,311
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    24
    Reputation
    2180

    Anti Flood Plugin by T[X]AS

    Code:
    'Greets
    '1.0
    'By DrOiD
    
    dim Activate
    dim SecsToWisp
    dim TimeLastMsg
    Dim Product
    dim StatArray
    
    Sub Greets_event_load()
      Activate = "on"
      SecsToWisp = 30
    
    End Sub
    
    
    Sub Greets_Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatstring)
      if activate <> "on" then exit sub
      txtSecs = DateDiff("s",TimeLastMsg, now())  
      if txtSecs <= SecsToWisp then
       addchat vbred," DrOiD&#39;s Anti Greets FlooD | Time Last Greet: " & txtSecs
       exit sub
      end if
      Txt = botvars.GreetMsg
      txt = replace (txt,"%0",username)
      txt = replace (txt,"%p",ping)
      txt = replace (txt,"%c",mychannel)
      
     &#39;Get the type game - Warcraft or diferent
     StatArray = Split(OriginalStatstring, " ")
     Product = Left(OriginalStatstring, 4)
    
    
     if product = "3RAW" then	 
       addq "/w *" & username & " " & txt
     else
       addq "/w " & username & " " & txt
     end if
    
      TimeLastMsg = now()
    end sub
    What does it do? It disables Greet Message Spamming by adding a Timer.
    You need to have turned the GreetMessage off in your SB options.

    Don&#39;t give me Reputation. Give it to T[X]as

    You suck. Suck a little less and become a fan on Facebook.

    "D3scene pwns" - Hendrik (PIRATE)

  2. #2
    dil
    dil is offline Newbie
    Array
    Join Date
    Apr 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0

    Re: Anti Flood Plugin by T[X]AS

    Quote Originally Posted by hendricius
    Code:
    &#39;Greets
    &#39;1.0
    &#39;By DrOiD
    
    dim Activate
    dim SecsToWisp
    dim TimeLastMsg
    Dim Product
    dim StatArray
    
    Sub Greets_event_load()
      Activate = "on"
      SecsToWisp = 30
    
    End Sub
    
    
    Sub Greets_Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatstring)
      if activate <> "on" then exit sub
      txtSecs = DateDiff("s",TimeLastMsg, now())  
      if txtSecs <= SecsToWisp then
       addchat vbred," DrOiD&#39;s Anti Greets FlooD | Time Last Greet: " & txtSecs
       exit sub
      end if
      Txt = botvars.GreetMsg
      txt = replace (txt,"%0",username)
      txt = replace (txt,"%p",ping)
      txt = replace (txt,"%c",mychannel)
      
     &#39;Get the type game - Warcraft or diferent
     StatArray = Split(OriginalStatstring, " ")
     Product = Left(OriginalStatstring, 4)
    
    
     if product = "3RAW" then	 
       addq "/w *" & username & " " & txt
     else
       addq "/w " & username & " " & txt
     end if
    
      TimeLastMsg = now()
    end sub
    What does it do? It disables Greet Message Spamming by adding a Timer.
    You need to have turned the GreetMessage off in your SB options.

    Don&#39;t give me Reputation. Give it to T[X]as
    still having problems with that script . I have the plugin system ,but it seems that it just doesn`t spam . When i turn on the bot`s whisper when user join it starts whispering with some errors between whispers (like this user is not logged in) and i am still getting disconected for flooding . Any help ?

  3. #3
    hendricius's Avatar
    hendricius is offline Administrator

    Array
    Join Date
    Feb 2007
    Location
    Goettingen, Germany
    Posts
    6,311
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    24
    Reputation
    2180

    Re: Anti Flood Plugin by T[X]AS

    I had the same problem with the normal Stealthbot version. I am using the Beta-version which is unfortunatley not public. It has "Avoid Banning" included. It gives me 90% less floodding disconnects.
    You suck. Suck a little less and become a fan on Facebook.

    "D3scene pwns" - Hendrik (PIRATE)

  4. #4
    dil
    dil is offline Newbie
    Array
    Join Date
    Apr 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0

    Re: Anti Flood Plugin by T[X]AS

    Quote Originally Posted by hendricius
    I had the same problem with the normal Stealthbot version. I am using the Beta-version which is unfortunatley not public. It has "Avoid Banning" included. It gives me 90% less floodding disconnects.
    i dont see what that has to do with my problem . Anybody make that plugin work ?

  5. #5
    hendricius's Avatar
    hendricius is offline Administrator

    Array
    Join Date
    Feb 2007
    Location
    Goettingen, Germany
    Posts
    6,311
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    24
    Reputation
    2180

    Re: Anti Flood Plugin by T[X]AS

    Quote Originally Posted by dil
    Quote Originally Posted by hendricius
    I had the same problem with the normal Stealthbot version. I am using the Beta-version which is unfortunatley not public. It has "Avoid Banning" included. It gives me 90% less floodding disconnects.
    i dont see what that has to do with my problem . Anybody make that plugin work ?
    1. Do not use the Beta
    2. Deactivate Whispers in your Stealthbot settings.
    You suck. Suck a little less and become a fan on Facebook.

    "D3scene pwns" - Hendrik (PIRATE)

  6. #6
    dil
    dil is offline Newbie
    Array
    Join Date
    Apr 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0

    Re: Anti Flood Plugin by T[X]AS

    Quote Originally Posted by hendricius
    Quote Originally Posted by dil
    Quote Originally Posted by hendricius
    I had the same problem with the normal Stealthbot version. I am using the Beta-version which is unfortunatley not public. It has "Avoid Banning" included. It gives me 90% less floodding disconnects.
    i dont see what that has to do with my problem . Anybody make that plugin work ?
    1. Do not use the Beta
    2. Deactivate Whispers in your Stealthbot settings.
    did that , doesnt work . as i maybe mentioned b4 , it doesnt work properly .

  7. #7
    T[X]AS's Avatar
    T[X]AS is offline Premium Member
    Array
    Join Date
    Feb 2007
    Posts
    126
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    11
    Reputation
    138

    Re: Anti Flood Plugin by T[X]AS

    Try to use this code if u are using a warcraft iii cd-key

    Code:
    &#39;Greets
    &#39;1.0
    &#39;By DrOiD
    
    dim Activate
    dim SecsToWisp
    dim TimeLastMsg
    Dim Product
    dim StatArray
    
    Sub Greets_event_load()
      Activate = "on"
      SecsToWisp = 30
    
    End Sub
    
    
    Sub Greets_Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatstring)
      if activate <> "on" then exit sub
      txtSecs = DateDiff("s",TimeLastMsg, now())  
      if txtSecs <= SecsToWisp then
       addchat vbred," DrOiD&#39;s Anti Greets FlooD | Time Last Greet: " & txtSecs
       exit sub
      end if
      Txt = botvars.GreetMsg
      txt = replace (txt,"%0",username)
      txt = replace (txt,"%p",ping)
      txt = replace (txt,"%c",mychannel)
      
     &#39;Get the type game - Warcraft or diferent
     StatArray = Split(OriginalStatstring, " ")
     Product = Left(OriginalStatstring, 4)
    
    
     if product = "3RAW" then	 
       addq "/w " & username & " " & txt
     else
       addq "/w " & username & " " & txt
     end if
    
      TimeLastMsg = now()
    end sub
    You need to have turn off the GreetMessage in your SB options. But put the message that you want to greet there

    ----------------
    ! DrOiD InSiDe !
    ----------------

  8. #8
    dil
    dil is offline Newbie
    Array
    Join Date
    Apr 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0

    Re: Anti Flood Plugin by T[X]AS

    Quote Originally Posted by T[X
    AS ]
    Try to use this code if u are using a warcraft iii cd-key
    will it be a problem if i use it with diablo keys? anyways ill test it when i got back from school . thx T[X]AS .

  9. #9
    hendricius's Avatar
    hendricius is offline Administrator

    Array
    Join Date
    Feb 2007
    Location
    Goettingen, Germany
    Posts
    6,311
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    24
    Reputation
    2180

    Re: Anti Flood Plugin by T[X]AS

    Quote Originally Posted by dil
    Quote Originally Posted by T[X
    AS ]
    Try to use this code if u are using a warcraft iii cd-key
    will it be a problem if i use it with diablo keys? anyways ill test it when i got back from school . thx T[X]AS .
    It depends who you want to whisper.

    Diablo II whisperings have a * infront. Warcraft 3 whisperings and Starcraft Whisperings do not need that.

    EG: D2: /w *hendricius
    EG: WC3 /w hendricius

    If you want to whisper Diablo 2 Players change it to this:

    &#39;Greets
    &#39;1.0
    &#39;By DrOiD

    dim Activate
    dim SecsToWisp
    dim TimeLastMsg
    Dim Product
    dim StatArray

    Sub Greets_event_load()
    Activate = "on"
    SecsToWisp = 30

    End Sub


    Sub Greets_Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatstring)
    if activate <> "on" then exit sub
    txtSecs = DateDiff("s",TimeLastMsg, now())
    if txtSecs <= SecsToWisp then
    addchat vbred," DrOiD&#39;s Anti Greets FlooD | Time Last Greet: " & txtSecs
    exit sub
    end if
    Txt = botvars.GreetMsg
    txt = replace (txt,"%0",username)
    txt = replace (txt,"%p",ping)
    txt = replace (txt,"%c",mychannel)

    &#39;Get the type game - Warcraft or diferent
    StatArray = Split(OriginalStatstring, " ")
    Product = Left(OriginalStatstring, 4)


    if product = "3RAW" then
    addq "/w " *& username & " " & txt
    else
    addq "/w " *& username & " " & txt
    end if

    TimeLastMsg = now()
    end sub
    correct me If I am wrong please. But the last else makes no sense then ^^.
    You suck. Suck a little less and become a fan on Facebook.

    "D3scene pwns" - Hendrik (PIRATE)

  10. #10
    dil
    dil is offline Newbie
    Array
    Join Date
    Apr 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0

    Re: Anti Flood Plugin by T[X]AS

    good head up !but you are wrong .
    if product = "3RAW" then
    addq "/w *" & username & " " & txt
    else
    addq "/w *" & username & " " & txt


    thats the fix .

Page 1 of 2 12 LastLast

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •