Posted to tcl by Bluewolf at Thu Dec 13 18:35:15 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 - 399 )] $ranger]
  8. puthelp "PRIVMSG $nick $outputtext"
  9. set comparer $ranger + 400
  10. }
  11. }