egghelp/eggheads community

Talker Script

2004-02-26T05:42:51-04:00

Code:
set text [lrange $args 0 end] 
quite useless eh?
just remove that line and replace $text with $args

btw @Dw2k:
by using "join $args" you convert it to a string. using list commands on that is not a good idea. your "set text [lrange $args 0 end]" on the other hand returns a list, so you would have to use "join text" again.
Arcane, normally, you would be correct, assuming we were talking about just plain ol TCL... but we are dealing with eggdrop TCL here, and the way "bind" calls procedures.... when args is used in this scenario, it is a list of lists, so by join'ing it once, it becomes a list...

Now, don't get me wrong, I agree with you arcane that it is an inefficient and impractical method... Using a variable name such as "text", and using split, etc.. would be much better, imo.

But just for informations sake, you should check out peterre's special characters page: http://www.peterre.com/characters.html

Thanks, that page is great

Statistics: Posted by Dw2k — Thu Feb 26, 2004 5:42 am

Talker Script

2004-02-25T23:31:26-04:00

Code:
set text [lrange $args 0 end] 
quite useless eh?
just remove that line and replace $text with $args

btw @Dw2k:
by using "join $args" you convert it to a string. using list commands on that is not a good idea. your "set text [lrange $args 0 end]" on the other hand returns a list, so you would have to use "join text" again.

Arcane, normally, you would be correct, assuming we were talking about just plain ol TCL... but we are dealing with eggdrop TCL here, and the way "bind" calls procedures.... when args is used in this scenario, it is a list of lists, so by join'ing it once, it becomes a list...

Now, don't get me wrong, I agree with you arcane that it is an inefficient and impractical method... Using a variable name such as "text", and using split, etc.. would be much better, imo.

But just for informations sake, you should check out peterre's special characters page: http://www.peterre.com/characters.html

Statistics: Posted by strikelight — Wed Feb 25, 2004 11:31 pm

Talker Script

2004-02-25T09:22:25-04:00

I sometimes use

Code:

 set args [split [join $args] " "]

I'll have to look at it more

Statistics: Posted by Dw2k — Wed Feb 25, 2004 9:22 am

Talker Script

2004-02-25T09:02:23-04:00

Code:

set text [lrange $args 0 end]

quite useless eh?
just remove that line and replace $text with $args

btw @Dw2k:
by using "join $args" you convert it to a string. using list commands on that is not a good idea. your "set text [lrange $args 0 end]" on the other hand returns a list, so you would have to use "join text" again.

Statistics: Posted by arcane — Wed Feb 25, 2004 9:02 am

Talker Script

2004-02-24T09:04:02-04:00

Yeha, it works, thank you.
All hail Dw2k that shalt be King hereafter.

Statistics: Posted by Guest — Tue Feb 24, 2004 9:04 am

Talker Script

2004-02-24T08:50:13-04:00

Yeah I suppose you could, as long as its just the one channel and it never changes

take out

Code:

set chan [lindex $args 0]

and rename the other to:

Code:

set text [lrange $args 0 end]

then have

Code:

 putserv "PRIVMSG #yourchannel :$text"

put in the channel you want to message and it will always message that channel no matter what.

Statistics: Posted by Dw2k — Tue Feb 24, 2004 8:50 am

Talker Script

2004-02-24T06:16:36-04:00

Great!
It works, thank you very much.

But, is there a way to use the script to tell the bot in which channel he shall message?

So that I can use: /msg talk
Instead of: /msg talk

Statistics: Posted by Guest — Tue Feb 24, 2004 6:16 am

Talker Script

2004-02-24T04:35:36-04:00

Code:

bind msg - talk cmd:talkerproc cmd:talker {nick uhost hand args} {  set args [join $args]  set chan [lindex $args 0]  set text [lrange $args 1 end]   putserv "PRIVMSG $chan :$text"}

That should

Statistics: Posted by Dw2k — Tue Feb 24, 2004 4:35 am

Talker Script

2004-02-24T02:29:02-04:00

It does not work this way
It is still the same mistake

Code:

Tcl error [talker]: no value given for parameter "target" to "talker"

Statistics: Posted by Guest — Tue Feb 24, 2004 2:29 am

Talker Script

2004-02-23T18:39:10-04:00

You need to replace

Code:

 proc talker {nick uhost hand chan text} {

witu

Code:

 proc talker {nick uhost hand args} {

and have

Code:

set args [join $args]set chan [lindex $args 0]set text [lindex $args 1]

then the rest of your code
you will need to use /msg botname tell #chan message

Hope that helps

Statistics: Posted by Dw2k — Mon Feb 23, 2004 6:39 pm

Talker Script

2004-02-23T18:12:31-04:00

Hi there, I tried to write a "talker-script", where the bot sends a message to the channel if I tell him to do so (/msg tell ). Well, obviously it does not work. I am new at tcl and I do not really know what to do. I guess it is just a simple mistake.

This is the script:

bind msg - tell talker

proc talker {nick uhost hand chan text} {

putserv "privmsg $chan :$text"
return 1
}

And this is the error that I get:
Tcl error [talker]: no value given for parameter "target" to "talker"

I would be very happy if you could help me.

Statistics: Posted by Guest — Mon Feb 23, 2004 6:12 pm