Üye Girişi все шаблоны для dle на сайте newtemplates.ru скачать
 
  • 15:24 – Adana Sohbet 
  • 11:15 – Sebebiyat Online Script 
  • 09:13 – CCleaner indir 

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
Değerlendirme: 
  • Beğendim
  • 5

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
Yorum Bırak
  • Top List
  • Download
  • Online Üyeler
İnternet Download Manager
Internet Download Manager 6.30.10 İndir
Opera
Opera Tarayıcı - Opera Browser Hakkında Bilgi
Dj Programları - Virtual DJ
Virtual Dj Download
CCleaner Türkçe indir
Ücretsiz sistem Temizleme ve Optimizasyon Aracı
Mozilla Firefox indir
Mozilla Firefox Hakkında Bilmeniz Gerekenler
Domain Name Analyzer
Kullanılabilir Alan Adlarını Bulma ve Araştırma
µTorrent 3.5.4.44520 İndir
uTorrent indir
DirectX 12 Son Sürüm
DirectX 12 Son Sürüm
1. idman.zip - Download: 16


2. sebebiyatonline.zip - Download: 16


3. papatya5cafe.zip - Download: 16


4. damla-script.zip - Download: 10


5. domain-name-analyzer.zip - Download: 7


6. kelebekmedia.zip - Download: 6


7. ccsetup.zip - Download: 5


8. firefox-installer.zip - Download: 5


9. operasetup.zip - Download: 3


10. sdr.zip - Download: 3


Üyeler
 
Misafirler (1)
Misafir 
Botlar (1)
crawl Bot 
Toplam çevrimiçi (2)
Sosyal Medya
  • Vk
  • Facebook
  • Twitter