Bu kod: 4 karakterden daha fazla harf içeren kelimelerin (nick vb.)
matematiksel olarak, mantıksal sınama ile kelimenin sesli ve sessiz harf oranını kontrol eder.
50 bin kelimelik Türkçe bir sözlükten ortalama kelimelerin sesli ve sessiz oranının %73 oldugunu
tespit ettim, kırmızı bölümdeki oran değişkenine ekledim.. Daha katı kontrol için sessiz harf oranı
değiştirebilirsiniz..
Kodu test etmek için rastgele uzunlukta ve rast gele harflerden olusan kelime üreten
/testrand
komutu ile test edebilirsiniz..
içinde birde oranı cubuk grafik olarak gösteren bir bölüm var..
bu bölümde grafik cubugu uzunlugunu mavi bölümden degiştirebilirsiniz..
ben 10 luk yaptım sizde kafanıza göre yapabilirsiniz.. örnek resimleri aşağıda.
iyi eğlenceler.
kullanılışı:
/rand? AYpliDsaTtv Kod:
alias rand? {
var %t = $remove($1,1,2,3,4,5,6,7,8,9,0,\,`,^,|,-,_),%s+ $regex(%t,/([aeoöuüıi])/ig),%s- $regex(%t,/([^aeoöuüıi])/ig)
echo Toplam: $len(%t) Sesli: %s+ Sessiz: %s-
if $len(%t) > 4 { gr $len(%t) %s- $1 }
}
alias -l gr {
;oran buraya % cinsinden
var %rate 73
;Grafik çubuk uzunlugu buraya
var %line 10
var %% $round($iif($round($calc(($2 * 100) / $1),1) > 100, 100, $round($calc(($2 * 100) / $1),1)),0),$&
%n $iif($2 > $1, $1, $2),%g %line,%go $+($chr(3),4,$chr(44),4) $chr(160),$&
%goc $+($chr(3),14,$chr(44),14) $chr(160),%t= $round($calc((%n * %line) / $1),0)
echo $str(%go,%t=) $+ $str(%goc,$ceil($calc(%g - %t=))) $chr(15) $chr(37) $+ %% $3 $iif(%% > %rate,RANDOM)
}
alias testrand {
:r | if $len(%r) <= 50 { var %r $addtok(%r,$gettok($r(a,z) $r(A,Z),$r(1,2),32),32) | goto r }
else { var %r $remove(%r,$chr(32)) | Rand? $left(%r,$r(5,$len(%r))) }
} 
