set checkchannel "#testchannel"
#
bind nick - * nick:change
proc nick:change { nick host hand chan newnick } {
global checkchannel
if {$chan == $checkchannel} {
putserv "kick $chan $newnick :You are Banned!!"
}
}
Tcl error [nick:change]: called "nick:change" with too many arguments
<font size=-1>[ This Message was edited by: snow-ball on 2002-06-23 11:50 ]</font>