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