Your code would probly look something like this :
Code: Select all
bind pub - !dinner pub:dinner
proc pub:dinner {nick uhost hand channel arg} {
set respondnick "jack"
if {($nick == $respondnick)} {
putserv "PRIVMSG $channel :\001ACTION gives $nick\001 dinner"
}
}
To trigger the proc, one would type --> !dinner in the channel.
Now this is only to get you started, there is nothing fancy here, no checking of case-sensitive, no checking of nicks within lists etc. seeing as you want to learn, and wasn't asking for a full on script. (In that case, look for something like a Bar-script in the tcl-archives...)
Hope this helps
FossilAtrum