bind msg - !say say:proc

for {set i 0} {$i<3} {incr i} {
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"