alias massmode { 
  if ($active ischan) {
	var %i = 1
	while $nick(#,%i) {
	  %x = $+(%x,$chr(32),$ifmatch)
	  if ($numtok(%x,32) == 3) { 
	  mode # $+($left($1,1),$str($right($1,1),3)) %x
	  unset %x 
	}
	inc %i
  }
  if (%x) { 
	mode # $+($left($1,1),$str($right($1,1),$numtok(%x,32))) %x
	unset %x 
  }
}