set msgchan #yourchannel bind link - * foo bind disc - * foo proc foo {args} { set bot [lindex $args 0] set via [lindex $args 1] if {$via != ""} {set t "$bot has linked via $via"} {set t "$bot delinked"} puthelp "privmsg $::msgchan :$t" } If I am translating ...