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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   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)

Mecnun 25 Mart 2018 08:15
.Sicil Ekle|Sil|Liste
 
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:
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
Cevap: .Sicil Ekle|Sil|Liste
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] çöl'e su getirmiş :)

Fredyyy 07 Nisan 2018 03:56
Cevap: .Sicil Ekle|Sil|Liste
 
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
Cevap: .Sicil Ekle|Sil|Liste
 
elinize saglik :)

Toprak 04 Temmuz 2018 17:00
Cevap: .Sicil Ekle|Sil|Liste
 
dffsd liste
gfgfd kayit

gibi kullanımda da kod çalışacak :)

Kod:
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 =)


Ek olarak;
Kod:
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:
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
Cevap: .Sicil Ekle|Sil|Liste
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1041964390)
dffsd liste
gfgfd kayit

gibi kullanımda da kod çalışacak :)

Kod:
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 =)


Ek olarak;
Kod:
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:
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
Cevap: .Sicil Ekle|Sil|Liste
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1041964390)
dffsd liste
gfgfd kayit

gibi kullanımda da kod çalışacak :)

Kod:
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 =)


Ek olarak;
Kod:
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:
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.
Alıntı:
Yasakkk Nickli Üyeden Alıntı (Mesaj 1042724497)
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
Cevap: .Sicil Ekle|Sil|Liste
 
Alıntı:
Mylife Nickli Üyeden Alıntı (Mesaj 1042725449)
  • 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
Cevap: .Sicil Ekle|Sil|Liste
 
Alıntı:
Enes Nickli Üyeden Alıntı (Mesaj 1042725471)
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
Cevap: .Sicil Ekle|Sil|Liste
 
Alıntı:
MasteR06 Nickli Üyeden Alıntı (Mesaj 1042725483)
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
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.

manikdepresif 30 Temmuz 2023 20:00
Cevap: .Sicil Ekle|Sil|Liste
 
listeden bir tane ornek yaz.

Enes 01 Ağustos 2023 03:59
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
    }
  }

Toprak 01 Ağustos 2023 16:27
Cevap: .Sicil Ekle|Sil|Liste
 
Alıntı:
Enes Nickli Üyeden Alıntı (Mesaj 1042820028)
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
    }
  }
Hata var ise yazın düzeltiriz.

Enes 02 Ağustos 2023 00:05
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...]

ByaSiL 25 Mart 2025 11:51
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

Vision 25 Mart 2025 15:45
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)
@[Ü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

Mesut 25 Mart 2025 15:56
Cevap: .Sicil Ekle|Sil|Liste
 
Alıntı:
ByaSiL Nickli Üyeden Alıntı (Mesaj 1042995774)
@[Ü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
[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

Vision 25 Mart 2025 16:02
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:{

Mesut 25 Mart 2025 16:15
Cevap: .Sicil Ekle|Sil|Liste
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Mecnun ün yapmış olduğu buda kullanabilirsiniz

ByaSiL 25 Mart 2025 16:49
Cevap: .Sicil Ekle|Sil|Liste
 
geri dönüş alıyorum ama aşağıdaki hatayı alıyorum.

[16:47] * /write: dosya açılamıyor 'C:\Users\Administrator\Desktop\mIRC\Sicil\_.txt' (satır 6, script3)
[16:47] <27~aSiL> !sicil ekle _

Toprak 25 Mart 2025 18:42
Cevap: .Sicil Ekle|Sil|Liste
 
Sicil klasörü oluşturun mIRC ana klasörü içerisine.

ByaSiL 25 Mart 2025 20:06
Cevap: .Sicil Ekle|Sil|Liste
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sicil.txt olarak oluşturdum ancak aynı hatayı alıyorum. Farklı bir isimlemi oluşturmam gerekirdi.

Toprak 25 Mart 2025 20:35
Cevap: .Sicil Ekle|Sil|Liste
 
Alıntı:
ByaSiL Nickli Üyeden Alıntı (Mesaj 1042996083)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sicil.txt olarak oluşturdum ancak aynı hatayı alıyorum. Farklı bir isimlemi oluşturmam gerekirdi.

Sicil.txt değil klasör oluşturman lazım.

mIRC'de /mkdir Sicil komutunu uygula tamamdır.

Enes 29 Mart 2025 20:47
Cevap: .Sicil Ekle|Sil|Liste
 
Alıntı:
Mesut Nickli Üyeden Alıntı (Mesaj 1042995968)
[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

Mircin bulunduğu klasörde Sicil isimli bir klasör oluştur ve sonra ekleyin kanaldan nick nick ekleyecektir


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 13:19.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk