Posted to tcl by simple at Wed Dec 19 22:55:23 GMT 2007view pretty
proc Long:Desc {nick text} { set tts $text set tl [string length $tts] set comparer [expr int($tl / 400) + 1] set ranger 400 for {set x 1} {$x <= $comparer} {incr x} { set outputtext [string range $tts [expr ( $ranger - 400 )] $ranger] set outputtext [lrange $outputtext 0 end-1] puthelp "PRIVMSG $nick :$outputtext" incr ranger [string length $outputtext] } }