Code: Select all
proc nlwordwrap {input} {
# word wrapper
set j 0
set tempdef ""
foreach line [split $input \n] {
if {$line != ""} {
set len 375
set splitChr " "
set out [set cur {}]; set i 0
foreach word [split $line $splitChr] {
if {[incr i [string len $word]]>$len} {
lappend out [join $cur $splitChr]
set cur [list $word]
set i [string len $word]
incr j
} else {
lappend cur $word
}
incr i
}
lappend out [join $cur $splitChr]
foreach line2 $out {
if {$j >= 1} {
set line2 [linsert $line2 end \002(con't)\002]
set j [expr $j -1]
}
lappend tempdef $line2
}
}
}
return $tempdef
}
Code: Select all
# This line feeds text to the wrapper proc:
set missdesc [nlwordwrap $nlmissdesc]
# This line takes the wrapped text and pumps it out to privmsg:
foreach line $missdesc {
if {$line != ""} {
puthelp "PRIVMSG $chan :$line"
}
}
Code: Select all
# Example from my dream.tcl script, $dreammatch is set when regexp
# gets data from a website:
set j 0;set dhct 0
foreach line [split $dreammatch \n] {
if {$line != ""} {
set len 375
set splitChr " "
set out [set cur {}]; set i 0
foreach word [split $line $splitChr] {
if {[incr i [string len $word]]>$len} {
lappend out [join $cur $splitChr]
set cur [list $word]
set i [string len $word]
incr j
} else {
lappend cur $word
}
incr i
}
lappend out [join $cur $splitChr]
foreach line2 $out {
if {$dhct == 0} {
set line2 [linsert $line2 0 \002[string totitle $text]\002:]
incr dhct
if {$j >= 1} {
set line2 [linsert $line2 end \002(con't)\002]
set j [expr $j - 1]
}
} else {
set line2 [linsert $line2 0 \002([string totitle $text] con't)\002]
if {$j >= 1} {
set line2 [linsert $line2 end \002(con't)\002]
set j [expr $j - 1]
}
}
puthelp "PRIVMSG $chan :[join $line2]"
}
}
#######################################################################################################################