mIRC Scripting - Random Nick Kontrol

mIRC Scripting (https://www.mircscripting.net/)

- Snippets - Parça kodlar (https://www.mircscripting.net/snippets-parca-kodlar/)

- - Random Nick Kontrol (https://www.mircscripting.net/snippets-parca-kodlar/900-random-nick-kontrol.html)

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))) }

}

http://i.imgur.com/DUtHjIA.png

http://i.imgur.com/TeXt9Hy.png

random ident olarakda kullanabilirmiyiz?

Alıntı:

ExcLuSive Nickli Üyeden Alıntı (Mesaj 2251)

random ident olarakda kullanabilirmiyiz?

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

Random nick demişsiniz. Random ident koruması olarak nasıl kullanabiliriz bu kodu?

Alıntı:

ExcLuSive Nickli Üyeden Alıntı (Mesaj 2256)

Random nick demişsiniz. Random ident koruması olarak nasıl kullanabiliriz bu kodu?

"/rand? kontrol_edilecek_kelime Nick"

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

++ mIRCScripting.net hakkında kısaca:

mS; "Gayri resmi mIRC" kullanıcı ve tasarımcı topluluğudur.
2009 yılında kurulan mS; tasarımcı ve geliştiricileri bir araya getiren etkileşim ve iletişim sağlayan bir platformdur.
mS; tasarım, programlama, geliştirme, düzenleme vb. pek çok konu etrafında bir araya gelmiş "mIRC" meraklısı bir çok insan tarafından yaratılan içeriğiyle; kullanıcı dostu, özgün elit, nitelikli kişi ve konularla hizmet sunan mIRC Scripting platformudur.

Özgün içerikten onay almaksızın içeriği yaratan kullanıcılarımız tamamen yada kısmen sorumludur, aynı zamanda söz konusu içerik mS yetkilileri izni olmaksızın, kaynak gösterilse dahi(!) kopyalanamaz ve/ya paylaşılamaz. Site/içerik hakkında görüş, öneri ve şikayetleriniz için sikayet[at]mircscripting[dot]net e-posta ve ya İletişim adresinden bizlere ulaştırabilirsiniz.

FLINK: mIRC Offical - Hasan AYDENİZ - Koli - KARMA - Karma Aydınlatma

mIRC mIRC Orjinal mIRC İndir mIRC Download mIRC Tutorials mIRC Socket mIRC Commands mIRC Komutlar mIRC Yükle mIRC Dersler mIRC Hazır Kodlar mIRC Classentifier mIRC DLL mIRC Dialog mIRC IRC mIRC FTP mIRC Telnet mIRC Help
mIRC Yardım mIRC Iconlar mIRC Com Object mIRC Binary Files mIRC Picture Windows mIRC Unicode mIRC Forum mIRC Hazır Kodlar mIRC Kod mIRC Script mIRC File Handling mIRC Scripting Language mIRC Scripting Dili mIRC Scripting Info
mIRC Scripting Tutorials