on *:input:*:{ 
  if ($1 == ?voice) { ucm +vvvvv $2 }
  elseif ($1 == ?devoice) { ucm -vvvvv $2 }
  elseif ($1 == ?op) { ucm +ooooo $2 }
  elseif ($1 == ?deop) { ucm -ooooo $2 }
} 
 
alias ucm {
  var %x = 1,%u
  while ($nick($chan,%x)) {
    if ($2 iswm $v1) && ($v2 != $me) %u = %u $v1
    if ($numtok(%u,32) == 5) { mode $chan $1 %u | %u = $null }
    inc %x
  }
  if (%u) mode $chan $1 %u
}