Code:

proc send_privmsg_wrap_text {dest text} {  while {[string compare $text ""] != 0} {    if {[string length $text] <= 400} { putserv "PRIVMSG $dest :$text" ; return }    putserv "PRIVMSG $dest :[string range $text 0 [set lr [string last " " [string range $text 0 400]]]]"    set text [string range $text $lr end]  }}

Code:

proc splitstring {string strmax} {set strlen [string length $string]putlog "blah - $strlen | blah - $strmax"if {$strlen > $strmax} {set curpos 0set lstartpos 0set lspacepos $strlenset final ""for {set i 0} {$i <= $strlen} {incr i} {putlog "$curpos | $final | $lspacepos | $i | $lstartpos | $strlen"if {$i==$strlen} {lappend final [string trim [string range $string $lstartpos end]]return $final}if {$curpos >= $strmax} {set curpos 0lappend final [string trim [string range $string $lstartpos $lspacepos]]set lstartpos $lspacepos}if {[string index $string $i] == " "} {set lspacepos $i}incr curpos}return $final}return [list $string]}

Code:

foreach z [splitstring "my very very very long line of text that will go on forever until I die" 10] {  putserv "PRIVMSG #wherever :$z"}

Code:

<botname> my very very very<botname> long line of text<botname> that will go on forever<botname> until I die

Code:

proc ml_privmsg {to text} {  while {$text != ""} {    puthelp "PRIVMSG $to :[string range $text 0 50]"    set text [string range $text 51 end]  }}

Code:

ml_privmsg "destination" "very very very long line of text"