/* Random Nick ; Nick içinde 4 sessiz harf */ Benim İstedigim Sadece ; Diyeryerleri gibi random Nick Koruması deyil ; Kod: 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 • ] } Ü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. |
Cevap: /* Random Nick ; Nick içinde 4 sessiz harf */ Alıntı:
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 |
Cevap: /* Random Nick ; Nick içinde 4 sessiz harf */ 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. |
Cevap: /* Random Nick ; Nick içinde 4 sessiz harf */ Alıntı:
Kod: on *:join:#:{ Not: Denemedim. Düzenlendi. if $($+(%,p,?,$chan),2) == 3 { unutmuşum tekrar alın. |
Cevap: /* Random Nick ; Nick içinde 4 sessiz harf */ çalışmadı Geçersiz format: $ (Satır 5, script11.ini) |
Cevap: /* Random Nick ; Nick içinde 4 sessiz harf */ verdiğiniz code de oynama yapmadım çalışmadı:( 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 |
Cevap: /* Random Nick ; Nick içinde 4 sessiz harf */ Kod: on *:join:#:{ |
Cevap: /* Random Nick ; Nick içinde 4 sessiz harf */ tşkler |
Cevap: /* Random Nick ; Nick içinde 4 sessiz harf */ 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 |
Cevap: /* Random Nick ; Nick içinde 4 sessiz harf */ Konu benim istediğimdem farklı yerlere kadar gitmis :D Benim soruma cevab yokmu hala |
Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 06:15. |
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