Atılan Banlar hakkında Bilgi Addon
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
alias banlar { if $active == Status Window || $chr(35) !isin $active { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: Herhangi bir kanal penceresinde değilsiniz.) | var %++,%+++ = $chan(0) | while %+++ { %++ = $addtok(%++,$chan(%+++),32) | dec %+++ } | echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: Tarıyabileceğiniz kanallar:,$chr(2),$chr(32),%++,$chr(32),$chr(2)) | halt } write -c banlar.txt mode $active +b var %1 = 1,%2 = $ibl($active,0),%3 = $ibl($active,0).by,%4 = $ibl($active,0).date | while (%1 <= %2) && (%1 <= %3) && (%1 <= %4) { echo # $+($timestamp,$chr(45),$chr(32),Numara:,$chr(2),$chr(32),%1,$chr(32),$chr(2),Banlıyan:,$chr(32),$chr(2),$gettok($ibl($active,%1).by,1,33),$chr(32),$chr(2),Mask:,$chr(2),$chr(32),$ibl($active,%1),$chr(32),$chr(2),Tarih:,$chr(2),$chr(32),$replace($ibl($active,%1).date,Jan,Ocak,Feb,Şubat,Mar,Mart,Ap,Nisan,May,Mayıs,Jun,Haziran,Jul,Temmuz,Aug,Ağustos,Sep,Eylül,Oct,Ekim,Nov,Kasım,Dec,Aralık)) | write banlar.txt $+(%1,$chr(32),%) $ibl($active,%1) | inc %1 } echo # $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$active,$chr(32),$chr(2),kanalı için tarama tamamlandı. Çıkan ban sayısı:,$chr(32),$chr(2),$calc(%1 - 1)) echo # $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),Banların hepsini açmak için;,$chr(2),$chr(32),/banac,$chr(32),$chr(2),yazınız.) echo # $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),Herhangi birini açmak için;,$chr(2),$chr(32),/banac numara,$chr(32),$chr(2),yazınız.) } alias banac { if $chr(35) isin $active && $me !isop $active { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$active,$chr(32),$chr(2),kanalında op değilsiniz.) | halt } if $active == Status Window || $chr(35) !isin $active { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: Herhangi bir kanal penceresinde değilsiniz.) | halt } if $ibl($active,0) == 0 { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: Kanal ban listesi boş.) | halt } if $lines(banlar.txt) < $1 { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: Kayıtlanan ban sayısı: $qt($lines(banlar.txt)),$chr(32),$chr(32),sizin girdiğiniz numara $qt($1) : işlev yapılmadı.) | halt } if !$1 { var %- = 1,%\ = $ibl($active,0) | while %- <= %\ { mode $active -b $ibl($active,%-) | inc %- } echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$active,$chr(32),$chr(2),kanalındaki tüm banlar açıldı. Açılan ban sayısı:,$chr(2),$chr(32),$calc(%- -1)) | halt } if $1 && $lines(banlar.txt) >= $1 && $read(banlar.txt,$1) { mode $active -b $gettok($read(banlar.txt,$1),2,37) | echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: $active kanalında sıra numarası $qt($1) olan ban açıldı.) | write $+(-l,$1) banlar.txt | halt } if !$read(banlar.txt,$1) { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: $active kanalında $qt($1) numaralı banı zaten açmışsınız.) } } ----------------Açıklama---------------- Can sıkıntısı belki işinize yarar. 1- Kanaldaki banlar hakkında bilgi verir. 2- Kanaldaki banlar üzerinde oynama yapmanızı sağlar(Tek-tek açmak) 3- Kanaldaki banlar üzerinde oynama yapmanızı sağlar(Hepsini açmak) Bilgi şekli; Numara: <ban-numarası> - Banlıyan: <nick> - Mask: <mask(host/nick/ident/extban)> - Tarih: <atıldığı-tarih> Şeklindedir. Kullanım şekli; Girdiğiniz kanal'a /channel yazdıktan sonra kod daha sağlıklı çalışacaktır. Banların tümünün listesini görmek için, kullanım şekli; /banlar Çoklu kullanım şekli; Numara girdiğiniz taktirde, /banlar listesinde çıkan numarayı açıcaktır. Eğer numara girmezseniz; banların tümünü açıcaktır Banlara verilen numaralardan herhangi birini açmak için; /banac numara Banların hepsini birden açmak için; /banac Şeklinde kullanılır. Kod sahibi, L4roxyl |