a little help...to make my bot do an action

hwjchim · Post by **hwjchim** » Wed Mar 10, 2004 2:54 pm

Hey guys/gals.
I have a problem/question.
I'm trying to make my bot do a certain action.
I would like it to do /me starts dancing in the room
I want it to do that action whenever it sees the word "dedicates"

I have been trying and this is what i got (not working)

set word "dedicates"

bind notc - "*dedicates*" dance:notc

proc dance:notc {nick host hand chan rest} {
#putlog "$nick $hand $chan $host $rest"

if { $hand == $word } {
putserv "USAGE /me starts dancing"
}
}

putlog "- scottie's dancing script... loaded."

Thanks.

strikelight · Post by **strikelight** » Wed Mar 10, 2004 8:03 pm

An Action on IRC is actually a CTCP, which in turn is just a PRIVMSG...

Code: Select all

putserv "PRIVMSG <target> :\001ACTION dances\001"

\001 is a character that signifies the start of a ctcp.

hwjchim · Post by **hwjchim** » Wed Mar 10, 2004 8:29 pm

set word "dedicates"

bind notc - "*dedicates*" dance:notc

proc dance:notc {nick uhost handle text dest} {
#putlog "$nick $hand $chan $host $rest"

if { $hand == $word } {
putserv "PRIVMSG <i.put.my.channel.in.here> :\001ACTION dances\001"
}
}

putlog "- scottie's dancing script... loaded."

still no luck....
Strikelight, you said to put <target>
target = the channel or the nick ?
And do I have this right? if { $hand == $word }
or should it be if { $handle equal $word } ?

Thanks
I changed it to this, still no luck

strikelight · Post by **strikelight** » Wed Mar 10, 2004 8:42 pm

<target> is where you specify where you want the bot to do the action, be it a nickname, or a channel... However, don't include the <>'s...

And no, your if statement is not correct... you have not declared the variable "word" in the local scope of the procedure.. and there is no variable "hand" in your procedure either.

For a Tcl tutorial, concentrating on eggdrop scripting in particular, go to http://www.suninet.nl/tclguide