Posted to tcl by simple at Wed Dec 19 22:55:23 GMT 2007view raw
- 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]
- }
- }