| |
|
#1
05 Ocak 2016, 11:05
| ||||
| ||||
 Random Nick Kontrol 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))) }
}  
__________________ 3m2t //alias $str($+(alias,$chr(32)),4) | alias  |
| Sponsored Links |
|
#3
26 Ocak 2017, 08:42
| ||||
| ||||
 Alıntı:
yeşil kısma hassaslık oranı yazarak kullanabilirsin (önerilen %73) kırmızı satırları devre dışı bıraktım ekrana çubukları yansıtmaz. /rand? kontrol_edilecek_kelime Nick Kod: alias rand? {
var %t = $remove($1,1,2,3,4,5,6,7,8,9,0,\,`,^,|,-,_), %s+ $regex(%t,/([aeoöuüıiIİ])/gi),%s- $regex(%t,/([^aeoöuüıiIİ])/gi)
; echo Toplam: $len(%t) Sesli: %s+ Sessiz: %s-
;if $len(%t) > 4 { gr $len(%t) %s- $1 }
if $len(%t) > 4 && $gr($len(%t),%s-,$1,$2) { gzline $2 | hdel rand? $2 }
}
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 $4 )
$iif(%% > %rate,return $true)
}
on *:snotice:*Client*connecting*: hadd -m rand? $4 $4
raw 311:*: if ($hget(rand?,$2)) rand? $remove($6-,$chr(32)) $2
__________________ 3m2t //alias $str($+(alias,$chr(32)),4) | alias |
|
#5
30 Ocak 2017, 08:50
| ||||
| ||||
| Alıntı:
/rand? ident nick /rand? nick nick /rand? $remove(username,$chr(32)) nick
__________________ 3m2t //alias $str($+(alias,$chr(32)),4) | alias |
 |
| Etiketler |
| kontrol, nick, random |
| |
Benzer Konular | ||||
| Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
| random nick - text üretici V2 | CoCoRiCo | Snippets - Parça kodlar | 3 | 30 Eylül 2015 07:52 |
| random nick - text üretici | CoCoRiCo | Snippets - Parça kodlar | 1 | 06 Temmuz 2015 15:33 |
| Random (nick ve ident) | WeiLSiDe | Help - Yardım | 2 | 24 Eylül 2009 14:08 |
| Pc-Win Pc-Kontrol Addonu | absolut | Showcase - Hazır kodlar | 0 | 15 Temmuz 2009 12:19 |
6Teşekkür
