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

Mecnun · 25 Mart 2018, 08:15

Daha önce bir yorumda paylaşmama rağmen soran arkadaşlar oldu, paylaştığım yorumdaki kodun bazı hataları olduğunuda fark ettim. Bu yüzden tekardan paylaşma gereği duydum.

Kullanımı: [.!]sicil ekle nick | [.!]sicil sil numara | [.!]sicil liste şeklindedir.
Kullanımı: [.!]işlemler yaparak, sicil komutunu kullanan nickleri takip edebilirsiniz.

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 | return }
    if !$read(root.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
  }
  if $2 == liste {
    if !$read(root.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
    if $lines(sicil/sicil.txt) = 0 { msg # 2Sicil kayiti bulunamadi. | halt }
    msg # 2Sicil listesi siralaniyor.
    var %hea 1
    while (%hea <= $lines(sicil/sicil.txt)) {
      msg # %hea $read(sicil/sicil.txt,%hea)
      inc %hea
    }
  }
  if $2 == kayit {
    if !$read(root.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
    if !$3 { msg # 2Lütfen nick belirtiniz.4 !sicil kayit nick | return }
    if $read(sicil/sicil.txt,w, $+ * $+ $nick $+ * $+ ) { msg # 2Eklemeye çalıştığınız nick zaten listede ekli, tekrar ekleyemezsiniz. | halt }
    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-
  }
  if $2 == sil {
    if !$read(root.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
    if !$3 { msg $nick 2Lütfen nick belirtiniz.4 !sicil sil numara | return }
    if $lines(sicil.txt) = 0 { msg # 2Sicil kayiti bulunamadi. | halt }
    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
  }
  if $regex($1,/^([.!][İiı][şŞs]lemler)/Si) {
    if !$read(root.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
    play # sicil/islem.txt
  }
}

AntepLi · 26 Mart 2018, 12:10

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] çöl'e su getirmiş
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Fredyyy · 07 Nisan 2018, 03:56

Sicil eklemek istediğim vakit veyahut silmek istediğimde 2. işlemleri yapmıyor. Sanırım codlamada eksik var. Ben fark edemiyor da olabilirim. Teşekkürler.

EsareR45 · 04 Temmuz 2018, 13:50

elinize saglik
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Toprak · 04 Temmuz 2018, 17:00

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

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

Enes · 02 Ağustos 2023, 00:05

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

ByaSiL · 25 Mart 2025, 11:51

@[Ü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

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. (1 Kayıtlı üye ve 1 Misafir)
q0kh4n

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.