egghelp/eggheads community

part message tcl

2002-04-02T17:20:00-04:00

thanks simon it would be very helpful

Statistics: Posted by Guest — Tue Apr 02, 2002 5:20 pm

part message tcl

2002-04-02T12:56:00-04:00

Oh, you may want to add some

if {[validuser $hand]} {return}

if you want added users to omit this functionality.

Statistics: Posted by Guest — Tue Apr 02, 2002 12:56 pm

part message tcl

2002-04-02T12:54:00-04:00

bind part "*!*@* *foobar*" part:addban
proc part:addban {nick host hand chan {text ""}} {
global botnick
set host [lindex [split $host @] 1]
newban *!*@$host $botnick "Banned for putting 'foobar' in quitmsg"
putserv "MODE $chan +b *!*@$host"
}

Or something like that! It was quite similar to your other post, so I hope you'll learn from both code examples..

Statistics: Posted by Guest — Tue Apr 02, 2002 12:54 pm

part message tcl

2002-04-02T08:18:00-04:00

I need a tcl which bans users for specific words on part message with the format *!*@ip

Statistics: Posted by Guest — Tue Apr 02, 2002 8:18 am