Webmaster  Forumu

Geri git   Webmaster Forumu > ıRC FORUM > mIRC Scripting ve Sohbet Programları > Hazır Kodlar

Cevapla
 
Seçenekler Stil
Alt 05-27-2008, 04:35 PM   #1
XcLusive
Webmaster
 
XcLusive - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: May 2008
Mesajlar: 59
Tecrübe Puanı: 10
XcLusive is on a distinguished road
Standart Random Nick Koruması


Kod:
alias randomnick if ($randn2($1)) || ($randn($1))  { return $true } | else { return $false }
alias randn2 {
  if $1- isalpha && $1- islower {
    if (($count($1,a,e,i,o,u) >= 4))  { return $false }
    if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }
    if ($len($1) >= 4) && ($regex($1,/^[a-z]+$)) {
      if ($regex($1,/^[^aeiou]{3}/)) { return $true }
      elseif ($regex($1,/([a-z])\1{2}/)) { return $true }
      elseif ($regex($1,/[aeiou]{3/)) { return $true }
      elseif ($regex($1,q[^u])) { return $true }
      elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) { return $true }
      else { return $false }
    }
  }
}
alias randn {
  if $1- isalpha && $1- islower {
    if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }
    if ($len($1) == 7) {
      var %son = $mid($1,$len($1),1)
      var %son2 = $mid($1,$calc($len($1) - 1),1)
      if (%son == %son2) { return $false }
      if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
      elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
      elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
      else { return $false }
    }
    elseif ($len($1) == 8) {
      var %son = $mid($1,$len($1),1)
      var %son2 = $mid($1,$calc($len($1) - 1),1)
      if (%son == %son2) { return $false }
      if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
      elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }
      elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
      else { return $false }
    }
    elseif ($len($1) == 9) {
      var %son = $mid($1,$len($1),1)
      var %son2 = $mid($1,$calc($len($1) - 1),1)
      if (%son == %son2) { return $false }
      if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
      elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }
      elseif $regex($mid($1,4,3),/(o|i|a|e|u)/g) <= 0) { return $true }
      elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
      else { return $false }
    }
    elseif ($len($1) == 10) {
      var %son = $mid($1,$len($1),1)
      var %son2 = $mid($1,$calc($len($1) - 1),1)
      if (%son == %son2) { return $false }
      if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
      elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
      elseif $regex($mid($1,4,5),/(o|i|a|e|u)/g) <= 0) { return $true }
      else { return $false }
    }
    if ($regex($1,/(o|i|a|e|u)/g) <= 0) && ($len($1) == 4) { return $true }
    elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 5) { 
      var %son = $mid($1,$len($1),1)
      var %son2 = $mid($1,$calc($len($1) - 1),1)
      if (%son == %son2) { return $false }
      else { return $true }
    }
    elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 6) { 
      var %son = $mid($1,$len($1),1)
      var %son2 = $mid($1,$calc($len($1) - 1),1)
      if (%son == %son2) { return $false }
      else { return $true }
    }
    elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) == 10) { return $true }
    elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) >= 11) { return $true }
    else { return $false }
  }
}
kullanım şekli:

;on !*:join:#:if ($randomnick($nick)) { işlev }
on !*:join:#:if ($randomnick($nick)) { kill $nick random nick kullanmayın! }
on !*:join:#:if ($randomnick($nick)) { gzline $nick +1h random nick kullanmayın! }

kod kullanımını echo olarak test edipte sunuyorum ve test sonuçları;
random nick : myjk
random nick : uipgrznytk
random nick : jcyeszdvnx
random nick : snrijyhodx
random nick : uqjzmlxck
random nick : harybwkv
random nick : harybwkv
random nick : aobfdxniq
random nick : nhxrlzydvku
random nick : gboylujnzap
random nick : wkghmsv
random nick : styi
random nick : osvxhiyta
random nick : rsfdoknchv
random nick : crdxvwbkpo
random nick : ytsapnzde
random nick : phtsmqegwxb
random nick : oavuptgh
random nick : zdcl
random nick : vtlanz
random nick : ybqulr
random nick : ybqulr
random nick : atjbs
random nick : tusxbgl
random nick : sgrud
random nick : tqwfbdpvmj
random nick : fwqykxp
random nick : xvyj
random nick : mhcviolyj
random nick : rqdwoutvfx
random nick : cpzvhewql
random nick : nlyfsvxkc
random nick : lvtzij
random nick : zjyxbtlvd
random nick : wxmbztuhyiq
random nick : pdbk
random nick : repqwji
random nick : uxqekirnyh
random nick : ylzehqgidna
random nick : ueigrdx
random nick : uklcgwat
random nick : paxrdkhb
random nick : lwfckbyxeu
random nick : gtzsebix
random nick : cqtsv
random nick : uqhvbmolg
random nick : dbzmyghkoa
random nick : skvlwgy
random nick : xbjoswmfr
random nick : gfqtjryhmxv
random nick : kqjix
random nick : qwerty
random nick : dfnhjgk
random nick : myway

sc5 clone işlemi için yapmış olduğum bir kodlamadır.
esinlenme CipriX (cem) arkadaşımın sayesindedir.
"randn2" aliases kodlaması başka birinden alınıp geliştirilmiştir.
ve bundan esinlenerek "randn" aliasesini yapılmıştır.
"randn" aliases ise tamamiyle kendime aittir.
__________________
Cahillik Eğitilebilir ama Aptallık Asla!
XcLusive isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 05-27-2008, 09:12 PM   #2
Disconnect
Webmaster
 
Üyelik tarihi: May 2008
Mesajlar: 5
Tecrübe Puanı: 0
Disconnect is on a distinguished road
Standart


hocam valla başka diyarlarda arama demişler içimizde imişsin paylaşımın için teşekrüler
Disconnect isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Cevapla


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

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ı

Hizli Erisim


WEZ Format +3. Şuan Saat: 11:08 AM.


Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.
webmaster