on $*:TEXT:/^[!@]mass(d|u)?[vhobk]/Si:#:{
  if ($me isop $chan) || ($me ishop $chan) {
    if ($address($me,4) == $address($nick,4)) || ($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
      if ($nick($chan,%massm) != $me) {
        var %massc = %massc $iif($right($1,1) == b,$address($nick($chan,%massm),1),$nick($chan,%massm))
        if ($right($1,1) == k) {
          kick $chan $nick($chan,%massm) $iif($2 != $null, $2-, MassKick.)
        }
      }
    }
    if ($right($1,1) != k) {
      mode $chan $iif($right($1,2) == d $+ $right($1,1),-,+)) $+ $str($right($1,1),%massm) %massc
    }
  }
}