Toplu Unban Kaldirma Kodu

Bu Kod ile Kanaldaki Banlarin hepsini kaldirabilir. Bazilarini kaldirabilir. Kod içinde anlatimida yazmaktadir. Kod sahibi : Ailence

;tub = total unban
alias tub {
  if $1 !ischan || !$2 { /echo  $color(info text) -at * /tub: insufficient parameters | halt }
  if $me isop $1 || $me ishop $1 {
    var %i = $ibl($1,0), %items = $iif($calc($ibl($1,0) - $2) < 0,$ibl($1,0),$2), %modespl = $null
    if !$hget($+($1,-ibl)) { hmake $+($1,-ibl) %items }
    while $hget($+($1,-ibl),0).item < %items {
      if $3 { if $gettok($ibl($1,%i).by,1,33) == $3 { hadd $+($1,-ibl) $ibl($1,%i) $ibl($1,%i).ctime $gettok($ibl($1,%i).by,1,33) } }
      else { hadd $+($1,-ibl) $ibl($1,%i) $ibl($1,%i).ctime }
      dec %i 1
      if %i <= 0 { break }
    }
    %i = $hget($+($1,-ibl),0).item
    while %i {
      if $calc($count(%modespl,$chr(32)) + 1) >= $modespl { .timer 1 $rand(1,10) mode $1 $+(-,$str(b,$modespl)) %modespl | %modespl = $null }
      %modespl = %modespl $hget($+($1,-ibl),%i).item
      dec %i 1
    }
    if %modespl { .timer 1 $rand(1,10) mode $1 $+(-,$str(b,$calc($count(%modespl,$chr(32)) + 1)))) %modespl }
    hfree $+($1,-ibl)
  }
}
on *:op:#: { if $opnick == $me && !$chan($chan).ibl { set %ibl $true | mode $chan +b } }
on *:halfop:#: { if $hopnick == $me && !$chan($chan).ibl { set %ibl $true | mode $chan +b } }
raw 367:*: { if %ibl { halt } }
raw 368:*: { if %ibl { unset %ibl | halt } }

;eğer kanalın banlistesi 30 u geçmişse($ibl($chan,0) >= 30) son 15 banı kaldır(/tub $chan 15)
on *:ban:#: { if $ibl($chan,0) >= 30 { /tub $chan 15 } }

;f8 e basınca kanaldaki en son banlardan 15 tanesini kaldırsın
alias F8 { if $active ischan { tub $active 15 } }

;ctrl + f8 e basınca kanaldaki en son banlarınızdan(sizin banınız) 5 tanesini kaldırsın
alias CF8 { if $active ischan {  tub $active 5 $me } }

;shift + f8 e basınca kanaldaki en son verilen nickin banlarından 5 tanesini kaldırsın

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir