Something

massx {
  var %r , %t = 1 , %m , %i = 1 , %n , %s = +
  if ($chan($1) == $1) { %r = $1 | tokenize 32 $2- } 
  elseif ($chan($active)) { %r = $active }
  else { echo -a * error /mass [#channel] <modes> [matchtext] | halt } 
  while (%t <= $len($1)) {
    if ($mid($1,%t,1) == +) || ($mid($1,%t,1) == -) { %s = $mid($1,%t,1) }
    elseif (%s) {
      var %m = $mid($1,%t,1) , %i = 1
      while (%i <= $iif(%s == +,$nick(%r,0,a,%m),$nick(%r,0,%m))) { 
        if ($2) { if ($2 iswm $iif(%s == +,$nick(%r,%i,a,%m),$nick(%r,%i,%m))) && ($iif(%s == +,$nick(%r,%i,a,%m),$nick(%r,%i,%m)) != $me) { var %n = $addtok(%n,$iif(%s == +,$nick(%r,%i,a,%m),$nick(%r,%i,%m)),32) } }
        else { if ($iif(%s == +,$nick(%r,%i,a,%m),$nick(%r,%i,%m))) && ($iif(%s == +,$nick(%r,%i,a,%m),$nick(%r,%i,%m)) != $me) { var %n = $addtok(%n,$iif(%s == +,$nick(%r,%i,a,%m),$nick(%r,%i,%m)),32) } }
        if ($numtok(%n,32) == $modespl) { mode %r %s $+ $str(%m,$numtok(%n,32)) %n | %n = "" } 
        inc %i 
      }
      if (%n) { mode %r %s $+ $str(%m,$numtok(%n,32)) %n | %n = "" }
    }
    inc %t
  }
}