egghelp/eggheads community

Split Message in different line

2007-03-07T17:59:06-04:00

The first error was a missing var.. Rename the vars to use whatever you are using.. The second error was a missing close brace, find the missing closed brace and fix it.

Those 2 procs work just fine, you either broke the 2nd one with the missing close brace, or you didn't rename the var in the 1st to suit YOUR script.

Statistics: Posted by rosc2112 — Wed Mar 07, 2007 5:59 pm

Split Message in different line

2007-03-07T15:46:56-04:00

Sorry rosc2122, i try proc nlwordwrap with this in the same tcl and i have this error:
[20:41] Tcl error in file 'eggdrop.conf':
[20:41] can't read "nlmissdesc": no such variable
while executing
"nlwordwrap $nlmissdesc"
invoked from within
"set missdesc [nlwordwrap $nlmissdesc]"
(file "scripts/split.tcl" line 2)
invoked from within
"source scripts/split.tcl"
(file "eggdrop.conf" line 1340)
[20:41] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

If i use
# Example from my dream.tcl script, $dreammatch is set when regexp
# gets data from a website:
etc....
i have this error:

[20:44] Tcl error in file 'eggdrop.conf':
[20:44] missing close-brace
while executing
"foreach line [split $dreammatch \n] {
if {$line != ""} {
set len 375
..."
(file "scripts/split.tcl" line 5)
invoked from within
"source scripts/split.tcl"
(file "eggdrop.conf" line 1340)
[20:44] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

I have tried your code but there were some errors and I do not understand why... I would like to have a tlc that I can load into file .conf and my problem is that when the sentence is too long the BOT don't divide the sentence in two part such as two reply but stop it with a [censored] &... I want only that the bot divide the sentence in two part without breaking the WORD...

thank u, and sorry for my english

Statistics: Posted by b00m — Wed Mar 07, 2007 3:46 pm

Split Message in different line

2007-03-03T00:23:13-04:00

Here's an example of using the wrapper from one of my scripts:

Code:

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}

To use it, you feed input to it from another proc, like:

Code:

# 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"       }}

You could also put the wrapper inside of whatever proc you want:

Code:

# 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]"                                }                        }#######################################################################################################################

Statistics: Posted by rosc2112 — Sat Mar 03, 2007 12:23 am

Split Message in different line

2007-03-02T20:03:28-04:00

thx for the reply rosc,
i have for example:

bind pub -|- !help pub_help

proc pub_test {nick host handle chan text} {
putserv "PRIVMSG $chan : !bla, !bla2, !bla3, !bla4, !bla5"
}

I increase the process 'proc wordwrap' in my codes?
It's possible only a tcl that allow this split?

Statistics: Posted by b00m — Fri Mar 02, 2007 8:03 pm

Split Message in different line

2007-03-02T19:46:22-04:00

http://forum.egghelp.org/viewtopic.php?p=33031#33031

Statistics: Posted by rosc2112 — Fri Mar 02, 2007 7:46 pm

Split Message in different line

2007-03-02T18:49:46-04:00

Hi guys,
i have a little problem with my eggdrop.
I would want one small tcl that when my egg spam in my channel,if the message in too big, for example contain 200 caracters, i want that split the message in another line, without to cut the words, even split with the spaces, for example.

Please, if u can help me, help me

...and excuse me for my english

Statistics: Posted by b00m — Fri Mar 02, 2007 6:49 pm