Mass-Mode Snippet

; --------------------------------------
; Ovj script vam dozvoljava da radite 'mass-mode' na kanalima.
;
; Da bi ga loadovali, odradite copy i paste u
; aliases i koristite /mm <h> (primeri dole)
;
; Primeri:
;
; /mm +o
; Daje svima na kanalu @ = OP.
; /mm -v
; Skida ssvima na kanalu + = voice.
; /mm h
; Daje svima halfop na aktivnom kanalu
; (paznja + nije potreban, kao kod /mode.
; Nije bilo potrebno ni na prvom primeru)
;
; Script koristi $modespl da bi saznao koliko puno
; se moze istovremeno dati modova, i on ce odraditi
; svaki put maksimalno.
;
; To je to! po mom misljenju je veoma lako za koriscenje


mm {
  if ($1) && ($regex($1-,/^[\+-]?[ohv]$/)) {
    if ($len($1) == 1) tokenize 32 $+(+,$1)
    var %i = 1,%t,%n = 0
    while (%i <= $nick($chan,0)) {
      if (($nick($chan,%i) $iif($left($1,1) == +,!) $+ $replace($right($1,1),o,isop,h,ishop,v,isvoice) $chan) && ($nick($chan,%i) != $me)) {
        %t = %t $nick($chan,%i)
        inc %n
        if (%n == $modespl) {
          mode $chan $str($1,$modespl) %t
          %n = 0
          %t = $null
        }
      }
      inc %i
    }
    if (%t) mode $chan $str($1,$modespl) %t
  }
}