Tekil Mesaj gösterimi
Alt 04 Temmuz 2018, 17:00   #5
Çevrimiçi
Toprak
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: .Sicil Ekle|Sil|Liste




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


__________________
Dünyanın en güzel yeri neresi biliyor musun? Biraz kenara kaysana...
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet Mobil Chat