command in .tcl to exclude ops

[DrTongue]

I have a .tcl that when someone in the channel private messages the bot, the bot itself says in channel:

"<nick> You were asked not to private message anyone when you entered."

The problem is when someone does it who is an op and they use /msg to op or IDENT or whatever, they receive this warning. I am trying to get the bot to reconize if this person has the +o flag to NOT give the channel message. I was trying:

if {([matchattr $hand o|o $chan])} {
return 0
}

But it's not working. Any suggestions?
Thanks!

[Sir_Fz]

There's no chan attribute in a msg or msgm bind.

[DrTongue]

So:

if {([matchattr $hand o|o])} {
return 0
}

???

And would $nick or nick be what I should use instead of $hand?

[Sir_Fz]

No that's incorrect, show us your code so we could help you.

[DrTongue]

Ok sorry....here is the script itself that makes the bot respond with a message in the channel:

bind msgm - "*" proc:laina
#seting respondiendo el Privado
set chan "#channel"
proc proc:laina {nick uhost hand arg} {
global chan
set line [string trim $arg]
if {$nick == "SeenServ"} {
puthelp "privmsg $chan : $nick You were asked NO private messages PLEASE' when you entered, thank you."
return 0
}

puthelp "privmsg $chan : $nick You were asked NO private messages PLEASE' when you entered, thank you."

}
return 0

[Sir_Fz]

Code: Select all

bind msgm - "*" proc:laina
#seting respondiendo el Privado
set chan "#channel"
proc proc:laina {nick uhost hand arg} {
 global chan
 set line [string trim $arg]
 if {$nick == "SeenServ"} {
  puthelp "privmsg $chan : $nick You were asked NO private messages PLEASE' when you entered, thank you."
  return 0
 }
 if {[matchattr $hand o|o $chan]} { return 0 }
 puthelp "privmsg $chan : $nick You were asked NO private messages PLEASE' when you entered, thank you."
}

[DrTongue]

Thank you Sir! Works like a charm!