[muratt_aziz]

Tüm ban line kanallarda toplu kaldırmaya yarayan bir kod
zline
gline
shun
kline
ve tüm banları temizler
!unban yazmanız yeterli
!ban yazınca komutları sıralıyor

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

menu * {
  Toplu Ban aç
  .Zlineleri aç için :/Rln -z
  .Klineleri aç için:/Rln -k 
  .Glineleri aç için:/Rln -g
  .Shunları aç:/Rln -s
.Kanda banları aç:/aLLban
  .Tüm Banları aç:/clearallban
  .Tüm Lineleri aç:/unb
  .Tüm yasakları aç:/unban
}
 
on *:input:#:{ 
  if ($1 == !unban) { 
    unban
  }
  if ($1 == !ban) { 
    rln
  }
}
alias unban {
  .rln -z
  .timer 1 05 rln -s
  .timer 1 10 rln -k
  .timer 1 15 rln -g
  .timer 1 20 clearallban
}
alias unb {
  .rln -z
  .timer 1 05 rln -s
  .timer 1 10 rln -k
  .timer 1 15 rln -g
}
alias RLN {
  if ($1 = $null) { 
    echo -a Eksik parametre 
    echo -a /Rln -z Zline acmak için 
    echo -a /Rln -k Kline acmak için 
    echo -a /Rln -g Gline acmak için 
    echo -a /Rln -s Shun acmak için
    echo -a /aLLban  Kanalın tüm Banlarını acmak için
echo -a /clearallban Tüm banları açmak için
  } 
  if ($1 = -s) {
    set %t -s
    .enable #Line
    stats s
  }
  if ($1 = -k) {
    set %t -k
    .enable #Line
    stats k
  }
  if ($1 = -z) {
    set %t -z
    .enable #Line
    stats k 
  }
  if ($1 = -g) {
    set %t -g
    .enable #Line
    stats g
  }
}
#Line off
raw 223*:*:{ 
  if ($1 = z ) || (%t = -z ) {
    if (!$window(@Line)) { .window -bLe @Line }
    else { echo @Line Acılan: %t $+ Line 5 $+ $3 }
    zline - $+ $3 
  }
  if ($1 = k ) || (%t = -k ) {
    if (!$window(@Line)) { .window -bLe @Line }
    else { echo @Line Acılan: %t $+ Line 5 $+ $3 }
    kline - $+ $3 
  }
  if ($1 = s ) || (%t = -s ) {
    if (!$window(@Line)) { .window -bLe @Line }
    else { echo @Line Acılan: %t $+ Line 5 $+ $3 }
    shun - $+ $3 
  }
  if ($1 = g ) || (%t = -g ) {
    if (!$window(@Line)) { .window -bLe @Line }
    else { echo @Line Acılan: %t $+ Line 5 $+ $3 }
    gline - $+ $3 
  }
  halt
}
raw 219*:*:{ 
  unset %t 
  .echo @line 4,8 %t $+ line işlemi tamam 
  .timer 1 1 .disable #Line 
  halt 
}
#Line off 
 
alias aLLban {
  var %i = 0
  while (%i <= $ibl($active,0)) {
    mode $chan -b $ibl($active,%i) 
    inc %i
  }
} 
alias clearallban {
  if ($regex($usermode,/(o|O|N|a|A|C))) { 
    echo 4 -a IRCop modu tespit edildi, bulunduğunuz bütün kanalların banı açılıyor..
    var %cx = 1,%xc = $chan(0)
    while (%cx <= %xc) {
      clearbans $chan(%cx)
      inc %cx 1
    }
    halt 
  }
  var %u = 1,%f = $chan(0)
  while (%u <= %f) {
    if ($me isop $chan(%u) || $me ishop $chan(%u)) { clearbans $chan(%u) | echo 4 -a *** $chan(%u) Kanalının banı açılıyor.. }
    inc %u 1
  }
}
raw 478:*:{ if ($regex($usermode,/(o|O|N|a|A|C))) { echo -at $2 Kanalının Ban Listesi Dolmuş Durumda, Banlar Temizleniyor.. | clearbans $2 | Halt } }
alias massmode {
  var %i = 1, %x = $numtok($3-,32), %y = $modespl
  while (%i <= %x) {
    mode $1 $+($left($2,1),$str($right($2,1),$numtok($gettok($3-,$+(%i,-,$calc(%i + %y)),32),32))) $gettok($3-,$+(%i,-,$calc(%i + %y)),32)
    inc %i %y
  }
}
alias clearbans {
  var %1 = $iif($1,$1,$chan), %b = $ibl(%1,0), %i, %t
  if (%b == 0) {
    echo -t %1 * Ban Listesi Alınıyor $+(%1,...)
    mode %1 b
  }
  else {
    var %i = $ibl(%1,0)
    while (%i) {
      var %t = $addtok(%t,$ibl(%1,%i),32)
      dec %i
    }
    massmode %1 -b %t
  }
}

Bir kac kodu birleştirdim güzel bişey cıktı ortaya paşlaşmak istedim sizinle
Kod yapımında emeği geçen ©º©º®î©º XcLusive ye teşekür ederim