mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Snippets - Parça kodlar

Snippets - Parça kodlar mIRC Scripting hakkında "parça /ufak kod" niteliği taşıyan kodlarını bulup veya paylaşabileceğiniz bölüm.

Like Tree6Teşekkür
  • 5 Post By CoCoRiCo
  • 1 Post By CoCoRiCo
Cevapla
 
LinkBack Seçenekler
  #1  
Alt 05 Ocak 2016, 11:05
CoCoRiCo - ait Kullanıcı Resmi (Avatar)
 Chief 

mS Puan: 571
mS Derece: CoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo Çalışkan
 
Üyelik tarihi: 10 Temmuz 2009
Bulunduğu yer: \xml:http\
Yaş: 41
Mesajlar: 135
Konular: 22
Eklentiler: 0
Alınan Teşekkür: 85
Yapılan Teşekkür: 18
Thumbs up 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))) }
}


fav, Paint, Feragat ve 2 diğerleri buna teşekkür ettiler.
__________________
3m2t
//alias $str($+(alias,$chr(32)),4) | alias
Alıntı ile Cevapla
Sponsored Links
  #2  
Alt 25 Ocak 2017, 18:00
Avatar Yok

mS Puan: 1
mS Derece: ExcLuSive
 
Üyelik tarihi: 01 Ekim 2015
Mesajlar: 3
Konular: 1
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 1
Standart

random ident olarakda kullanabilirmiyiz?
Alıntı ile Cevapla
  #3  
Alt 26 Ocak 2017, 08:42
CoCoRiCo - ait Kullanıcı Resmi (Avatar)
 Chief 

mS Puan: 571
mS Derece: CoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo Çalışkan
 
Üyelik tarihi: 10 Temmuz 2009
Bulunduğu yer: \xml:http\
Yaş: 41
Mesajlar: 135
Konular: 22
Eklentiler: 0
Alınan Teşekkür: 85
Yapılan Teşekkür: 18
Standart

Alıntı:
ExcLuSive Nickli Üyeden Alıntı Mesajı göster
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
fav buna teşekkür etti.
__________________
3m2t
//alias $str($+(alias,$chr(32)),4) | alias
Alıntı ile Cevapla
  #4  
Alt 27 Ocak 2017, 17:43
Avatar Yok

mS Puan: 1
mS Derece: ExcLuSive
 
Üyelik tarihi: 01 Ekim 2015
Mesajlar: 3
Konular: 1
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 1
Standart

Random nick demişsiniz. Random ident koruması olarak nasıl kullanabiliriz bu kodu?
Alıntı ile Cevapla
  #5  
Alt 30 Ocak 2017, 08:50
CoCoRiCo - ait Kullanıcı Resmi (Avatar)
 Chief 

mS Puan: 571
mS Derece: CoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo Çalışkan
 
Üyelik tarihi: 10 Temmuz 2009
Bulunduğu yer: \xml:http\
Yaş: 41
Mesajlar: 135
Konular: 22
Eklentiler: 0
Alınan Teşekkür: 85
Yapılan Teşekkür: 18
Standart

Alıntı:
ExcLuSive Nickli Üyeden Alıntı Mesajı göster
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
__________________
3m2t
//alias $str($+(alias,$chr(32)),4) | alias
Alıntı ile Cevapla
Cevapla

Etiketler
kontrol, nick, random

Seçenekler

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


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


Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting©
Powered by vBulletin®
Copyright © 2000-2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76