egghelp/eggheads community

Request : Simple Action Reply Script

2003-05-28T09:47:25-04:00

From my first reply:

...The message at this point is just a string, so the $nick part will not be replaced by the current 'nick' variable's content unless we tell tcl to parse the message for us. 'subst' is a good way to do this.

I suggested this method because it's more flexible than using static keyword->value translations, but if the nick is the only variable you'll ever use in the messages the string map solution is fine (subst would allow commands in the message to be performed at runtime too btw)

If you stick with the string map you should consider replacing the $ with another char to avoid having to escape it all the time (eg %nick)

Statistics: Posted by user — Wed May 28, 2003 9:47 am

Request : Simple Action Reply Script

2003-05-28T07:47:55-04:00

thank you very much Papillon!

it finally works the way i want it to!

*cheers*

Statistics: Posted by Guest — Wed May 28, 2003 7:47 am

Request : Simple Action Reply Script

2003-05-28T07:38:19-04:00

try this:

Code:

set slaps {     "I love you, $nick!"     "\001ACTION slaps $nick back\001" } bind CTCP - ACTION action:slaps proc action:slaps {nick host handle chan keyword text} {   global slaps botnick   if { [string tolower [lindex $text 0]] == "slaps" } {     if { [string tolower [lindex $text 1]] == [string tolower $botnick]} {      putchan $chan "[string map "\$nick $nick" [lindex $slaps [rand [llength $slaps]]]]"    }   } }

Statistics: Posted by Papillon — Wed May 28, 2003 7:38 am

Request : Simple Action Reply Script

2003-05-28T06:59:07-04:00

i read what user adviced and i tried to script it and this was what i came out with. Yes, it works fine now..it responds on slaps...but it shows $nick instead of the user's nickname...advice?

Code:

set slaps {     "I love you, $nick!"     "\001ACTION slaps $nick back\001" } bind CTCP - ACTION action:slapsproc action:slaps {nick host handle chan keyword text} {global slapsglobal botnickif { [string tolower [lindex $text 0]] == "slaps" } {if { [string tolower [lindex $text 1]] == [string tolower $botnick]} {putchan $chan "[lindex $slaps [rand [llength $slaps]]]"}}}

Statistics: Posted by Guest — Wed May 28, 2003 6:59 am

Request : Simple Action Reply Script

2003-05-28T04:08:17-04:00

or even from:

Code:

if {[lindex $text 2] == "slaps"} {

to:

Code:

if {[strlwr [lindex [split $text] 2]] == "slaps"} {

Statistics: Posted by caesar — Wed May 28, 2003 4:08 am

Request : Simple Action Reply Script

2003-05-28T03:46:49-04:00

[lindex $text 0] would be "slaps", but you need to split the text before using list commands (lindex) on it to avoid problems with speacial chars like [, { and "...
set text [split $text]

Statistics: Posted by user — Wed May 28, 2003 3:46 am

Request : Simple Action Reply Script

2003-05-27T17:15:45-04:00

i'm like 5hrs new to tcl scripting. can someone please correct my mistake?

Code:

set slaps {    "I love you, $nick!"    "\001ACTION slaps $nick back\001"}bind CTCP - ACTION slapsproc slaps {nick host handle chan keyword text} {global slapsglobal botnickif {[lindex $text 2] == "slaps"} {if {[lindex $text 1] == $botnick} {putserv "PRIVMSG $chan : [lindex $slaps [rand [llength $slaps]]] ."}}}

Statistics: Posted by Guest — Tue May 27, 2003 5:15 pm

Request : Simple Action Reply Script

2003-05-20T06:27:27-04:00

whoops! haha. my bad

Statistics: Posted by Guest — Tue May 20, 2003 6:27 am

Request : Simple Action Reply Script

2003-05-19T17:45:43-04:00

Make your list of replies a tcl list. There are two ways to do this...

Code:

set slaps {    "I love you, $nick!"    "\001ACTION slaps $nick back\001"}

Code:

set slaps [list    "I love you, \$nick!"    "\001ACTION slaps \$nick back\001"]

Notice the difference...the braces ({}) add one layer of "protection" from the parser so special chars inside them (except braces) don't need to be escaped. In the first example, the escape sequence \001 will stay the way you see it, while in the second one they'll get parsed and made into the ascii char that ctcp's are enclosed in when the list is created. (You could prevent this by adding another backslash to escape the one you've got... if you really feel like it for some reason )

The $'s in the second example need to be escaped to avoid variable substitution at that point. $nick is not the nick of our victim because this list is created in the 'global namespace' before the proc using the messages is even triggered.

Now for the proc (that would best be triggered by a ctcp bind)...

Inside the proc body you'll have to import the variable to be able to use it (by using 'global slaps') or address it directly using a fully qualified namespace path (::slaps). Then use 'lindex' combined with 'rand' or 'expr rand()' and 'llength' to pick a random message. The message at this point is just a string, so the $nick part will not be replaced by the current 'nick' variable's content unless we tell tcl to parse the message for us. 'subst' is a good way to do this.

That's about all you need to know
...have fun.

PS: I never slapped botnick...that's a lie!

Statistics: Posted by user — Mon May 19, 2003 5:45 pm

Request : Simple Action Reply Script

2003-05-19T17:43:01-04:00

can someone help me code a simple tcl script that responds randomly to actions please?

example:

* user slaps botnick.
* botnick slaps user with a [random item]

example 2:

* user slaps botnick.
botnick : [random respond]

Thanks in advance!

Statistics: Posted by Guest — Mon May 19, 2003 5:43 pm