Www.Hossohbetci.Com " Degisen Dunyanin Degismeyen Yuzu Seviyeli Hossohbet Adresiniz"
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;
Kod:
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
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.) }
}
Belki işinize yarar.
-
Bir kaç özellik ekledim.
Son hali;
[17:16] *** L4 mod değiştirdi:+bbbbbbbbbb 1!*@* 2!*@* 3!*@* 4!*@* 5!*@* 6!*@* 7!*@* 8!*@* 9!*@* 0!*@*
Uyguladığım komut; /banlar (Aktif penceredeki tüm banlar çıkacaktır) Sonuç;
[17:24] - Numara: 1 Banlıyan: L4 Mask: 0!*@* Tarih: Eylül 22nd 5:16pm
[17:24] - Numara: 2 Banlıyan: L4 Mask: 9!*@* Tarih: Eylül 22nd 5:16pm
[17:24] - Numara: 3 Banlıyan: L4 Mask: 8!*@* Tarih: Eylül 22nd 5:16pm
[17:24] - Numara: 4 Banlıyan: L4 Mask: 7!*@* Tarih: Eylül 22nd 5:16pm
[17:24] - Numara: 5 Banlıyan: L4 Mask: 6!*@* Tarih: Eylül 22nd 5:16pm
[17:24] - Numara: 6 Banlıyan: L4 Mask: 5!*@* Tarih: Eylül 22nd 5:16pm
[17:24] - Numara: 7 Banlıyan: L4 Mask: 4!*@* Tarih: Eylül 22nd 5:16pm
[17:24] - Numara: 8 Banlıyan: L4 Mask: 3!*@* Tarih: Eylül 22nd 5:16pm
[17:24] - Numara: 9 Banlıyan: L4 Mask: 2!*@* Tarih: Eylül 22nd 5:16pm
[17:24] - Numara: 10 Banlıyan: L4 Mask: 1!*@* Tarih: Eylül 22nd 5:16pm
[17:24] - Bilgi: #deneme kanalı için tarama tamamlandı. Çıkan ban sayısı: 10
[17:24] - Bilgi: Banların hepsini açmak için; /banac yazınız.
[17:24] - Bilgi: Herhangi birini açmak için; /banac numara yazınız.
-
Uyguladığım komut; /banac (Hepsini açıcaktır) sonuç;
[17:24] *** L4 mod değiştirdi:-b 0!*@*
[17:24] *** L4 mod değiştirdi:-b 9!*@*
[17:24] *** L4 mod değiştirdi:-b 8!*@*
[17:24] *** L4 mod değiştirdi:-b 7!*@*
[17:24] *** L4 mod değiştirdi:-b 6!*@*
[17:24] *** L4 mod değiştirdi:-b 5!*@*
[17:24] *** L4 mod değiştirdi:-b 4!*@*
[17:24] *** L4 mod değiştirdi:-b 3!*@*
[17:24] *** L4 mod değiştirdi:-b 2!*@*
[17:24] *** L4 mod değiştirdi:-b 1!*@*
[17:24] - Bilgi: #deneme kanalındaki tüm banlar açıldı. Açılan ban sayısı: 10
Uyguladığım komut; /banac 1 (1 numaralı banı açıcaktır) sonuç;
[17:30] *** L4 mod değiştirdi:-b 0!*@*
[17:30]- Bilgi: #deneme kanalında sıra numarası "1" olan ban açıldı.
Eğer tekrar aynı banı açmaya kalkarsak;
[17:31]- Bilgi: #deneme kanalında "1" numaralı banı zaten açmışsınız.
Cevabını alırız.
Uyguladığım komut; /banlar
Pencere: Status window
Gelen bilgi;
[17:33]- Bilgi: Herhangi bir kanal penceresinde değilsiniz.
[17:33]- Bilgi: Tarıyabileceğiniz kanallar: #deneme #o #q #a
Pencere: Query window
Gelen bilgi;
[17:33]- Bilgi: Herhangi bir kanal penceresinde değilsiniz.
[17:33]- Bilgi: Tarıyabileceğiniz kanallar: #deneme #o #q #a
Buradaki: #deneme #o #q #a bulunduğum kanallar.
Gibi.
----------------------------------------------------------------------------------------------
Not: aLıntıdır.. (:
FRmda.Com Paylasim Platformu » Sohbet Chat Programları ve Tanıtımı Irc Serverler Msn Yahoo » IRC Shell Hizmeti » mIRC Script ve Sohbet
Banlar.
