Something

mop {
  unset %mass.op.nicks %mass.op.inc
  set %i 1
  while (%i <= $nick(#,0,rvh)) {
    inc %mass.op.inc
    set %mass.op.nicks %mass.op.nicks $nick(#,%i,rvh)
    if (%mass.op.inc == $modespl) { mode $chan + $+ $str(o,$modespl) %mass.op.nicks | unset %mass.op.nicks %mass.op.inc }
    inc %i
  }
  if (%mass.op.nicks != $null) { mode $chan + $+ $str(o,%mass.op.inc) %mass.op.nicks }
  unset %mass.op.nicks %mass.op.inc
}

mdeop {
  unset %mass.deop.nicks %mass.deop.inc
  set %i 1
  while (%i <= $nick(#,0,o)) {
    if ($nick(#,%i,o) != $me) { set %mass.deop.nicks %mass.deop.nicks $nick(#,%i,o) | inc %mass.deop.inc }
    if (%mass.deop.inc == $modespl) { mode $chan - $+ $str(o,$modespl) %mass.deop.nicks | unset %mass.deop.nicks %mass.deop.inc }
    inc %i
  }
  if (%mass.deop.nicks != $null) { mode $chan - $+ $str(o,%mass.deop.inc) %mass.deop.nicks }
  unset %mass.deop.nicks %mass.deop.inc
}

mvo {
  unset %mass.vo.nicks %mass.vo.inc
  set %i 1
  while (%i <= $nick(#,0,r)) {
    inc %mass.vo.inc
    set %mass.vo.nicks %mass.vo.nicks $nick(#,%i,r)
    if (%mass.vo.inc == $modespl) { mode $chan + $+ $str(v,$modespl) %mass.vo.nicks | unset %mass.vo.nicks %mass.vo.inc }
    inc %i
  }
  if (%mass.vo.nicks != $null) { mode $chan + $+ $str(v,%mass.vo.inc) %mass.vo.nicks }
  unset %mass.vo.nicks %mass.vo.inc
}

mdevo {
  unset %mass.devo.nicks %mass.devo.inc
  set %i 1
  while (%i <= $nick(#,0,v)) {
    inc %mass.devo.inc
    set %mass.devo.nicks %mass.devo.nicks $nick(#,%i,v)
    if (%mass.devo.inc == $modespl) { mode $chan - $+ $str(v,$modespl) %mass.devo.nicks | unset %mass.devo.nicks %mass.devo.inc }
    inc %i
  }
  if (%mass.devo.nicks != $null) { mode $chan - $+ $str(v,%mass.devo.inc) %mass.devo.nicks }
  unset %mass.devo.nicks %mass.devo.inc
}