TCL vs limit abuse

[Jane`Lane]

dear friends,
I was looking for a tcl script to
kick, ban and deflag people who perform action like remove the chan limit (-l) or change it.

I've found several scripts in the archive, but: the best one is written in deutch, and I can't understand anything .____.
moreover it just provides to kick...

can anyone help me and write this script???
thanks for your help

[demond]

Code: Select all

set reason "don't touch that dial"
bind mode - {% +l} foo
bind mode - {% -l} foo
proc foo {n u h c m v} {
   if ![botisop $c] return
   # ignore server and botmaster modes
   if {$n=="" || [matchattr $h m|m $c]} return
   # "deflag" the offending party
   if {$h != "*"} {chattr $h -o|-o $c}
   # ...and punish them with 10-min ban & kick
   newchanban $c [maskhost $n!$u] $::nick $::reason 10
   putkick $c $n $::reason
}

[Jane`Lane]

dear demond,
first of all, thanks for your answer!!!

and, by the way, where should I paste this code???

newchanban $c [maskhost $n!$u] $::nick $::reason 10
putkick $c $n $::reason

how can I add the kick reason???

furthermore, is this code able to kick user even if they just change the limit???

thanks again for helping!!!

[Jane`Lane]

...anyone knows???

[Alchera]

...anyone knows???

Code: Select all

set reason "don't touch that dial" 

That takes care of where to plonk the reason.

Re-read demond's code, it is all there.

[Jane`Lane]

...actually it doesn't work:
I added it on one of my eggdrops... and it banned another one, who has the rule to raise the limit!!!

[Sir_Fz]

Does the other bot have +m flag on your bot? because that's the flag being exempted in demond's code.