bind msg - !say say:proc

proc say:proc {nick uhost hand arg } {
     set chan [lindex $arg 0]
     set msg [lrange $arg 1 end]

     putserv "PRIVMSG $chan :$msg"
}

putlog "custom.tcl by poppabear loaded - 2008"