I change it to use nickname instead:

on @$*:text:/^!(up|down)( |$)/iS:#:{
  var %m = q a o, %? = $regml(1)
  var %a = nick1 nick2 nick3 nick4 nick5
  if ($istok(%a,$nick,32)) {
    if ($$2 ison #) {
      mode # $+($iif(%? = up,+,-),$&
        $remove(%m,$chr(32))) $str($chr(32) $2,$&
        $numtok(%m,32)) | halt
    }
    .notice $qt($2) is not here!
  }
}

change nick1, nick2, nick3, etc..with their actual nicknames. The command is:

 !up/down NickHere

to set +qao

Be warned though, people can impersonate.