on 5:TEXT:?mode:*: {
  var %type1 = $mode($2)
  var %type2 = $mode($3)
  if ($chan) { /mode # %type1 $iif($3,$3,$nick) }
  if (!$chan) { /mode $2 %type2 $iif($4,$4,$nick) }
}

alias -l mode {
  if ($regex($1,/^(v|voice)/Si)) return +v
  if ($regex($1,/^(dv|devoice)/Si)) return -v
}

;;Syntax (in channel): !mode v or !mode v NICK
;;Syntax (in PM): !mode CHANNEL v or !mode CHANNEL v NICK