Bot should read and repeat something

[darton]

Hello!

BreakFstO: WTF

When this appears in mIRC my bot should answer for example: "BreakFstO got ownt." But the name isnt always the same. So my bot must read every name before a colon and repeat the same name in its answer. Is that possible?

[Sir_Fz]

Code: Select all

bind pub - wtf ownt

proc ownt {n u h c a} {
 puthelp "privmsg $c :$n got ownt"
}

[darton]

(@BRenBot) darton: wtf
(%Bot) darton got ownt.

Thats the way the channel displays the users. And with your script the bot wouldnt say "darton got ownt".

(@darton) wtf
(%Bot) darton got ownt.

Here your script works. But it should work in the first case.
It must look like this:

Code: Select all

bind pubm - *$read: wtf" wtf
proc wtf {nick host hand chan rest} {
  puthelp "privmsg $chan :$read got ownt."
}

But the $read is wrong. I look for a command that makes the bot look what is written before a colon and repeat it.

[Sir_Fz]

Code: Select all

bind pubm - * ownt

proc ownt {n u h c a} {
 set nick [lindex [split $a] 0]
 set word [lindex [split $a] 1]
 if {[string equal -nocase wtf $word]} {
  puthelp "privmsg $c :[string trimright $nick :] got ownt"
 }
}

[darton]

Hey its really working. But there is a problem. As my channel is connected with a game and I want that the message will be displayed in the game too I must change the script to: "!msg [string trimright $nick :] got ownt". The message is also displayed in game but it is displayed as: "[]08[]Darton[][] got ownt.
I think the bot transfer my nick with the formatting because the players are displayed in channel in yellow or in red colour.
So is it possible to change the script so that the bot doesn't transfer the formatting?

[darton]

With Sir_Fz's Script it looks like this:

(@BRenBot) darton: wtf
(%Bot) darton got ownt.

But it should look like this:

(@BRenBot) darton: wtf
(%Bot) darton got ownt.

What do I have to change?

[Sir_Fz]

Read Tcl-commands.doc about the [stripcodes] command.

[darton]

I changed it to this and its working now

Code: Select all

bind pubm - * ownt

proc ownt {n u h c a} {
 set nick [lindex [split $a] 0]
 set word [lindex [split $a] 1]
 set nick [stripcodes bcruag $nick]
 if {[string equal -nocase wtf $word]} {
  puthelp "privmsg $c :!msg [string trimright $nick :] got ownt."
 }
}

[darton]

But now I want that the bot only reacts when the BRenBot write "wtf".

(@BRenBot) darton: wtf
(%Bot) darton got ownt.

(@Darton) darton: wtf
(%Bot) darton got ownt.

Here the bot shouldn't react.
Why does this script not work?

Code: Select all

bind pubm - * ownt

proc ownt {n u h c a} {
 set nick [lindex [split $a] 0]
 set word [lindex [split $a] 1]
 set nick [stripcodes bcruag $nick]
 if {[string equal -nocase "BRenBot" $nick]} {
 if {[string equal -nocase wtf $word]} {
  puthelp "privmsg $c :!msg [string trimright $nick :] got ownt."
 }
 }
}

[Sir_Fz]

You need to match on $n instead of $nick.

[darton]

Argh, sure. Now its working. Thanks a lot.