🔔 Çevrimdışı bildirim almak ister misiniz?
Bir konuya etiketlendiğinizde, özel mesaj aldığınızda, bir mesajınız alıntılandığında forumda olmasanız bile anlık bildirim almak için lütfen izni verin.
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