egghelp/eggheads community

simple tcl request: partyline bold script

2003-11-27T21:40:46-04:00

it magically works. yes, it works thanks for your attention in this really useless thread.

Statistics: Posted by FIDe` — Thu Nov 27, 2003 9:40 pm

simple tcl request: partyline bold script

2003-11-27T16:30:32-04:00

insert my proc and bind in that first 'if' below the rename line/before the close brace, then add \002 around the '$text' of the first 'return $text' inside the netbots proc.

Statistics: Posted by user — Thu Nov 27, 2003 4:30 pm

simple tcl request: partyline bold script

2003-11-27T15:43:19-04:00

ok: if I load your script before netbots, and then I load netbots, it magically works !
if I load the bots with source netbots/netbots.tcl and source/bold.tcl , it magically doesn't work.

this is the netbots.tcl interesting code:

Code:

bind filt - * nb_cmdcastif {!$nb_cmdcast} {  unbind filt - * nb_cmdcast  rename nb_cmdcast ""}proc nb_cmdcast {idx text} {  global nb_castfilter  set hand [idx2hand $idx] ; set cmd [string tolower [lindex [split $text] 0]]  if {![catch {getchan $idx} chan]} {    if {$chan == -1} {      set cmd .[string trimleft $cmd "."]    } elseif {![string match ".*" $cmd]} {      return $text    }    if {[lsearch -exact $nb_castfilter $cmd] != -1} {      nb_sendcmd * rbroadcast "#$hand# [string trimleft [lindex [split $text] 0] "."] .."    } else {      nb_sendcmd * rbroadcast "#$hand# [string trimleft [string range $text 0 399] "."]"    }  }  return $text}

I tryed to put your script too in proc nb_cmdcast before return $text, without results.

Statistics: Posted by FIDe` — Thu Nov 27, 2003 3:43 pm

simple tcl request: partyline bold script

2003-11-27T15:03:14-04:00

Find the other proc triggered by a filt bind with the same mask (*) and paste it here.

PS: what happens if you load my script before/after netbots?

Statistics: Posted by user — Thu Nov 27, 2003 3:03 pm

simple tcl request: partyline bold script

2003-11-27T14:25:27-04:00

ok, I found the problem: if I don't load netbots your script works. I really don't know what to do In my very little tcl knowledge, in netbots.tcl there are some bind filt * like your script, I think they create some problems..? there's a way to solve this problem (without unloading netbots? ) thank you again

Statistics: Posted by FIDe` — Thu Nov 27, 2003 2:25 pm

simple tcl request: partyline bold script

2003-11-19T15:34:56-04:00

are we talking about the same script?

Code:

bind filt - * chatBold proc chatBold {i t} {   if {![string match .* $t] && ![catch {getchan $i}]} {set t \002$t\002} {set t} }

is it this?
I really can't understand why isn't working , I don't get any error.
if I do a
.tcl dccbroadcast \002prova\002
I see broadcasted the word prova in bold, from all bots. but If I load your script on botA and I type on botA, I see the text without bold on all bots.
Now, I try unloading all scripts loaded (netbots,etc) and retry..
really don't know.. however, thank you again

Statistics: Posted by FIDe` — Wed Nov 19, 2003 3:34 pm

simple tcl request: partyline bold script

2003-11-19T12:01:38-04:00

I want to type NO BOLD text in partyline, and I want that all text written in partyline will be displayed as BOLD to other users in partyline; sorry if my english is no good

That's what the script does on my eggdrop 1.6.13. Now I've also tested it on a 1.6.15, and it worked there too. This script will add \002 to the start and end of every message sent FROM the bot the script is loaded on. So it won't touch text typed by users on other bots. Is that what you want maybe?
PS: your english is fine

Statistics: Posted by user — Wed Nov 19, 2003 12:01 pm

simple tcl request: partyline bold script

2003-11-19T10:27:03-04:00

Did you try to send bold text from your client with echo on (or watching from another linked bot)?

Maybe there's a misunderstood:
I want to type NO BOLD text in partyline, and I want that all text written in partyline will be displayed as BOLD to other users in partyline; sorry if my english is no good

You realize that the script on the bot can't change how your client renders your local echo, right?

Yes, I know, infact I look from remote bots:
niente bold?
niente bold?

Hoping that I've been more comprensible tnx again for your interest.[/i]

Statistics: Posted by FIDe` — Wed Nov 19, 2003 10:27 am

simple tcl request: partyline bold script

2003-11-18T20:31:39-04:00

Did you try to send bold text from your client with echo on (or watching from another linked bot)? You realize that the script on the bot can't change how your client renders your local echo, right?

EDIT: I tried the script now and it works fine on my 1.6.13

Statistics: Posted by user — Tue Nov 18, 2003 8:31 pm

simple tcl request: partyline bold script

2003-11-18T20:29:28-04:00

No, my client (xchat) doesn't filter bold char, since if I write with bold in partyline, I see my written text in bold. With echo on I see it without bold, and from another bot it's the same. Did you tried yourself that script?I tryed it with a 1.6.15 eggie. tnx

Statistics: Posted by FIDe` — Tue Nov 18, 2003 8:29 pm

simple tcl request: partyline bold script

2003-11-18T11:51:04-04:00

Your client might be filtering control chars. How did you test it? Do you have .echo on or did you watch from another bot?

Statistics: Posted by user — Tue Nov 18, 2003 11:51 am

simple tcl request: partyline bold script

2003-11-18T09:36:54-04:00

right, I removed the line break
now there isn't any error..
but It doesn't bold anything partyline chat is still not bolded.
yes, I'm +h.

funziona questo cazzo di bold?

however, no error is a good starting point, got workin' on it.

Statistics: Posted by FIDe` — Tue Nov 18, 2003 9:36 am

simple tcl request: partyline bold script

2003-11-18T03:17:22-04:00

invalid command name "set t"

Then you probably inserted a line break {set t \002$t\002} here {set t} ...which is not a good idea

Statistics: Posted by user — Tue Nov 18, 2003 3:17 am

simple tcl request: partyline bold script

2003-11-17T21:17:42-04:00

mm no, it doesn't work

[03:14] Tcl error [chatBold]: invalid command name "set t"
we

tnx however

Statistics: Posted by FIDe` — Mon Nov 17, 2003 9:17 pm

Try this...

2003-11-17T13:59:06-04:00

Code:

bind filt - * chatBoldproc chatBold {i t} {  if {![string match .* $t] && ![catch {getchan $i}]} {set t \002$t\002} {set t}}

Statistics: Posted by user — Mon Nov 17, 2003 1:59 pm