Tekil Mesaj gösterimi
  #1  
Alt 07 Ekim 2011, 12:15
Avatar Yok
L4roXyL L4roXyL isimli Üye şimdilik offline konumundadır
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 34
Mesajlar: 339
Konular: 100
Eklentiler: 3
Alınan Teşekkür: 143
Yapılan Teşekkür: 0
Standart Yaptığım Tüm Yardımlar/Kodlar

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 
}
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
Sponsored Links
 
1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76