.Sicil Ekle|Sil|Liste - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Yasakkk · 07 Ekim 2022, 00:53

Toprak Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

dffsd liste
gfgfd kayit

gibi kullanımda da kod çalışacak
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if $regex($1,/^([.!]S[iİı]c[İıi]l)/Si) {
    if !$2 { msg # 2Lütfen parametre belirtiniz.4 !sicil kayit|liste|sil | return }
    if !$read(root.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
  }

oradaki } kod'un bitiminde olucak
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Ek olarak;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if !$read(root.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }

Her şeyde sorgulama eklemissin tek bir sefer eklenmesi mantıklı.

Kısaca;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:%operchan: {
  if $regex($1,/^([.!]S[iİı]c[İıi]l)/Si) {
    if !$2 { msg # 2Lütfen parametre belirtiniz.4 !sicil kayit|liste|sil }
    elseif !$read(root.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
    elseif $regex($2,/^([.!]l[ıiİ]ste)/Si) {
      if $lines(sicil/sicil.txt) = 0 { msg # 2Sicil kayiti bulunamadi. }
      else {
        msg # 2Sicil listesi siralaniyor.
        var %hea = 1 | while (%hea <= $lines(sicil/sicil.txt)) {
          msg # %hea $read(sicil/sicil.txt,%hea)
          inc %hea
        }
      }
    }
    elseif $regex($2,/^([.!]kay[ıiİ]t)/Si) {
      if !$3 { msg # 2Lütfen nick belirtiniz.4 !sicil kayit nick }
      elseif $read(sicil/sicil.txt,w, $+ * $+ $nick $+ * $+ ) { msg # 2Eklemeye çalıştığınız nick zaten listede ekli, tekrar ekleyemezsiniz. }
      else {
        .write sicil/sicil.txt 4Nick:2 $+ $3 - 4Sebep:2 $+ $4- - 4Ekleyen:2 $+ $nick 
        .write sicil/islem.txt 4Nick:2 $+ $3 - 4Sebep:2 $+ $4- - 4Ekleyen:2 $+ $nick 
        msg # 4 $+ $3 $+ , 2sicil listesine eklenmiştir. 4Sebep:2 $+ $4-
      }
    }
    elseif $regex($2,/^([.!]s[ıiİ]l)/Si) {
      if !$3 { msg $nick 2Lütfen nick belirtiniz.4 !sicil sil numara }
      elseif $lines(sicil.txt) = 0 { msg # 2Sicil kayiti bulunamadi. }
      else {
        .write $+(,-dl,$3,) sicil/sicil.txt

        .write sicil/islem.txt 4 $+ $3 $+ , 2sicil kaydı silinmiştir.4 Silen:2 $+ $nick

        msg # $3 $+ , 2numaralı nickin sicil kaydı silinmiştir.4 Silen:2 $+ $nick
      }
    }
  }
  elseif $regex($1,/^([.!][İiı][şŞs]lemler)/Si) {
    if !$read(root.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
    else { play # sicil/islem.txt }
  }
}

Arkadaşlar bu kodu düzenleme ihtimaliniz varmı benim belirlediğim kanalda yetki sormaksızın
!sicil ekle
!sicil sil
!sicil listele
!sicil islemler ( yani !sicil islemler yazıldığında seçenekler gösterilecek )
Bu işlemler ben benim mirc üzerinden yapılacak

Mylife · 10 Ekim 2022, 20:11

Toprak Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

dffsd liste
gfgfd kayit

gibi kullanımda da kod çalışacak
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if $regex($1,/^([.!]S[iİı]c[İıi]l)/Si) {
    if !$2 { msg # 2Lütfen parametre belirtiniz.4 !sicil kayit|liste|sil | return }
    if !$read(root.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
  }

oradaki } kod'un bitiminde olucak
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Ek olarak;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if !$read(root.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }

Her şeyde sorgulama eklemissin tek bir sefer eklenmesi mantıklı.

Kısaca;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#kanalburaya: {
  if $regex($1,/^([.!]S[iİı]c[İıi]l)/Si) {
    if !$2 { msg # 2Lütfen parametre belirtiniz.4 !sicil kayit|liste|sil }
    elseif !$read(root.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
    elseif $regex($2,/^([.!]l[ıiİ]ste)/Si) {
      if $lines(sicil/sicil.txt) = 0 { msg # 2Sicil kayiti bulunamadi. }
      else {
        msg # 2Sicil listesi siralaniyor.
        var %hea = 1 | while (%hea <= $lines(sicil/sicil.txt)) {
          msg # %hea $read(sicil/sicil.txt,%hea)
          inc %hea
        }
      }
    }
    elseif $regex($2,/^([.!]kay[ıiİ]t)/Si) {
      if !$3 { msg # 2Lütfen nick belirtiniz.4 !sicil kayit nick }
      elseif $read(sicil/sicil.txt,w, $+ * $+ $nick $+ * $+ ) { msg # 2Eklemeye çalıştığınız nick zaten listede ekli, tekrar ekleyemezsiniz. }
      else {
        .write sicil/sicil.txt 4Nick:2 $+ $3 - 4Sebep:2 $+ $4- - 4Ekleyen:2 $+ $nick 
        .write sicil/islem.txt 4Nick:2 $+ $3 - 4Sebep:2 $+ $4- - 4Ekleyen:2 $+ $nick 
        msg # 4 $+ $3 $+ , 2sicil listesine eklenmiştir. 4Sebep:2 $+ $4-
      }
    }
    elseif $regex($2,/^([.!]s[ıiİ]l)/Si) {
      if !$3 { msg $nick 2Lütfen nick belirtiniz.4 !sicil sil numara }
     elseif $lines(sicil.txt) = 0 { msg # 2Sicil kayiti bulunamadi. }
      else {
        .write $+(,-dl,$3,) sicil/sicil.txt

        .write sicil/islem.txt 4 $+ $3 $+ , 2sicil kaydı silinmiştir.4 Silen:2 $+ $nick

        msg # $3 $+ , 2numaralı nickin sicil kaydı silinmiştir.4 Silen:2 $+ $nick
      }
    }
  }
  elseif $regex($1,/^([.!][İiı][şŞs]lemler)/Si) {
    if !$read(root.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
;burayı kaldırdınız zaman bir if sorgusu oluşturmanız gerekir veya hiç bir sorgu oluşturmadan direk olarak bunu okutabilirsiniz.
    else { play # sicil/islem.txt }
;okutmak için bu kısmı else olan kısmı da kaldırmanız gerekir.
  }
}
elseif $regex($1,/^([.!][İiı][şŞs]lemler)/Si) { .play # sicil/islem.txt }
;bu şekilde değiştirebilirsiniz ama parantezlere çok dikkat edin açık parantez kadar kapalı parantez olmalı aksi halde kod parantez hatası vericektir.

Yasakkk Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Arkadaşlar bu kodu düzenleme ihtimaliniz varmı benim belirlediğim kanalda yetki sormaksızın
!sicil ekle
!sicil sil
!sicil listele
!sicil islemler ( yani !sicil islemler yazıldığında seçenekler gösterilecek )
Bu işlemler ben benim mirc üzerinden yapılacak

Belirlediğiniz kanalı event içerisinde kanal kısmına belirtmeniz gerekir kırmızı ile işaretledim.
Text eventi ile yapıldığı için bota eklenmelidir.
Kodu incelediğimde .sicil ekle olarak değil .sicil kayit olarak ayarlanmış ( yani kullanırken .sicil kayit nick ) şeklinde ekleme yapılıyor. Zaten kodda örneklendirme ile ifade edilmiş bu durum.
Listemek içinde .sicil liste şeklinde ayarlanmış
Kod bir master nick yani yetkili nick listesi oluşturulmuş bunun içinde root.txt şeklinde mirc ana dosyası içerisinde bu yetkili nicklerin yazılıyor olması gerekir. Bu yetki sistemini kaldırmak istiyorum demişsiniz kırmızı ile işaretlediğim kısmı kaldırmanız yeterli olacaktır sanırım.

Bunların hepsini uyumlu olarak yaptıktan sonra kullanabilirsiniz bunların dışında bir sorun olursa konu altından yazın yardımcı olmaya çalışırız.

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

Enes · 10 Ekim 2022, 20:56

Mylife Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Belirlediğiniz kanalı event içerisinde kanal kısmına belirtmeniz gerekir kırmızı ile işaretledim.
Text eventi ile yapıldığı için bota eklenmelidir.
Kodu incelediğimde .sicil ekle olarak değil .sicil kayit olarak ayarlanmış ( yani kullanırken .sicil kayit nick ) şeklinde ekleme yapılıyor. Zaten kodda örneklendirme ile ifade edilmiş bu durum.
Listemek içinde .sicil liste şeklinde ayarlanmış
Kod bir master nick yani yetkili nick listesi oluşturulmuş bunun içinde root.txt şeklinde mirc ana dosyası içerisinde bu yetkili nicklerin yazılıyor olması gerekir. Bu yetki sistemini kaldırmak istiyorum demişsiniz kırmızı ile işaretlediğim kısmı kaldırmanız yeterli olacaktır sanırım.

Bunların hepsini uyumlu olarak yaptıktan sonra kullanabilirsiniz bunların dışında bir sorun olursa konu altından yazın yardımcı olmaya çalışırız.

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

bunu sunucudaki nickler için ekleme imkanımız var mı ? .sicil ekle nick | .sicil sil nick | .sicil oku nick < gibi

Bozkurt- · 10 Ekim 2022, 22:05

Enes Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

bunu sunucudaki nickler için ekleme imkanımız var mı ? .sicil ekle nick | .sicil sil nick | .sicil oku nick < gibi

Kod onun için yazılmış zaten. Sunuculardaki kullanıcılara sicil eklemek için.

Enes · 10 Ekim 2022, 23:51

MasteR06 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod onun için yazılmış zaten. Sunuculardaki kullanıcılara sicil eklemek için.

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.

GeneraL · 30 Temmuz 2023, 13:49

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.

manikdepresif · 30 Temmuz 2023, 20:00

listeden bir tane ornek yaz.

Enes · 01 Ağustos 2023, 03:59

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
    }
  }

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

Konuyu Toplam 2 Üye okuyor. (0 Kayıtlı üye ve 2 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.