Toplu Unban etme
Toplu Unban etme mircalem hazır kodlar
20.01.2011

irc kodu:
;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