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