demond Revered One

Joined: 12 Jun 2004 Posts: 3073 Location: San Francisco, CA
|
Posted: Wed Dec 20, 2006 12:06 am Post subject: |
|
|
| Code: |
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 [code] tag when posting logs, code |
|