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 nickler sajoin (https://www.ircforumlari.net/mirc-scripting-sorunlari/506338-random-nickler-sajoin.html)

Extre 06 Ekim 2012 23:07

Random nickler sajoin
 
Arkadaşlar mümkün müdür bilmiyorum. Elinde random nick ident ve fullname koruması olan varsa girişte otomatik #status kanalına sajoin edebilecek şekilde uyarlayıp verebilir mi?

IRC-Dancer 07 Ekim 2012 10:53

Cevap: Random nickler sajoin
 
on *:snotice:*Client*connecting* {
if ($regex($9,([^aeıiİouÜöÖ0-9_]{4,}))) && (!$istok(muaf1 muaf2 muaf3,$9,32)) {
sajoin $9 #Status
}
}


Not : Kırmızı rakam '' 4 '' : Yanyana gelcek sessiz harf rakamını belirtmekte.
Not : Kırmızı Muaf1* : Korumadan Muaf tutulcak nick'ler.

Extre 07 Ekim 2012 13:04

Cevap: Random nickler sajoin
 
Alıntı:

Vagrant Nickli Üyeden Alıntı (Mesaj 1041224012)
on *:snotice:*Client*connecting* {
if ($regex($9,([^aeıiİouÜöÖ0-9_]{4,}))) && (!$istok(muaf1 muaf2 muaf3,$9,32)) {
sajoin $9 #Status
}
}


Not : Kırmızı rakam '' 4 '' : Yanyana gelcek sessiz harf rakamını belirtmekte.
Not : Kırmızı Muaf1* : Korumadan Muaf tutulcak nick'ler.

Dostum sajoinde sorun yok ama şu ana kadar sajoinlediği nicklerin tamamı user random ile alakası yok.

Etkili bi random remotesine uygulanması lazım.

IRC-Dancer 07 Ekim 2012 14:37

Cevap: Random nickler sajoin
 
if (($regex($9,/[^aeiou]{3}/i)) || ($regex($1,/[aeiou]{3}/i))) { return $true }


Bunla Değiştirmeyi dener misin , bende aynı komutu kullanıyorum , sorun yok.

Extre 07 Ekim 2012 16:30

Cevap: Random nickler sajoin
 
Alıntı:

Vagrant Nickli Üyeden Alıntı (Mesaj 1041224101)
if (($regex($9,/[^aeiou]{3}/i)) || ($regex($1,/[aeiou]{3}/i))) { return $true }


Bunla Değiştirmeyi dener misin , bende aynı komutu kullanıyorum , sorun yok.

Değiştirdim ama sıradan userları çekiyor.

IRC-Dancer 07 Ekim 2012 16:48

Cevap: Random nickler sajoin
 
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 }
}
}
menu channel,status {
Random Nick Koruması
Aç :.enable #random | echo -at Random Nick Koruması Acılmışdır.
kapat:.disable #random | echo -at Random Nick Koruması Kapatılmışdır.
}
#random on
on !*:join:#:if ($randomnick($nick)) { sajoin $nick #Status }
#random end


bunu dene birde :)

q0kh4n 07 Ekim 2012 17:50

Cevap: Random nickler sajoin
 
[QUOTE=Vagrant;1041224012]on *:snotice:*Client*connecting* {
if ($regex($9,([^aeıiİouÜöÖ0-9_]{4,}))) && (!$istok(muaf1 muaf2 muaf3,$9,32)) {
sajoin $9 #Status
}
}


on *:snotice:*Client*connecting* { bu satırda hata var doğrusu on *:snotice:*Client*connecting*:{

IRC-Dancer 07 Ekim 2012 18:46

Cevap: Random nickler sajoin
 
[QUOTE=q0kh4n;1041224185]
Alıntı:

Vagrant Nickli Üyeden Alıntı (Mesaj 1041224012)
on *:snotice:*Client*connecting* {
if ($regex($9,([^aeıiİouÜöÖ0-9_]{4,}))) && (!$istok(muaf1 muaf2 muaf3,$9,32)) {
sajoin $9 #Status
}
}


on *:snotice:*Client*connecting* { bu satırda hata var doğrusu on *:snotice:*Client*connecting*:{

on *:snotice:*Client*connecting*:{
if ($regex($9,([^aeıiİouÜöÖ0-9_]{4,}))) && (!$istok(muaf1 muaf2 muaf3,$9,32)) {
sajoin $9 #Status
}
}

Teşekkürler '' : '' koymamışım düzeltildi.

Extre 07 Ekim 2012 18:49

Cevap: Random nickler sajoin
 
Alıntı:

Vagrant Nickli Üyeden Alıntı (Mesaj 1041224159)
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 }
}
}
menu channel,status {
Random Nick Koruması
Aç :.enable #random | echo -at Random Nick Koruması Acılmışdır.
kapat:.disable #random | echo -at Random Nick Koruması Kapatılmışdır.
}
#random on
on !*:join:#:if ($randomnick($nick)) { sajoin $nick #Status }
#random end


bunu dene birde :)

Sonunda bu daha iyi hiç olmazsa random çekiyor :)

IRC-Dancer 07 Ekim 2012 19:00

Cevap: Random nickler sajoin
 
Kısa yoldan ekletmek istedim lakin , arada hatalarımda oluyor elbet , Coder değilim. Kendi çapımızda birşeyler yapmaya çalısıyoruz işte , faydalı olduysa ne mutlu. Başarılar ~~ @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net