AllProtection.tcl (Stable: v4.8 / Beta: v4.9b4)

[Mulreay]

Has anyone actually got a workable link to the beta version please?

[Sir_Fz]

The link posted on this topic's first post is working normally.

[Mulreay]

The link posted on this topic's first post is working normally.

Thanks already have the beta version and it's up and working

[u2pop]

why when the list adwords is not added the *#* and when i said in the chan #hello or whatever contain # the bot reply me that

<bot> Warning: You've triggered adverting protection, advertisements are not allowed.

and the bot kick me

* You were kicked by bot (Advertising detected.. (*#hello*) ·21·)

[gargamelron]

i had a problem loading the scripts
its show in my DEBUG files

Debug (eggdrop v1.6.19+ctcpfix)
Full Patch List: ctcpfix
Tcl library: /usr/local/lib/tcl8.5
Tcl version: 8.5.6 (header version 8.4.9)
Compile flags: gcc -pipe -g -O2 -Wall -I.. -I.. -DHAVE_CONFIG_H
Link flags: gcc -pipe
Strip flags: touch
Context: main.c/731, []
main.c/731, []
main.c/731, []
main.c/731, []
main.c/731, []
main.c/731, []
main.c/731, []
main.c/731, []
main.c/731, []
main.c/731, []
main.c/731, []
main.c/731, []
tclhash.c/216, []
tclhash.c/238, []
tclhash.c/680, []
tclhash.c/684 [Tcl proc: ::AllProtection::load, param: $_event1]

SOCK ADDR PORT NICK HOST TYPE
---- -------- ----- --------- ----------------- ----
3 CCBCD930 49152 (telnet) * lstn 49152
4 00000000 0 (dns) dns (ready)

Compiled without extensive memory debugging (sorry).
Open sockets: 3 (listen), 4 (passed on), 6 (file), done.

can anyone help me to solve it?

thank you

[Diamond85]

Hello Sir_Fz.

I use the: tcl v4.6b9

I would love it if you have a second timer limit for the user would install. because the eggdrop would only every minute fraction of the new limit is not good and I think because if I limit the +3 offered only one new every minute, it is therefore well be that: he would review all of 30 seconds if a new limit is required. (My english is very bad use the google translator) and I hope you understand what I mean

and I would also be very happy if you would install the warning still everywhere


with friendly greetings.
Kamil

[Razor]

Sorry to bother.

I would like to change some minor features on this script. Meaning I would like the bot to reply all warnings to $chan, and not via PRIVMSG user, nor Notice user.

Instead I want all the warning to be done on the channel itself. So, when a offender, for example a user floods, the bot would probably reply something like this:

A made-up example:

<jess> floodbots in the building.. ohmai
<floodbot3> aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
<floodbot3> aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
<floodbot3> aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
<EggdropBot> [ floodbot3 ] Please stop flooding or repeating please!
<rez> yeah.. flooding is lame dude!

# Set here the warning method you wish to use: (PRIVMSG or NOTICE)
variable wmeth NOTICE

Also, I would like if the script could output the offenders nickname, as shown above. "[ Nick ] ReasonHere."

##########################

# TEXT FLOOD #

##########################
#
## 1 ## Text flood (lines)
#
# use .chanset #channel ap:textl <lines>:<seconds> <btime> <pmeth> <btype> (in DCC, 0:0 to disable)
# Set default rate here:
lappend ap:udefs {ap:textl "5:4 08 w:k:kb 2"}

# Text flood (lines) kick msg.
set textl(kmsg) "No flooding / repeating."

# Text flood (lines) warn msg.
set textl(wmsg) "\[ $nick ]\ Please stop flooding or repeating please!"

## Edit the following only if you choose a punish method above 5 (oper commands):

# Text flood (lines) kline mask type.
set textl(ktype) 2

# Text flood (lines) kline/kill reason.
set textl(klmsg) "Text flooding is not permissable on this network."

# Text flood (lines) kline time (seconds or minutes depends on your ircd).
set textl(ktime) 0

Code: Select all

switch -- [set raw [string tolower [lindex [split $arg] 1]]] {
  "privmsg" - "notice" {
   set src [lindex [split $arg] 0]
   set asbn [lindex [split $arg] 2]
   if {![string equal -nocase $asbn $antispam(cnick)]} {return}
   if {[scan $src {:%[^!]!%s} nick uhost] != 2} {return}
   set text [join [lrange [split $arg] 3 end]]
   if {[set advword [isspam $text]] == ""} {
    if {$raw == "privmsg" && [string match ":\001DCC Send *\001" $text]} {set advword "DCC SEND"}
   }

I am currently using Allprotection4.6b9 on an Eggdrop1.6.19 version.

Thanks in advance

[willyw]

...
Meaning I would like the bot to reply all warnings to $chan, and not via PRIVMSG user, nor Notice user.

...
I am currently using Allprotection4.6b9 on an Eggdrop1.6.19 version.
...

I do this too.
Same version.

I remembered posting about it, quite some time ago.

Here's the link, to the post(s):
http://forum.egghelp.org/viewtopic.php?p=88245#88245


I hope this helps (for this one part of your request)

[Sir_Fz]

why when the list adwords is not added the *#* and when i said in the chan #hello or whatever contain # the bot reply me that

<bot> Warning: You've triggered adverting protection, advertisements are not allowed.

and the bot kick me

* You were kicked by bot (Advertising detected.. (*#hello*) ·21·)

"#" is built-in in the advertisement protection, if you wish to remote it you can add "#" to the adexempts list or if you wish to exempt the channel-name (like if you say #hello in #hello then it's okay) you can add %chan into the adexempts list.

i had a problem loading the scripts
its show in my DEBUG files

Your problem is related to you Eggdrop installation and not to the script.

[Sir_Fz]

Hello Sir_Fz.

I use the: tcl v4.6b9

I would love it if you have a second timer limit for the user would install. because the eggdrop would only every minute fraction of the new limit is not good and I think because if I limit the +3 offered only one new every minute, it is therefore well be that: he would review all of 30 seconds if a new limit is required. (My english is very bad use the google translator) and I hope you understand what I mean

and I would also be very happy if you would install the warning still everywhere


with friendly greetings.
Kamil

The script checks every minute if a new limit is required and it would only increase the limit if more than 30% of the limit has been used. Sorry that won't change.

[Sir_Fz]

I would like to change some minor features on this script. Meaning I would like the bot to reply all warnings to $chan, and not via PRIVMSG user, nor Notice user.

The link willyw shared should answer your question (thanks willyw).

As for adding the nickname of the offender in the warning message. I suggest the following modification (added to the modification made by willyw here):

Instead of

Code: Select all

putserv "privmsg $c : $jn : $wm "

use

Code: Select all

putserv "privmsg $c :[string map [list %nick $jn] $wm]"

This way if you add "%nick" in your wmsg settings, it will be replaced by the offender's nickname.

[willyw]

...
The link willyw shared should answer your question (thanks willyw).

You're welcome.

As for adding the nickname of the offender in the warning message. I suggest the following modification (added to the modification made by willyw here):

Instead of

Code: Select all

putserv "privmsg $c : $jn : $wm "

...

I think I'm a little confused by the second part of his request, so I didn't address it, and waited.

Now, I have a curiosity question:
Doesn't $jn already do what he wanted?
... again, maybe I just don't understand his question.

Thanks

[Sir_Fz]

Now, I have a curiosity question:
Doesn't $jn already do what he wanted?
... again, maybe I just don't understand his question.

Thanks

Yes $jn contains the nickname, I just made it more flexible and gave him the option to place the nickname anywhere in his warning message (instead of it always appearing at the beginning of the line). So now he can place the variable %nick anywhere in the warning message and it will be replaced by the offender's nick.

[Razor]

Thank you, willyw & Sir_Fz. It works like a charm!

[willyw]

Now, I have a curiosity question:
Doesn't $jn already do what he wanted?
... again, maybe I just don't understand his question.

Thanks

Yes $jn contains the nickname, I just made it more flexible and gave him the option to place the nickname anywhere in his warning message (instead of it always appearing at the beginning of the line). So now he can place the variable %nick anywhere in the warning message and it will be replaced by the offender's nick.

Ahhh....

Excellent!



thanks for explaining.