Posted to tcl by Bleuwolf at Thu Dec 13 06:29:37 GMT 2007view raw

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