IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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

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


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 23:34.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net