part message tcl

CafeiN · Post by **CafeiN** » Tue Apr 02, 2002 8:18 am

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

Guest · Post by **Guest** » Tue Apr 02, 2002 12:54 pm

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..

Guest · Post by **Guest** » Tue Apr 02, 2002 12:56 pm

Oh, you may want to add some

if {[validuser $hand]} {return}

if you want added users to omit this functionality.

CafeiN · Post by **CafeiN** » Tue Apr 02, 2002 5:20 pm

thanks simon it would be very helpful