help with quote script

[EmOuBi]

I found this simple quote script but I want someone to modify it
The bot will tell jokes about blondes when someone types !blonde in the chan. The problem is that some jokes are 300-400+ letters and they are not displaying all.

I want if the joke is more then 200 symbols to wrap it. For example if the joke is:

Code: Select all

<botnick> This is a very long joke about one blonde and you will not see it 

The bot must say like this:

Code: Select all

<botnick> This is a very long
<botnick> joke about one blonde
<botnick> and you will not see it

Here's the quote.tcl :

Code: Select all

bind pub -|- !blonde pub_disc

proc pub_disc {nick mask hand channel args} {
   global disc
   puthelp "PRIVMSG $channel :[lindex $disc [rand [llength $disc]]]"
   }
set disc {
"blaaaa blaaaaaaaaaa blaaaaaaa"
"abbsabsabsa ds dgdgdgdgd d ssddddddddgggg"
"saggggggggggsgasggsa sag gsa gdd gd dh hd"
}

[^DooM^]

put a

Code: Select all

\n

in where you want the line to break to a new line

HTH

[EmOuBi]

I tryed, it's not working

[^DooM^]

odd it works ok in my scripts. make sure your \n 's are inside your " " and rehash your bot.

[EmOuBi]

When I put \n it only break the line.
"This is a\n joke blabla" comes
<botnick> This is a

And that's all. The "joke blabla" is not shown

[^DooM^]

Try changing puthelp to putserv. The script looks fine and I cant see why its not working. Any other guys spot something I have missed?

[EmOuBi]

The script is working, it just do not wraps the big jokes

[demond]

Try changing puthelp to putserv. The script looks fine and I cant see why its not working. Any other guys spot something I have missed?

you missed the fact that any output to server (using putserv, puthelp or putqucik) is truncated on the first occurance of \n

[^DooM^]

Ahh thanks demond.

Code: Select all

bind pub -|- !blonde pub_disc

proc pub_disc {nick mask hand channel args} {
   global disc
   set strBuffer ""
   set strJoke "[lindex $disc [rand [llength $disc]]]"
   append strBuffer "$strJoke\n"
   puthelp "PRIVMSG $channel :$strBuffer"
}

set disc {
"blaaaa blaaaaaaaaaa blaaaaaaa"
"abbsabsabsa ds dgdgdgdgd d ssddddddddgggg"
"saggggggggggsgasggsa sag gsa gdd gd dh hd"
} 

Try this (Not tested).

[EmOuBi]

Nope. It's still truncated

[greenbear]

Have a look here.