Mine

on *:text:!m *:#:{
  if ($nick isop $chan) {
    if ($2 == enable) {
      set %o 1
      while ($nick($chan,%o)) {
        if ($nick($chan,%o) isreg $chan) mode $chan +v $nick($chan,%o)
        inc %o
      }
      mode $chan +m
    }
    elseif ($2 == disable) mode $chan -m
  }
}