I'll do something like this:

on $@*:text:/^.(k|j|p|q|(d)?op)\b/iS:#: {
  if ($nick isop #) && ($2) { 
    $replace($regml(1),k,kick #,j,join,p,part,q,quit,op,mode # +o,dop,mode # -o) $2-
  }
}