Sesli harfleri "*" karakteri olarak gösterme

[chain]

n @*: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
  }
}

Kullanımı : Reklam.txt içerisindeki kelimeler üzerinde işlev yapar.

Diğer bir kullanım ise

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

Örneğin; //echo -: $ok(Bilirmisin?) yaptığında;B*l*r*m*s*n? şeklinde olucak,tır : )