Mine

on $*:TEXT:/^[!@]mass(d)?[vhobk]/Si:#:{ 
  if ($address($me,2) == $address($nick,2)) || ($nick isop $chan) { 
    goto massm 
    halt 
  } 
  elseif ($nick ishop $chan) && ($right($1,1) == v) { 
    goto massm 
    halt 
  } 
  halt 
  :massm 
  var %massm = 0 
  while (%massm <= $nick($chan,0)) { 
    inc %massm 
    var %massc = %massc $nick($chan,%massm) 
    if ($right($1,1) == k) { 
      if ($nick($chan,%massm) != $me) { 
        /kick $chan $nick($chan,%massm) MassKick. 
      } 
    } 
  } 
  if ($right($1,1) != k) { 
    mode $chan $iif($right($1,2) == d $+ $right($1,1),- $+ $str($right($1,1),%massm),+ $+ $str($right($1,1),%massm)) %massc 
  } 
}