Tarih: 06-12-2007, 19:09
Sesli harfleri "*" karakteri olarak gösterme.
Kullanım: Reklam.txt içerisindeki kelimeler üzerinde işlev yapar.
Kod:
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])/gi,$chr(42)\1,%o)
ban -k # $nick 2 Yasaklı kelime kullandınız: %o
}
inc %s
}
}
İkinci kullanım:
Örneğin; //echo -: $ok(Nasılsınız?) yaptığında; N*s*ls*n*z? olarak dönecektir.
Kod:
alias ok {
var %1 = $1-
var %2 = $regsub(%1,/(a|e|i|u|ü|o|ö|ı)/gi,$chr(42)\1,%1)
return %1
}