IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

14Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 30 Temmuz 2023, 13:49   #11
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: .Sicil Ekle|Sil|Liste




Enes Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
onu biliyorum; benim demek istediğim tüm sicillerin alt alt olması değil nickler için ayrı ayrı açma. sicil liste dediğinde tüm sicilleri dökmesini değil .sicil oku nick yaparak sadece o nicke ait sicillerin listelenmesi gibi.

Merhaba enes bu durum ile alakalı bir gelişme varmı bende arıyorum da bulamadım
nick belirttiğimiz aman çıkacak şekilde !sicil oku nick şeklinde buldu isen yardımcı olabilirmisin.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 30 Temmuz 2023, 20:00   #12
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: .Sicil Ekle|Sil|Liste




listeden bir tane ornek yaz.

__________________
Bana sihirli kelimeyi söyle
 
Alıntı ile Cevapla

Alt 01 Ağustos 2023, 03:59   #13
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: .Sicil Ekle|Sil|Liste




GeneraL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Merhaba enes bu durum ile alakalı bir gelişme varmı bende arıyorum da bulamadım
nick belirttiğimiz aman çıkacak şekilde !sicil oku nick şeklinde buldu isen yardımcı olabilirmisin.

Merhaba, muhtemelen Toprak arkadaşımızın bir bot için yaptığı kod.

Çalışıp çalışmadığını belirtirsen kontrol ederiz tekrar.

Komutlar;

.!sicil ekle nick Sicilmesajı
.!sicil oku nick
.!sicil sil nick Sicilnumarası


Kod;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#kanal: { if $regex($1,/^([!.&]sicil)$/Si) { if !$2 { msg # :Lütfen 2[!.&]4sicil 2<ekle|sil|oku> olarak belirtiniz. | return } if !$3 { msg # :Lütfen 2[!.&]4sicil 2ekle nick olarak belirtiniz. | return } elseif $regex($2,/^ekle$/Si) { .write $+(Sicil/,$strip($3),.txt) $+($date,¿,$time,¿,$4-,®,¿ $nick ) msg # $+(,$strip($3),) nick'ine sicil geçilmiştir. } elseif $regex($2,/^oku$/Si) { if !$regex($3,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { msg # :Lütfen 2[!.&]4sicil 2<oku> <Nick> olarak belirtiniz. | return } elseif !$findfile(Sicil/,$+($regml(1),.txt),0) { msg # :Sicil nick listesinde bulunmamaktadır. | return } elseif !$lines($+(Sicil/,$regml(1),.txt)) { msg # : $regml(1) nick'inde herhangi bir sicil kayıt yok. | return } msg #  $regml(1) kayıtlı sicil dosyası kontrol ediliyor.. msg # : var %sc = 1 | while (%sc <= $lines($+(Sicil/,$regml(1),.txt))) { var %:sicil $read($+(Sicil/,$regml(1),.txt),%sc) msg # : ID:4 %sc - $token($token($token(%:sicil,3-,191),1,169),1,174) - Tarih:4 $token(%:sicil,1,191) Saat:4 $token(%:sicil,2,191) Ekleyen: $token(%:sicil,4,191) inc %sc } msg # : } elseif $regex($2,/^s[ıiİ]l$/Si) { if !$regex($strip($3),/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) || !$4 { msg # :Lütfen 2[!.&]4sicil 2<sil> <Nick> <ID> olarak belirtiniz. | return } if !$regex($4,/\d/S) { msg # :Lütfen 2[!.&]4sicil 2<sil> <Nick> <ID> olarak belirtiniz. | return } if !$findfile(Sicil/,$+($strip($3),.txt),0) { msg # :Sicil nick listesinde bulunmamaktadır. | return } if $lines($+(Sicil/,$strip($3),.txt)) < $strip($4) { msg # : $strip($3) nick'inde böyle bir id yok. | return } $iif($lines($+(Sicil/,$strip($3),.txt)) == 1,.remove $+(Sicil/,$strip($3),.txt),.write $+(-,dl,$strip($4)) $+(Sicil/,$strip($3),.txt)) msg # $+(,$strip($3),) Sicil nick listesinden silindi. } elseif $regex($2,/^l[ıiİ]st$/Si) { if !$findfile(Sicil/,*.txt,0) { msg # :Sicil nick listesinde kayıt bulunmamaktadır. | return } msg # :Sicil nick listesi msg # : var %sc = 1 | while (%sc <= $findfile(Sicil/,*.txt,0)) { msg # $+(%sc,-4,$chr(41),) $remove($token($findfile(Sicil/,*.txt,%sc),-1,92),.txt) inc %sc } msg # : msg # :Sicil nick listesi sonu } }


 
Alıntı ile Cevapla

Alt 01 Ağustos 2023, 16:27   #14
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: .Sicil Ekle|Sil|Liste




Enes Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Merhaba, muhtemelen Toprak arkadaşımızın bir bot için yaptığı kod.

Çalışıp çalışmadığını belirtirsen kontrol ederiz tekrar.

Komutlar;

.!sicil ekle nick Sicilmesajı
.!sicil oku nick
.!sicil sil nick Sicilnumarası


Kod;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#kanal: { if $regex($1,/^([!.&]sicil)$/Si) { if !$2 { msg # :Lütfen 2[!.&]4sicil 2<ekle|sil|oku> olarak belirtiniz. | return } if !$3 { msg # :Lütfen 2[!.&]4sicil 2ekle nick olarak belirtiniz. | return } elseif $regex($2,/^ekle$/Si) { .write $+(Sicil/,$strip($3),.txt) $+($date,¿,$time,¿,$4-,®,¿ $nick ) msg # $+(,$strip($3),) nick'ine sicil geçilmiştir. } elseif $regex($2,/^oku$/Si) { if !$regex($3,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { msg # :Lütfen 2[!.&]4sicil 2<oku> <Nick> olarak belirtiniz. | return } elseif !$findfile(Sicil/,$+($regml(1),.txt),0) { msg # :Sicil nick listesinde bulunmamaktadır. | return } elseif !$lines($+(Sicil/,$regml(1),.txt)) { msg # : $regml(1) nick'inde herhangi bir sicil kayıt yok. | return } msg #  $regml(1) kayıtlı sicil dosyası kontrol ediliyor.. msg # : var %sc = 1 | while (%sc <= $lines($+(Sicil/,$regml(1),.txt))) { var %:sicil $read($+(Sicil/,$regml(1),.txt),%sc) msg # : ID:4 %sc - $token($token($token(%:sicil,3-,191),1,169),1,174) - Tarih:4 $token(%:sicil,1,191) Saat:4 $token(%:sicil,2,191) Ekleyen: $token(%:sicil,4,191) inc %sc } msg # : } elseif $regex($2,/^s[ıiİ]l$/Si) { if !$regex($strip($3),/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) || !$4 { msg # :Lütfen 2[!.&]4sicil 2<sil> <Nick> <ID> olarak belirtiniz. | return } if !$regex($4,/\d/S) { msg # :Lütfen 2[!.&]4sicil 2<sil> <Nick> <ID> olarak belirtiniz. | return } if !$findfile(Sicil/,$+($strip($3),.txt),0) { msg # :Sicil nick listesinde bulunmamaktadır. | return } if $lines($+(Sicil/,$strip($3),.txt)) < $strip($4) { msg # : $strip($3) nick'inde böyle bir id yok. | return } $iif($lines($+(Sicil/,$strip($3),.txt)) == 1,.remove $+(Sicil/,$strip($3),.txt),.write $+(-,dl,$strip($4)) $+(Sicil/,$strip($3),.txt)) msg # $+(,$strip($3),) Sicil nick listesinden silindi. } elseif $regex($2,/^l[ıiİ]st$/Si) { if !$findfile(Sicil/,*.txt,0) { msg # :Sicil nick listesinde kayıt bulunmamaktadır. | return } msg # :Sicil nick listesi msg # : var %sc = 1 | while (%sc <= $findfile(Sicil/,*.txt,0)) { msg # $+(%sc,-4,$chr(41),) $remove($token($findfile(Sicil/,*.txt,%sc),-1,92),.txt) inc %sc } msg # : msg # :Sicil nick listesi sonu } }


Hata var ise yazın düzeltiriz.

 
Alıntı ile Cevapla

Alt 02 Ağustos 2023, 00:05   #15
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: .Sicil Ekle|Sil|Liste




Ek olarak mirc klasöründe Sicil adlı bir klasör oluştur @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

 
Alıntı ile Cevapla

Cevapla

Etiketler
ceza, ekle, kodu, mirc, remote, sicil


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
!ekle scripts/liste.txt soLyanim Eggdrop, NeoStats, BNC 8 16 Nisan 2015 20:54
Badnick Ekle/Sil/Liste Prens mIRC Scripting Sorunları 4 23 Mayıs 2012 12:55