mass modes

alias mass {
  var %i 1,%p,%m $modespl,%mass,%1 isin
  if $$1 %1 +op { %p = $+(+,$str(o,%m)) }
  elseif $$1 %1 -deop { %p = $+(-,$str(o,%m)) }
  elseif $$1 %1 +hop { %p = $+(+,$str(h,%m)) }
  elseif $$1 %1 -dehop { %p = $+(-,$str(h,%m)) }
  elseif $$1 %1 +voice { %p = $+(+,$str(v,%m)) }
  elseif $$1 %1 -devoice { %p = $+(-,$str(v,%m)) }
  while $nick(#,%i) { $iif($v1 != $me,%mass = %mass $v1)
    if ($gettok(%mass,0,32) = %m || $nick(#,0) = %i) {
  mode # %p %mass | %mass = "" } | inc %i }
}