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
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
}
connection, sharing, dcc problems? click <here>
before asking for scripting help, read <this>
use