Bracket Conflict

[Conc]

I made a "say" script.

it works so:

botnick say text

Part of code:

Code: Select all

putserv "PRIVMSG $c :[lrange $t 1 end]"

but this has a problem, look at this:

<Conc> Egg say [Hi]
<Egg> {[Hi]}

Why does it says {} when i type a bracket?

[nml375]

Because lrange operates on lists (not strings), and returns a list (not a string).
At minimum, you should use join to merge the list into a single string.
Also, if $t is simply the text you wrote to trigger the binding, then you must also use split to convert it into a list before using lrange.

[Conc]

$t isnt just the text to send... it has also the word "say".

Well... i am not very good with tcl, can you do it for me?

[nml375]

I suppose you'd like something like this...

Code: Select all

bind pub - "egg" someproc
proc someproc {nick host handle channel text} {
  puthelp "PRIVMSG $channel :[join [lrange [split $text] 1 end]]"
}

[Conc]

It works fine.

Thanks

[blake]

I also get this problem but i use

Code: Select all

bind msg ho|ho act cmd:act
proc cmd:act {nick uhost hand arg} {
  set chan [lindex [split $arg] 0]
  set text [lrange [split $arg] 1 end]
  putserv "PRIVMSG botserv act $chan $text (Issued By $nick"
}

tried adding it like this

Code: Select all

bind msg ho|ho act cmd:act
proc cmd:act {nick uhost hand arg} {
  set chan [lindex [split $arg] 0]
  set text [join [lrange [split $arg] 1 end]
  putserv "PRIVMSG botserv act $chan $text (Issued By $nick"
}

but get error on partyline Tcl error [cmd:act]: missing close-bracket

[Sir_Fz]

Code: Select all

set text [join [lrange [split $arg] 1 end]

should be

Code: Select all

set text [join [lrange [split $arg] 1 end]]

You should also consider adding ":" before the privmsg text (i.e. "privmsg botserv :act ...").

[blake]

Cool thanks sir_fz also changed act to :act