Unnamed

massmode {
  if ($1 ischan) && ($regex($1-,/^(.+ [\+-] [ohv])$/)) {
    var %i = $nick($1,0),%d = 0,%x
    while (%i) {
      if ($nick($1,%i) $iif($2 == +,!) $+ $replace($3,o,isop,h,ishop,v,isvoice) $1) && ((!$q.net) || (? !iswm $nick($1,%i))) && ($me != $nick($1,%i)) {
        %x = $addtok(%x,$nick($1,%i),32)
        if ($numtok(%x,32) == $modespl) {
          $iif(%d,.timer 1 %d) mode $1-2 $+ $str($3,$modespl) %x
          %x = ""
          inc %d
        }
      }
      dec %i
    }
    if (%x) { $iif(%d,.timer 1 %d) mode $1-2 $+ $str($3,$numtok(%x,32)) %x }
  }
  else { kte_error -a wrong parameters }
}

-------------------------------------------------------------------------------------------

then make a popup:

Mass &Op:massmode $$chan + o