Tekil Mesaj gösterimi
Alt 07 Nisan 2009, 20:32   #1
Çevrimdışı
muratt_aziz
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Toplu line ban kaldırma




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

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet