Çevrimdışı

Benim İstedigim Sadece ; Diyeryerleri gibi random Nick Koruması deyil ;

-
Üstteki kod : Kanal Geneline 4've üstü sessiz harf yan yana geldiginde ve kanala yazıldıgında atıyor.
Ben ise ; Kanal Girişlerinde ; 4 ve üstü sessiz harf ; fjkfjk/grydm/yTQrw/ bNydsa vb. girişlerde gzline atsın istiyorum. Mümkünati varsa ; Şimdiden emegi gecen herkese tşk ederim.

__________________

 

Çevrimdışı

Available Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Benim İstedigim Sadece ; Diyeryerleri gibi random Nick Koruması deyil ; Kod:   Kodu kopyalamak için üzerine çift tıklayın! on *:text:*:#:if $regex($1-,/^\S+([^aeıiou\sA-Z]{4,}).+\s\S+\s.+([^aeıiouA-Z\s]{4,})\S$/S) { .gzline [ • KSCmgz - V-System • ] } on *:Join:*:#:if $regex << yaptıgımda Kod çalısmadı. - Üstteki kod : Kanal Geneline 4've üstü sessiz harf yan yana geldiginde ve kanala yazıldıgında atıyor. Ben ise ; Kanal Girişlerinde ; 4 ve üstü sessiz harf ; fjkfjk/grydm/yTQrw/ bNydsa vb. girişlerde gzline atsın istiyorum. Mümkünati varsa ; Şimdiden emegi gecen herkese tşk ederim.

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)) { gzline $nick 1h random nick/ident out out.. }
}


bunu deneye bilirsin sitede bu tarz addon mevcut . bunuda burdan aldım

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 11:02 -->-> Daha önceki mesaj 10:58 --

on @!*:JOIN:#:{
if (!$regex($nick,/korunannick1|korunannick2/i)) {
tokenize 33 $gettok($fulladdress,1,64)
if (!$hget($+($chan,$cid,drone),$nick)) && (($len($1) > 4) || ($len($2) > 4)) && ($regex($1,/^[a-z]+$) && $regex($2,/^~?[a-z]+$)) {
if ($regex($1,/^[^aeiou]{4}/)) || ($regex($2,/^(~?)[^aeiou]{4}/)) { goto end }
elseif ($regex($1,/([a-z])\1{2}/)) || ($regex($2,/([a-z])\1{2}/)) { goto end }
elseif ($regex($1,/[aeiou]{4/)) || ($regex($2,/[aeiou]{4}/)) { goto end }
elseif ($regex($1,q[^u]) || $regex($2,q[^])) { goto end }
elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) || ($regex($2,/[^aeioux]x[^aeiouyx]/)) { goto end }
else { halt }
:end
if ($nick ison $chan) { ban $chan $nick 2 | .timer 1 600 mode $chan -b $address($nick,2) | kick $chan $nick (Random (Rastgele) Nick ve/veya Ident..)[Drones Kicked: $+(%d.k,]) | inc %d.k }
hadd -mu60 $+($chan,$cid,drone) $replace($fulladdress,!,$chr(32))
halt
}
;elseif ($regex($nick,/^[A-Z][a-z]+[^0-9][0-9]{2}$/)) && (Guest* !iswm $nick) { echo 4 -s ban -ku600 $chan $nick 2 autokicked: [exp/ma] You are infected with an IRC trojan/virus. }
}


burasındada ban ı silip kick ide gzlineye cevırebılırsın cok kullanışlı oldugu defalarca yazılmıs

 

Çevrimdışı

merhaba kanala 3 saniye içinde 3 ve uzeri yan yana en az 3 sessiz nickli kişiler girerse kanal 2 dakkalığına +m almak istiyorum mumkünmüdür.

 

Çevrimdışı

Gulsum Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

merhaba kanala 3 saniye içinde 3 ve uzeri yan yana en az 3 sessiz nickli kişiler girerse kanal 2 dakkalığına +m almak istiyorum mumkünmüdür.

İlk kırmızı kaç sessiz harf yan yana olursa atacağı, ikinci kırmızı 3 saniye içinde kaç giriş olursa atacağı, son kırmızı kanalı kaç saniye sonra -m yapacağı.

Not: Denemedim.

Düzenlendi.

if $($+(%,p,?,$chan),2) == 3 {
unutmuşum tekrar alın.

 

Çevrimdışı

çalışmadı
Geçersiz format: $ (Satır 5, script11.ini)

 

Çevrimdışı

verdiğiniz code de oynama yapmadım çalışmadı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
1 kişide girse kanal +m oluyo nickin ortasında ahmmet 3 ve sonunda ahmettt 3 sessiz harf gelirse çalışıyo başta olursa sssemra çalışmıyo

 

Çevrimdışı

Test edilmiştir.

 

Çevrimdışı

tşkler

 

Çevrimdışı

hocam hiç alakasız bi şekilde +m yapıyo

[21:12] salise179 Sohbet@85.99.616AE8B2.5453C8F8
[21:12] serpil Sohbet@176.239.3E4302.97C7E180
[21:12] ank44__m turkirc@78.167.763264D7.26A3A7A3
[21:12] dr_hakan KELEBEK@95.15.204FB4A5.5D0B2719
[21:12] * GulsuM mod değiştirdi:+m

 

Çevrimdışı

Konu benim istediğimdem farklı yerlere kadar gitmis
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Benim soruma cevab yokmu hala

__________________