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]
  }
}