Posted to tcl by Bluewolf at Thu Dec 13 18:43:59 GMT 2007view raw

  1. proc Desc:Place {chan type} {
  2. set Data "$chan $type"
  3. return [join $Data ":"]
  4. }
  5. proc Desc:Get {filename desctype} {
  6. set file [open $filename r]
  7. while {![eof $file]} {
  8. gets $file line
  9. set line [split $line " "]
  10. if {[string equal -nocase $desctype [lindex $line 0]] == 1} {
  11. set item [lrange $line 1 end]
  12. return $item
  13. }
  14. }
  15. close $file
  16. }
  17. proc Long:Desc {nick text} {
  18. set tts $text
  19. set tl [string length $tts]
  20. set comparer [expr int($tl / 400) + 1]
  21. set ranger 400
  22. for {set x 1} {$x <= $comparer} {incr x} {
  23. set outputtext [string range $tts [expr ( $ranger - 399 )] $ranger]
  24. puthelp "PRIVMSG $nick :$outputtext"
  25. set comparer [expr $ranger + 400]
  26. }
  27. }
  28.