All pastes #926855 Raw Edit

Mine

public text v1 · immutable
·published 2008-03-03 21:39 UTC
rendered paste body
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"