Action Trigger

[Hazim]

I'm working on a script that will be triggered by a particular action in a channel, however I have NO scripting skill whatsoever. I have managed to piece together what I THINK may work, but I'd like someone to check it out if that's at all possible.

----- Script Begins ------

bind ctcp - "ACTION" bind:slap

proc bind:slap {nick uh hand dest kw arg} {
if {[isbotnick $dest]} {
return
}
if ($arg =~ /slaps ZeemBot/i) {
if ($nick =~ /qgz/i) {
if ($arg =~ /harder/i) {
puthelp "PRIVMSG $dest :oh yeah $nick, that's the way I like it!"
}
else {
puthelp "PRIVMSG $dest :oh yeah baby, harder!"
}
}
else {
puthelp "PRIVMSG $dest :01ACTION nut-punches $nick01"
}
}
}
}

----- Script Ends ------

Basically, anyone who slaps the bot and DOESN'T have qgz in their name will get a nutpunch, whereas if they have qgz in their name the bot will respond accordingly. if they have qgz in their name AND harder is in the action from the user, the bot responds with "That's the way I like it". I would also like all the triggers to be case insensitive.

Any help/input would be greatly appreciated for this first time poster

Thanks

<font size=-1>[ This Message was edited by: Hazim on 2002-04-25 17:18 ]</font>

[Petersen]

read the tcl manual for the command 'string' (specifically 'string match', and 'string tolower'). Also tcl doesnt use () in its if constucts like that, use {}