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

[FireWarrior]

Hello Opposing,
Many thanks for your reply. Silly me, I had thought of what you said earlier but did'nt dwell on it; now I shall.
Best of luck with everything in life,
Regards,
FireWarrior

[Luminous]

Opposing: can allprotection be modified, so it catches spam like this?:

Code: Select all

 [ user] .  .   . . . . .  .            .            .            . .           .            .  ...          .      .  .                 . .           .
 [ user] .  .           . . .         . ..          ..
 [ user] .........      . .  .         
 [ user] ...        . .          .
 [ user] .              .             .    ..
 [ user]      . .                .. .  .  ..

[Sir_Fz]

Code: Select all

 [ user] .  .   . . . . .  .            .            .            . .           .            .  ...          .      .  .                 . .           .
 [ user] .  .           . . .         . ..          ..
 [ user] .........      . .  .         
 [ user] ...        . .          .
 [ user] .              .             .    ..
 [ user]      . .                .. .  .  ..

What's this? If you mean recognizing the above text as an offense then you need to suggest a mechanism for catching such offenses (i.e. What is the rule for such offenses?).

[willyw]

Opposing: can allprotection be modified, so it catches spam like this?:

Code: Select all

 [ user] .  .   . . . . .  .            .            .            . .           .            .  ...          .      .  .                 . .           .
 [ user] .  .           . . .         . ..          ..
 [ user] .........      . .  .         
 [ user] ...        . .          .
 [ user] .              .             .    ..
 [ user]      . .                .. .  .  ..

I don't think this will get 100% of the above, but I believe it would get part of it. If you haven't found it yet, start reading with this post:
http://forum.egghelp.org/viewtopic.php?p=86927#86927

I hope that helps.

[Luminous]

Thanks. I had seen that section in the script, but wanted to double check before changing too much...

Regarding the spaces between the "."s... couldn't I add a string trim to:

Code: Select all

if {[string match -nocase *[string map {? \\?} [string repeat [string index $cl $c] $i]]* $arg]} {

to take out spaces that might occur before repeated chars? Is that feasible or would it cause ill-effects?

It also may be worth mentioning that I am still using the 4.5 version.. in case that changes anything...

[Sir_Fz]

Try

Code: Select all

if {[string match -nocase *[string map {? \\? " " ""} [string repeat [string index $cl $c] $i]]* $arg]} {

This will remove all spaces (meaning ".. .." becomes "...." for example).

[FireWarrior]

Hello Opposing,
I’ve been using your script since 2005 and have been an unspoken fan. Forgive my noob observation, but the script would be complete in terms of functionalities if you at some time endeavour to add the following:
1. A “lag meter, disabling mass flood prot when lagged”, to quote someone else’s words
2. And the choice to:
2.1. Kick and then ban an offender , as well as
2.2. To ban and then kick the same, however it suits the user.
I understand that for a noob user like me it is easy to demand the moon without knowing how stupid/difficult it is what I’ve asked for. In that case I apologise in advance.
If however it is possible, and you incorporate it in any of your further release, then in my eyes the script will be a modern classic.
Wish you the very best in life for you continued and persistence support and development of the script. Hope life makes you as happy as I’ve been using your script.
Kind regards,
FireWarrior.

[Luminous]

Sir_Fz: Aha.. thanks, that works perfect.

[sotengboy]

hy sir...

mmm, can help me?

how to main bot auto identify without identify.tcl, like spam bot

Code: Select all

 "001" {
   putlog "\002AP\002: AntiSpamBot: Connected and registered as $antispam(cnick)."
   set antispam(pong) 1; set antispam(idx) $idx
   putdcc $idx "NickServ :identify $antispam(cnick) asem"
   foreach c [channels] {
    if {![vcg $c ap:antispam]} {continue}
    if {[lindex [split [channel get $c ap:antispam]] 0] == "+"} {
     putdcc $idx "join $c"

please reply. thanks

[Sir_Fz]

@FireWarrior Thank you for your suggestions, will be taken into consideration

@sotengboy Use a script for identification.

[Luminous]

Sir_Fz:

I have noticed that my bot sometimes randomly bans people who leave the channel who do not have flags/a chanrec. Not even join/parts... just people who were talking and decided to call it a night sometimes get banned after they leave. And the bot does not remove the bans either. I have messed with the join/part settings.. tried to disable it, etc... but nothing seems to actually disable it, or fix it. Or perhaps I am not looking in the right area of the script? :\

Any idea why this happens?

[Sir_Fz]

To make sure that this behavior is caused by the script, execute .ap:monitor in your DCC and see if any of the hosts being banned are being monitored by the script.

[Luminous]

[me] .ap:monitor
[bot] What? You need '.help'

I am using 4.5., btw...

[Spectre]

ok new with eggs tried use this tcl and got these
[17:13] Tcl error [text:char]: can't read "o": no such variable
[17:13] Tcl error [text:line]: can't read "o": no such variable
[17:13] Tcl error [caps:kick]: can't read "p": no such variable
[17:13] Tcl error [text:char]: can't read "o": no such variable
[17:13] Tcl error [text:line]: can't read "o": no such variable
any idea how can sort ?
thanks

[Luminous]

I get those sometimes as well... also I get one about [mass:kick] and [mass:ban], but I don't have the logs available at this moment...