set chan #yours
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 $::chan :$t"
}
connection, sharing, dcc problems? click <here>
before asking for scripting help, read <this>
use