MASS MODES DELUXE

alias LgMode {
  var %x 0 , %argu.result , %argu.mode $1 , %argu.lg $len($1)
  while (%x < %argu.lg) {
    inc %x
    if ($mid(%argu.mode,%x,1) isin +-) { %argu.result = %argu.result $+ $mid(%argu.mode,$calc(%x + 1),1) | inc %x }
    else %argu.result = %argu.result $+ $mid(%argu.mode,%x,1)
  }
  return $len(%argu.result)
}

alias MultiMode {
  var %chan $iif($2,$2,$chan) , %MModeTemp , %MNickTemp , %MaxMode $modespl , %MaxNick $nick(%chan,0) , %NumeroNick 1 , %compteur1 1
  if ($left($1,1) !isin +-) var %MMode $chr(43) $+ $1
  else var %MMode $1
  while (%NumeroNick <= %MaxNick) {
    %MModeTemp = $NULL
    %MNickTemp = $NULL
    while ((%compteur1 <= %MaxMode) && ($calc($LgMode(%MModeTemp) + $LgMode(%MMode)) <= %MaxMode)) {
      if ($calc($LgMode(%MModeTemp) + $LgMode(%MMode)) <= %MaxMode) && ($nick(%chan,%NumeroNick) != $me) {
        %MModeTemp = %MModeTemp $+ %MMode
        %MNickTemp = %MNickTemp $+ $str($chr(32) $+ $nick(%chan,%NumeroNick),$LgMode(%MMode))
      }
      inc %NumeroNick
      inc %compteur1
    }
    mode %chan %MModeTemp %MNickTemp
    %compteur1 = 1
  }
}