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

Etiketlenen Kullanıcılar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 05 Ocak 2010, 04:49   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Random kod çakışması




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#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 Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#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..

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver
Alt 05 Ocak 2010, 10:51   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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...

 
Alıntı ile Cevapla

Alt 05 Ocak 2010, 11:51   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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

 
Alıntı ile Cevapla

Alt 05 Ocak 2010, 12:49   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

Alt 05 Ocak 2010, 13:07   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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

 
Alıntı ile Cevapla

Alt 05 Ocak 2010, 16:05   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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...

 
Alıntı ile Cevapla

Cevapla

Etiketler
cakismasi, çakışması, kod, mirc download, mirc indir, random


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

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 Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Input Cakışması. yaLin mIRC Scripting Sorunları 6 20 Mart 2017 00:09
İnput Çakışması Slalayl0m mIRC Scripting Sorunları 4 03 Nisan 2015 19:44
input Çakışması StyLechiLd mIRC Scripting Sorunları 4 28 Temmuz 2013 19:01
Alias Çakışması serencebey mIRC Scripting Sorunları 1 21 Ocak 2013 16:36
xpopup.dll dcx.dll çakışması muratt_aziz mIRC Scripting Sorunları 1 28 Ocak 2010 13:21