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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - .Sicil Ekle|Sil|Liste (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/790591-sicil-ekle-sil-liste.html)

Cevap: .Sicil Ekle|Sil|Liste

Alıntı:

Enes Nickli Üyeden Alıntı (Mesaj 1042725528)

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.

Cevap: .Sicil Ekle|Sil|Liste

listeden bir tane ornek yaz.

Cevap: .Sicil Ekle|Sil|Liste

Alıntı:

GeneraL Nickli Üyeden Alıntı (Mesaj 1042819658)

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:

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

    }

  }

Cevap: .Sicil Ekle|Sil|Liste

Alıntı:

Enes Nickli Üyeden Alıntı (Mesaj 1042820028)

Kod:

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.

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...]

Cevap: .Sicil Ekle|Sil|Liste

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] selam, kodu denedim ama herhangi bir işlem yapmadı.
Nerde hata ediyor olabilirim. Mirc remote olarak ekledim ama işlev veya hata vermedi.

[11:31] <19~aSiL> !sicil list
[11:47] <19~aSiL> .sicil ekle ahmed
[11:47] <19~aSiL> !sicil ekle ahmed
[11:47] <19~aSiL> !sicil ekle ahmed
[11:48] <19~aSiL> !sicil list
[11:48] <19~aSiL> .sicil ekle ahmed
[11:49] <19~aSiL> !sicil ekle ahmed
[11:49] <19~aSiL> .sicil ekle ahmed
[11:49] <19~aSiL> !sicil list

Cevap: .Sicil Ekle|Sil|Liste

Kod:

on *:text:*:#kanal: {

Buradaki kanal bölümünü kodu kullanacağın kanal olarak güncelledin mi?

Alıntı:

ByaSiL Nickli Üyeden Alıntı (Mesaj 1042995774)

Cevap: .Sicil Ekle|Sil|Liste

Alıntı:

ByaSiL Nickli Üyeden Alıntı (Mesaj 1042995774)

[15:52] (&Linux) !sicil ekle

[15:52] (%Ruh) :Lütfen [!.&]sicil ekle nick olarak belirtiniz.

[15:54] (%Ruh) * /write: Dosyası Açılamıyor 'C:\Users\Administrator\Desktop\Sohbet Script\Sicil\Toprak.txt' (Satır 6, script84.ini)

Script\Sicil\Toprak.txt' (Satır 6, script84.ini) Hatası veriyor Satır 6 da

Cevap: .Sicil Ekle|Sil|Liste

Şöyle bir şey de var tabi eğer kendin kendi mircin üzerinden kullanıyorsan kanal'da belirtsen çalışmaz en üstteki bölümü şöyle düzeltmen gerekiyor

Kod:

on *:input:#kanal:{

Cevap: .Sicil Ekle|Sil|Liste

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Mecnun ün yapmış olduğu buda kullanabilirsiniz