egghelp/eggheads community

Help with response to CTCP ACTION

2004-04-13T13:01:03-04:00

Instead of lots of if's use switch to "evaluate one of several scripts, depending on a given value"

Statistics: Posted by caesar — Tue Apr 13, 2004 1:01 pm

Help with response to CTCP ACTION

2004-04-13T11:50:08-04:00

Late last night, this is what I got working. One of the biggest errors was that the CTCP ACTION requires 6, not 5, variables to be passed.

bind CTCP - action act:scritches

proc act:scritches {nick mask hand chan keyword arg} {
global scritches
if {[lindex $arg 0] == "scritches"} {
if {[lindex $arg 1] == "Max" || [lindex $arg 1] == "MaxCat" || [lindex $arg 1] == "max" || [lindex $arg 1] == "maxcat"} {
putserv "PRIVMSG $chan :\001ACTION [lindex $scritches [rand [llength $scritches]]] $nick.\001"
}
}
global pets
if {[lindex $arg 0] == "pets"} {
if {[lindex $arg 1] == "Max" || [lindex $arg 1] == "MaxCat" || [lindex $arg 1] == "max" || [lindex $arg 1] == "maxcat"} {
putserv "PRIVMSG $chan :\001ACTION [lindex $pets [rand [llength $pets]]] $nick.\001"
}
}
global rubs
if {[lindex $arg 0] == "rubs"} {
if {[lindex $arg 1] == "Max" || [lindex $arg 1] == "MaxCat" || [lindex $arg 1] == "max" || [lindex $arg 1] == "maxcat"} {
putserv "PRIVMSG $chan :\001ACTION [lindex $rubs [rand [llength $rubs]]] $nick.\001"
}
}
}

Someone also gave me a hint about using string -nocase to take care of the case issues. Now one thing this will not do, is accept wildcards [lindex $arg 1] == "Max*" and not sure why, it "breaks" it to do so (runs, loads, just won't respond), but it does. I'll take a look at that script you suggested.

Statistics: Posted by darkmare — Tue Apr 13, 2004 11:50 am

Help with response to CTCP ACTION

2004-04-13T06:47:19-04:00

You might wish to take a look at a script Nerfbendr wrote called ActionResponder.tcl. It does almost the same thing.

Nerfbendr's Site

Statistics: Posted by YooHoo — Tue Apr 13, 2004 6:47 am

Help with response to CTCP ACTION

2004-04-12T19:33:26-04:00

OK, after searching the last few hours through at least 15 pages of search returns, I'm still having trouble. First off,here's the part of the scipt:

bind CTCP - action act:scritches

proc act:scritches {nick mask hand chan arg} {
global scritches
if {[lindex $arg 1] == "scritches"} {
if {[lindex $arg 2] == "Max"} {
putserv "PRIVMSG $chan :\001ACTION [lindex $scritches [rand [llength $scritches]]] at $nick."
}
}
}

set scritches {
"purrs loudly"
"fires up the rumble machine"
"looks up"
"mrrrps"
}

I'm trying to get a cat to respond to actions (and have random responses). The basic one above is responding to "ACTION Brendan scritches Max" (or MaxCat). I'm fairly new to tcl, and this is my second bot. Eventually he'll respond to other things and queue them up for eating, and well, this'll be a complicated bot by the time I get done with it You'll probably see me here often. I'm obviously missing something here, because it's not working, and I'm still not attuned to the nuances of tcl syntax.

I'd appreciate any help with this.

Statistics: Posted by darkmare — Mon Apr 12, 2004 7:33 pm