Code: Select all
set args [split [join $args] " "]
Code: Select all
bind msg - talk cmd:talker
proc cmd:talker {nick uhost hand args} {
set args [join $args]
set chan [lindex $args 0]
set text [lrange $args 1 end]
putserv "PRIVMSG $chan :$text"
}
Code: Select all
proc talker {nick uhost hand chan text} {
Code: Select all
proc talker {nick uhost hand args} {
Code: Select all
set args [join $args]
set chan [lindex $args 0]
set text [lindex $args 1]
Code: Select all
setuser $nick XTRA EMAIL email@address.com