* Lada Ufak Bir Değişim
 

Evet Arkadaşlar Hepimizin Bildiği Gibi Özel Reklam Küfür vß.. Korumalarda ( $+ $replace($strip($1-),e,*,a,*,i,*,o,*) $+ ) Kullanırız Ama Mesela Benim İstediğim..

[18:28:10] <eXo> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ajsdlaks ıoasjf oısajfasıjf oıasjofı sajofsa
[18:28:11] * eXo was kicked by eviL ( Reklam Yapma Yasak Kelime ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] *jsdl*ks ı**sjf *ıs*jf*sıjf *ı*sj*fı s*j*fs*) )

Benim Burada Reklam Listeme Aldığım Kelime
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Sadece O KELİME İcinde Gecenleri * Lasın Istiorum..

[18:28:50] <eXo> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] deneme mesajıdır üstünüze alınmayın
[18:29:27] * eXo was kicked by eviL ( Reklam Yapma Yasak Kelime ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) )

Boyle Bi Yardımcı Olursanız Çok Makbule Geçer..

Cevap: * Lada Ufak Bir Değişim
 

Her sorun için ayrı konu açma.

O kod'un mantığı zaten, sesli harfleri "*" karakteri olarak göstermek.
Yani $replace kullanmak bayağı kasıcaktır.

on @*:text:*:#: { var %s = 1,%ss = $lines(reklam.txt) | while %s <= %ss { if $+(*,$read(reklam.txt,%s),*) iswm $1- { var %o = $remove($v1,*),%p = $regsub(%o, /(a|e|i|u|ü|o|ö|[A-Z])/g, $chr(42)\1, %o) | ban -k # $nick 2 Yasaklı kelime kullandınız: %o } | inc %s } }

Şeklinde bir kod işini görecektir.
Reklam.txt dosyasının içerisine yasakladığın kelimeleri ekle.

Cevap: * Lada Ufak Bir Değişim
 

LaroXyL Saol Teşekkür Ettimde Ben Bunu Özel Reklam Korumamda kullanıcaktım alias halini istesem senden? * lının?

Cevap: * Lada Ufak Bir Değişim
 

alias ok { var %1 = $1- | var %2 = $regsub(%1, /(a|e|i|u|ü|o|ö|ı)/g, $chr(42)\1, %1) | return %1 }

Örneğin; //echo -a $ok(Nasılsınız?) yaptığında; N*s*ls*n*z? olarak dönecektir.