on *:text:*:#:{
if ($nick isop $chan) {
  if ($left($1,1) = $chr(43)) {
    var %x 1, %y $len($1)
    var %palavras 0
    while (%x <= %y) {
      if ($mid($1,%x,1) != $chr(45)) && ($mid($1,%x,1) != $chr(43)) {
        inc %palavras
      }
      inc %x
    }

    if ($mid($1,2,1) == o) {
      if ($me isop #) && ($0 = $calc(%palavras + 1)) {
        mode # $1-
        unset %palavras
      }
      else { Msg # Parametros insuficientes }
    }

    if ($mid($1,2,1) == v) {
      if ($me isop #) && ($0 = $calc(%palavras + 1)) {
        mode # $1-
        unset %palavras
      }
      else { Msg # Parametros insuficientes }
    }

  }

  if ($left($1,1) = $chr(45)) {
    var %x 1, %y $len($1)
    var %palavras 0
    while (%x <= %y) {
      if ($mid($1,%x,1) != $chr(45)) && ($mid($1,%x,1) != $chr(43)) {
        inc %palavras
      }
      inc %x
    }

    if ($mid($1,2,1) == o) {
      if ($me isop #) && ($0 = $calc(%palavras + 1)) {
        mode # $1-
        unset %palavras
      }
      else { Msg # Parametros insuficientes }
    }

    if ($mid($1,2,1) == v) {
      if ($me isop #) && ($0 = $calc(%palavras + 1)) {
        mode # $1-
        unset %palavras
      }
      else { Msg # Parametros insuficientes }
    }
  }
}
}