» » » Random Nick ident Kontrol

Random Nick ident Kontrol

Random Nick ident Kontrol

Kullanım Şekli: 

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
"/rand? kontrol_edilecek_kelime Nick"

/rand? ident nick
/rand? nick nick

/rand? $remove(username,$chr(32)) nick

Random Nick ident Kontrol Kodu:

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))) }
}
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
Sayın ziyaretçi, siteyi kayıtsız bir kullanıcı olarak görüntülüyorsunuz. Siteye kayıt olarak gezinti deneyiminizi olumlu yönde arttırabilirsiniz.

Burç Remotesi - Burç Addonu

Burç Remotesi - Burç Addonu

Burç Remotesi - Burç AddonuKullanım Şekli: burç

mIRC Scripting » mIRC Hazır Kodlar

3-08-2018, 10:48

CCleaner indir

CCleaner indir

Ücretsiz sistem Temizleme ve Optimizasyon Aracı

Webmaster

7-08-2018, 09:13
Adınız: *
E-Posta adresiniz: *
Resimde gösterilen iki kelimeyi girin: