Posted to tcl by simple at Wed Dec 19 22:55:23 GMT 2007view raw

  1. proc Long:Desc {nick text} {
  2. set tts $text
  3. set tl [string length $tts]
  4. set comparer [expr int($tl / 400) + 1]
  5. set ranger 400
  6. for {set x 1} {$x <= $comparer} {incr x} {
  7. set outputtext [string range $tts [expr ( $ranger - 400 )] $ranger]
  8. set outputtext [lrange $outputtext 0 end-1]
  9. puthelp "PRIVMSG $nick :$outputtext"
  10. incr ranger [string length $outputtext]
  11. }
  12. }