IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Random kod çakışması (https://www.ircforumlari.net/mirc-scripting-sorunlari/309359-random-kod-cakismasi.html)

Emrax 05 Ocak 2010 04:49

Random kod çakışması
 
PHP- Kodu:

#Random off
alias randomnick if ($randn2($1)) || ($randn($1))  { return $true } | else { return $false }
alias randn2 {
  if $
1isalpha && $1islower {
    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 $
1isalpha && $1islower {
    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 }
  }
}

on !*:join:#mIRCTR: {
  
if ($randomnick($nick)) {
    var %
ident $gettok($address,1,64),32)
    if !
$istok(TRSohbetLi Numberone indirmIR AsKim Operator Ne.Ayaksln ProSohbet Nickserv sSs ulcln GeNeSiS Emrah MultiMRC Quiet diE Damn lcX X K-Turk Kursun-v2 Bjk Love filmdizizl kuzu AfyoK Constantin SCScript yAkLaSmA mIRCindirU mIRCTRWeb KLBKvTurk TriviaBot mIRCIndir_ SohbetIRC Bitanem-v4 keleweb Intel MoDe mIRCTR KLBKBETA KELEBEKTR KTurkce KLBKveLite,%ident,32) {
      if !
$istok(Ahus neXGen_v2 user aSk IyimIRCv3 bLack Muhabbetke mIRC Turk yılmaX Admin IRC IRCd SoylemIRC burak Dark izmIRC King Neveda asiL trnc zurna is0hbet kArA.qoSLu Sensizim mIRCKalbim IRC MT.Gops Turk ikiSohbet T-Mirc Sohbet KlbkTurkce kelebek d4rkL0rd KelebekTR ekelebek Sturk bad SohbeTTurk mIRCIndir vXy,%ident,32) {
        if (
$nick == lmpoSslbLe) || ($nick == spawm) || ($nick == Abby)  || ($nick == Exquisite) || ($nick == Blacksea) || ($nick == HoLLy) { halt }
        
gzline $nick +1d 0,1mIRCTR 5,1Security 0,1System5,1&#8482;9,1[0,1Råñdøm 0,1ñi¢k9,1] 
      
}
    }
  }
}
#Random end

alias F9 { if $group(#Random) == off { .enable #Random| echo -a 14,1Random1 Koruması 4,1AçıLdı!! }
  
else { if $group(#Random) == on { .disable #Random | echo -a 14,1Random1 Koruması 4,1Kapatıldı!! }
  
}


Bu kod ile

PHP- Kodu:

#Random2 off
alias randomnick if ($randn2($1)) || ($randn($1))  { return $true } | else { return $false }
alias randn2 {
  if $
1isalpha {
    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 $
1isalpha {
    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 }
  }
}

on !*:join:#mIRCTR: {
  
if ($randomnick($nick)) {
    var %
ident $gettok($address,1,64),32)
    if !
$istok(TRSohbetLi Numberone IRC IRCd Ne.Ayaksln ProSohbet Nickserv GeNeSiS MultiMRC Quiet diE Damn lcX X K-Turk Kursun-v2 Bjk Love filmdizizl kuzu AfyoK Constantin SCScript yAkLaSmA mIRCindirU mIRCTRWeb KLBKvTurk TriviaBot mIRCIndir_ SohbetIRC Bitanem-v4 keleweb Intel MoDe mIRCTR KLBKBETA KELEBEKTR KTurkce KLBKveLite,%ident,32) {
      if !
$istok(Ahus neXGen_v2 user indirmIR AsKim Operator aSk IyimIRCv3 bLack Muhabbetke mIRC Turk Emrah sSs ulcln yılmaX Admin SoylemIRC burak Dark izmIRC King Neveda asiL trnc zurna is0hbet kArA.qoSLu Sensizim mIRCKalbim IRC MT.Gops Turk ikiSohbet T-Mirc Sohbet KlbkTurkce kelebek d4rkL0rd KelebekTR ekelebek Sturk bad SohbeTTurk mIRCIndir vXy,%ident,32) {
        if (
$nick == lmpoSslbLe) || ($nick == spawm) || ($nick == Abby)  || ($nick == Exquisite) || ($nick == Blacksea) || ($nick == HoLLy) { halt }
        
gzline $nick +1d 0,1mIRCTR 5,1Security 0,1System5,1&#8482;9,1[0,1Råñdøm 0,1ñi¢k9,1] 
      
}
    }
  }
}
#Random2 end

alias F10 { if $group(#Random2) == off { .enable #Random2| echo -a 14,1Random2 Koruması 4,1AçıLdı!! }
  
else { if $group(#Random2) == on { .disable #Random2 | echo -a 14,1Random2 Koruması 4,1Kapatıldı!! }
  
}


Bu kod çakışıp işlem yapmama olasılığı var mı? Birde f9 ve f10 ile değilde tek bir tuşla ikisinide açmak mümkün mü?
Fikirlerinizi bekliyorum..

WeiLSiDe 05 Ocak 2010 10:51

Cevap: Random kod çakışması
 
gördüğüm kadarı ile iki kodun da alias isimleri aynı alias randn vs. alias isimlerini değiş öle dene.
ikincisi
.enable #Random2 | enable #alanadı | echo -a 14,1Random2 Koruması 4,1AçıLdı!! }

şeklinde çoğaltabilirsin...
en basiti bi kod ile açıklayayım
on *:join:#:if ($nick == X-ir) { msg # hoşgeldin X-ir | msg # neden geldin X-ir | msg # tmm sus şimdi }

Umarım işine yarar iyi forumlar...

Emrax 05 Ocak 2010 11:51

Cevap: Random kod çakışması
 
Deniyorum hocam..Saolun..Sonucu bildircem

----------

Hocam sadece açıldı diye yazdı tekrar bastığımda kapandı demiyor.Ama alias isimlerini değiştirdim.

----------

Arkadaşlar bekliyorum bu 2 kodu aynı anda tek tuşla nasıl açabilirim :S

WeiLSiDe 05 Ocak 2010 12:49

Cevap: Random kod çakışması
 
Kapanması içinde aynını yapmalısın yani şöyle

birini aç | diğerini kapa | birini aç | diğerini kapa

enable #1 | enable #2 | disable #3 | disable #4

umarım anlatabilmişimdir.

Emrax 05 Ocak 2010 13:07

Cevap: Random kod çakışması
 
Hocam aynı o şekilde yaptım.Ama olmadı kod aşağıda düzenler misinz lütfen :S

#Random off
;Random koruması kodları
#Random end

alias F9 { if $group(#Random) == off { .enable #Random| enable #Random2 | echo -a 14,1Random Korumaları 4,1AçıLdı!! }
else { if $group(#Random) == on { .disable #Random | disable #Random2 | echo -a 14,1Random Korumaları 4,1Kapatıldı!! }
}
}

Bu şekilde yaptım ama olmadı :S

WeiLSiDe 05 Ocak 2010 16:05

Cevap: Random kod çakışması
 
alias F9 { if $group(#Random) == off { enable #Random | enable #Random2 | echo -s Random Korumaları AçıLdı!! }
else { if $group(#Random) == on { disable #Random | disable #Random2 | echo -a Random Korumaları Kapatıldı!! }
}
}

#random off
kodlar
#random end


#random2 off
kodlar
#random2 end

ufak bi hata yapmışsın (boşluk koymayı unutmuşsun)
İyi Forumlar...


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 12:31.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk