IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 2 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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 konusunda yardım edebilirmisiniz ? (https://www.ircforumlari.net/mirc-scripting-sorunlari/177168-random-konusunda-yardim-edebilirmisiniz.html)

XcLusive 30 Aralık 2009 21:20
Cevap: Random konusunda yardım edebilirmisiniz ?
 
Kod:
alias randomnick if ($randn2($1)) || ($randn($1))  { return $true } | else { return $false }
alias randn2 {
  if $1- isalpha {
    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 {
    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 }
  }
}
bu alias'ı önceki ile değiştirirsen istediğin olur

Emrax 30 Aralık 2009 22:37
Cevap: Random konusunda yardım edebilirmisiniz ?
 
Hem identi ve nicki büyük küçük karışık olan randomları hemde identi ve nicki küçük olan randomları atma şansı yok mu hocam tek kodla..Şimdiden emeğiniz için teşekkür ederim.

Emrax 30 Aralık 2009 22:37
Cevap: Random konusunda yardım edebilirmisiniz ?
 
Saolun hocam deniyorum hemen.

----------

-
* /if: Geçersiz format (Satır 17, İdentNick.txt)


Hatası veriyor hocam :(

----------

Hocam script versiyonum 6.35 onla alakası yoktur herhalde.Bekliyorum hocam yorumuzunuzu üstteki hatayı veriyor

----------

Hocam o sorunu çözdük yardımızla saolasınız ama bu kezde küçük nickleri atmıyor.
[22:23:01] * Giriş: wpjrulksdJassd (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[22:23:02] * X-ir mod değiştirdi:+b *!*@2DD80C33.199DC7D0.71A06DCE.IP

bunları atıyor

[22:23:34] * Giriş: qosaıdıoadsd (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[22:24:12] * Ayrıldı: qosaıdıoadsd (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)

atmıyor :S


----------

Hem identi ve nicki büyük küçük karışık olan randomları hemde identi ve nicki küçük olan randomları atma şansı yok mu hocam tek kodla..Şimdiden emeğiniz için teşekkür ederim.

----------

Hem identi ve nicki büyük küçük karışık olan randomları hemde identi ve nicki küçük olan randomları atma şansı yok mu hocam tek kodla..Şimdiden emeğiniz için teşekkür ederim.

XcLusive 30 Aralık 2009 22:59
Cevap: Random konusunda yardım edebilirmisiniz ?
 
kodu düzenlemiştim tekrar almışsın sanırım.
kodda türkçe karakter desteği yok ondan atmamıştır.

Emrax 31 Aralık 2009 00:05
Cevap: Random konusunda yardım edebilirmisiniz ?
 
Hocam nicki BURAK identi MIRCTR olanında attı bende şu şekilde muaf ekledim acaba ne kadar doğru.Kodu veriyorum
alias randomnick if ($randn2($1)) || ($randn($1)) { return $true } | else { return $false }
alias randn2 {
if $1- isalpha {
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 {
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:{
var %identd = $gettok($gettok($address($nick,5),1,64),2,33),-1)
if !$istok(Ahus neXGen_v2 aSk Admin SoylemIRC burak Dark izmIRC King Neveda asiL trnc zurna is0hbet kArA.qoSLu Sensizim mIRCKalbim IRC MT.Gops Turk ikiSohbet T-Mirc Sohbet TRSohbetLi Numberone Nickserv 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 KTurkce KLBKveLite SohbeTTurk mIRCIndir KlbkTurkce kelebek d4rkL0rd KelebekTR ekelebek Sturk bad vXy,$right($gettok($10,1,64),-1),32) {
if ($randomnick($nick)) && ($randomnick(%identd)) { ban -k $chan $nick 2 0,1X-ir 5,1Security 0,1System5,1™9,1[0,10,1Råñdøm 0,1ñi¢k9,1] }
}

SaNaLStaR 26 Aralık 2010 18:53
Cevap: Random konusunda yardım edebilirmisiniz ?
 
koruma nasıl aktif oluyor ve kapatiliyor?

Cihandar 26 Aralık 2010 19:08
Cevap: Random konusunda yardım edebilirmisiniz ?
 
Alıntı:
SaNaLStaR Nickli Üyeden Alıntı (Mesaj 1040629882)
koruma nasıl aktif oluyor ve kapatiliyor?

Kod:
#koruma on

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


#koruma end
bu şekilde remote'ye ekle

Bunuda Popups'da istedigin bir yere ekleyebilirsin

Kod:
Koruma ON: .enable #koruma
Koruma OFF: .disable #koruma

SaNaLStaR 26 Aralık 2010 20:39
Cevap: Random konusunda yardım edebilirmisiniz ?
 
zline atacak ?

Leo 26 Aralık 2010 22:34
Cevap: Random konusunda yardım edebilirmisiniz ?
 
[22:31:20] *** Giriş Yapan: [TUR|00|MP|2590] ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

[22:30:21] *** Giriş Yapan: [RUS|00|D|82859] ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

[22:15:09] *** Giriş Yapan: RUS|77527 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:09] *** Giriş Yapan: TUR|29459 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:09] *** Giriş Yapan: [M]TUR|19571 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: [M]TUR|32107 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: [M]TUR|47513 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: TUR|04756 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: [M]TUR|98722 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: [M]TUR|66848 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: TUR|23718 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: TUR|76595 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

BU şekil girenlere zline atmiyor ne yapa biliriz atmasi için

Difuzyon 26 Aralık 2010 23:31
Cevap: Random konusunda yardım edebilirmisiniz ?
 
Alıntı:
Leo Nickli Üyeden Alıntı (Mesaj 1040630095)
[22:31:20] *** Giriş Yapan: [TUR|00|MP|2590] ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

[22:30:21] *** Giriş Yapan: [RUS|00|D|82859] ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

[22:15:09] *** Giriş Yapan: RUS|77527 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:09] *** Giriş Yapan: TUR|29459 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:09] *** Giriş Yapan: [M]TUR|19571 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: [M]TUR|32107 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: [M]TUR|47513 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: TUR|04756 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: [M]TUR|98722 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: [M]TUR|66848 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: TUR|23718 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[22:15:10] *** Giriş Yapan: TUR|76595 ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

BU şekil girenlere zline atmiyor ne yapa biliriz atmasi için

Bu görüntülere bakarak aşağıdaki kodu tavsiye edebilirim:

Kod:
on *:snotice:*Client*connect*:if $regex($1-,/[A-Z]+\|\d+\s\x28(.*)?([^aeiou]){3}(.*)?\x40/) { zline $9 +0 Sebep }
Büyük harf: ABC
Seperatör: |
Rakamlar: 0123
İdent bilgisinde yanyana 3 sessiz harf : xyz
Örnek: Giriş Yapan: [M]TUR|98722 (myzeh@..

Bu tanımlara uyan girişlere işlem yapacaktır.

Hoşca paylaşımlar..


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 04:27.
Sayfa 2 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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