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 nick ident e eklenti (https://www.ircforumlari.net/mirc-scripting-sorunlari/409010-random-nick-ident-e-eklenti.html)

angry1 06 Eylül 2011 08:35
random nick ident e eklenti
 
S.a arkadaşlar değerli hocalarımızın paylaşmıs oldugu 1 random koruma cokta güzel çalısıyor. önceliklle emeği gecen kode sahibine tşk ederim..

Benim bu koda eklenti isteğim Şudur
on !*:join:#: { bunu join kanala giriş değilde SUNUCU ya bağlanırken algılayıp gline eklemesini istiyorum..
değişmem gereken yer bu sekıldemi olcak | on *:snotice:*Client connecting*: {

bu şekilde olursa extra who falandamı ister bu raw dan algılıyacak falan qibi

yardımcı olursanız cok faydalı bır kode.

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 }
}
}
on !*:join:#: {
var %identd = $gettok($gettok($address($nick,5),1,64),2,33),-1)
if ($randomnick($nick)) || ($randomnick(%identd)) { kill $nick Random nick ident yasaktır }
}

WingmaN 06 Eylül 2011 13:35
Cevap: random nick ident e eklenti
 
Kod:
on *:snotice:*:{
  if *Client*connecting*on* iswm $1- {
    var %::pid = $remove($gettok($left($left($10,-1),-1),1,64),$chr(40)) || %::dx = $gettok($right($left($10,-1),-1),2,64)
    if ($randomnick($9)) || ($randomnick(%::pid)) { gline $+(*@,%::dx) - Random nick ident yasaktır }
  }
}

angry1 06 Eylül 2011 20:54
Cevap: random nick ident e eklenti
 
Alıntı:
WingmaN Nickli Üyeden Alıntı (Mesaj 1040805883)
Kod:
on *:snotice:*:{
  if *Client*connecting*on* iswm $1- {
    var %::pid = $remove($gettok($left($left($10,-1),-1),1,64),$chr(40)) || %::dx = $gettok($right($left($10,-1),-1),2,64)
    if ($randomnick($9)) || ($randomnick(%::pid)) { gline $+(*@,%::dx) - Random nick ident yasaktır }
  }
}

Hocam bunun hiç bir etkisi olmadı çalışmadı nedense

WingmaN 07 Eylül 2011 02:50
Cevap: random nick ident e eklenti
 
Verdiğin koda göre, %100 çalışır. Eğer ki eklerken bir problem yaptıysan bilemem, "alias randomnick" bunu da, kontrol et. Bi problem göremedim, hiç olmadı sunucuna giriş yapıldığında çıkmış olan " SNOTICE " mesajını buraya kopyala, ona göre bişiler yapabiliriz.

angry1 16 Ekim 2011 22:17
Cevap: random nick ident e eklenti
 
Alıntı:
WingmaN Nickli Üyeden Alıntı (Mesaj 1040807179)
Verdiğin koda göre, %100 çalışır. Eğer ki eklerken bir problem yaptıysan bilemem, "alias randomnick" bunu da, kontrol et. Bi problem göremedim, hiç olmadı sunucuna giriş yapıldığında çıkmış olan " SNOTICE " mesajını buraya kopyala, ona göre bişiler yapabiliriz.

[22:10:34] -irc.xxx.net- *** Notice -- Client connecting on port 6667: sohbetUser-314796 (mIRC@188.56.209.83) [clients]
-
* sohbetUser-314796 H mIRC@188.56.209.83 :0 %adalet mülkün temelidir
sohbetUser-314796 End of /WHO list.
-

-
[22:10:34] -irc.xxx.net- *** Notice -- Client connecting on port 6667: AsiGirL (End@85.108.133.216) [clients]
-
* AsiGirL H End@85.108.133.216 :0 End
AsiGirL End of /WHO list.

Hocam girişler status de bu sekıl cıkıyor

kullanıcı listesindede su sekıl ekli
random:*!*oeiie*@*
random:*!*oio*@*
random:*!*uie*@*
random:*!*jx*@*
random:*!*aou*@*
random:*!*oua*@*
random:*!*iio*@*
random:*!*eii*@*
random:*!*eoe*@*
random:*!*wv*@*
random:*!*yj*@*
random:*!*dlk*@*
random:*!*czn*@*
random:*!*tbh*@*
random:*!*dz*@*
random:*!*wf*@*
random:*!*qu*@*
random:*!*iiu*@*
random:*!*qz*@*
random:*!*xf*@*
random:*!*jc*@*
random:*jx*!*@*
random:*uai*!*@*
random:*uoe*!*@*
random:*aio*!*@*
random:*ouo*!*@*
random:*aea*!*@*
random:*aei*!*@*
random:*oae*!*@*
random:*oea*!*@*
random:*oii*!*@*
random:*iao*!*@*
random:*ooe*!*@*
random:*ooi*!*@*
random:*ooa*!*@*
random:*eoo*!*@*
bu sekılde iden host olarak eklı devamı var yani.

angry1 17 Ekim 2011 05:00
Cevap: random nick ident e eklenti
 
hocam random listte problem varsa ayrı bir txt dosyasımı olusturup ordan okutsak

WingmaN 17 Ekim 2011 15:21
Cevap: random nick ident e eklenti
 
Kod:
on *:snotice:*:{
  if *Client*connecting*on* iswm $1- {
    var %::pid = $remove($gettok($left($left($10,-1),-1),1,64),$chr(40)) || %::dx = $gettok($right($left($10,-1),-1),2,64)
    if ($randomnick($9) == $true) || ($randomnick(%::pid) == $true) { gline $+(*@,%::dx) - Random nick ident yasaktır }
  }
}


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

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