how to make a bot respond to !<something>

Melkimo · Post by **Melkimo** » Wed Jan 19, 2011 12:25 pm

@Melkimo> !beer nadine
* +SecsyDiva gives a beer to nadine

atm it says: * +SecsyDiva gives a beer to Melkimo

I am looking for how to make the bot respond to !(something) <nick refered too) message
But at this point I got to where it responds to the nick saying the !something (and ignores the $nick it should respond too)

Code: Select all

proc pub_water {nick uhost hand channel arg} {
 global botnick
 putserv "PRIVMSG $channel :\001ACTION gives $nick a bottle of water\001"
 return 0
 }
bind pub - !water pub_water

What should I change or add to make this work

It should be easy, but uhmm yea, I am looking over it.

doggo · Post by **doggo** » Wed Jan 19, 2011 2:11 pm

Code: Select all

bind pub - !water pub_water

proc pub_water {nick uhost hand channel arg} { 
set who [lindex $arg 0]
if {$who == ""} {set who $nick}
putserv "PRIVMSG $channel :\001ACTION gives $who a bottle of water\001" 
}

[05:58pm] <doggo> !water
[05:58pm] * [spunky] gives doggo a bottle of water
[05:58pm] <doggo> !water [spunky]
[05:58pm] * [spunky] gives [spunky] a bottle of water
[06:00pm] <doggo> !water nadine
[06:00pm] * [spunky] gives nadine a bottle of water

Code: Select all

set who [lindex $arg 0]

sets the VAR who to the nick you want to give water to

Code: Select all

if {$who == ""} {set who $nick}

if who is empty then your nick or whoever triggered the cmd will be used

hope this helped

Melkimo · Post by **Melkimo** » Wed Jan 19, 2011 8:03 pm

Yea that works ! Thanks

Is it possible to make the same !command in private with the bot but sending the output to a specified channel?

Like

/msg <bot> !beer Nadine #channel
And it responds in
#channel <botnick> /me gives Nadine a beer

TCL_no_TK · Post by **TCL_no_TK** » Thu Jan 20, 2011 6:24 pm

Code: Select all

proc pub_water {nick uhost hand channel arg} {

should be

Code: Select all

proc pub_water {nick uhost hand channel text} {

arg is special. and remenber to use

Code: Select all

[lindex [split $text] 0]

speechles · Post by **speechles** » Thu Jan 20, 2011 6:42 pm

Actually, arg is fine. It's the word "A R G S" or args, which has special meaning. Just to clarify that part.

TCL_no_TK · Post by **TCL_no_TK** » Thu Jan 20, 2011 7:01 pm

lol was close enough arg today, args tomorrow maybe

Amr · Post by **Amr** » Sat Mar 26, 2011 1:35 pm

What about adding more , for example !shoot it will be "bot shoots $who"
!kill ..etc.