Kanal’daki banlar hakkında, detaylı bilgi almanızı, ek olarak belirli işlevler yapabilmenizi sağlar.
###############################
# Yazan: L4roXyL #
# mIRC Scripting bir sanattır.#
###############################
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.) }
}
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.
Filed under: mIRC Hazır Kodlar | Tagged: Almanya Chat, Almanya Sohbet, Burcunun Odası, Chat, Chat Sohbet, Ecenin Odasi, Edanın Odası, Evli bayanlar, Hollanda Chat, Hollanda Sohbet, Kelebek Script, Kiz Sohbet, Kizlarla Sohbet, MSN Script, msn Sohbet, Okul Sohbet, Script, Sohbet, Sohbet ekle, Sohbet Odaları, Sohbet Odasi, Sohbet Script, Sohbete katıl, Türkçe, Türkçe mIRC, Yüzük Script | Leave a comment »