Hi guys
I found this solution. I found a code here in a forum, analyzed the structure, modified of my it and now do what I wanted.

Code
on ^*:rawmode:#:{
  if ($nick == $me) && (a isincs $1) {
    var %a = 1
    while (%a <= $len($1)) {
      var %c = $mid($1,%a,1)
      if (%c == +) { var %d = 1 }
      elseif (%c == -) { unset %d }
      if (%c === a) && ($gettok($2-,1-,32) != $me) {
        if (%d) { inc %stat.admin }
        else { inc %stat.deadmin }
      }
      inc %a
    }
  }
}


TECO
irc.PTirc.org (Co-Admin)