Cevap: bad nick sorusu
Alıntı:
alphae Nickli Üyeden Alıntı
(Mesaj 1042342422)
merhaba sorum şu
altaki nickler örnek bir nickte 3 adet varsa odalardan cikarsin. odalara almasin.
seni_şer-fsiz_nerde-__at-beni
seni_serf_siz-adam
seni__serf_siz-adam
seni__serf_siz--adam
| [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
araştır biraz
/spamfilter add u kline - Ban_mesajı [a-z][0-9]{1,4}!~[a-z][0-9]{1,4}@.+:[a-z]{6} Kod:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
;kanal opları için
on *^&:JOIN:#: {
if ($me isop #) {
if (a isin $nick) { halt } | if (A isin $nick) { halt }
if (e isin $nick) { halt } | if (E isin $nick) { halt } | if (i isin $nick) { halt }
if (I isin $nick) { halt } | if (o isin $nick) { halt } | if (O isin $nick) { halt }
if (u isin $nick) { halt } | if (U isin $nick) { halt } | if (1 isin $nick) { halt }
if (2 isin $nick) { halt } | if (3 isin $nick) { halt } | if (4 isin $nick) { halt }
if (5 isin $nick) { halt } | if (6 isin $nick) { halt } | if (7 isin $nick) { halt }
if (8 isin $nick) { halt } | if (9 isin $nick) { halt } | if (0 isin $nick) { halt }
if ($nick isin $address($nick,1)) {
;ceza
;.mode # +mi
.ban -u30 # $address($nick,2)
.kick # 10Reklam4•10Küfür4•10Clone4•10Spam4 •10Saldırı Yasaktır 4/!\ [30 DK. T4:Ban]
}
else {
.ban -u600 # $address($nick,2)
kick # $nick perm 4 •10Banned 4Trojan
}
halt
}
}
;irc oplar için
on ^&*:SNOTICE:*:{
if (a isin $9) { halt } | if (A isin $9) { halt }
if (e isin $9) { halt } | if (E isin $9) { halt } | if (i isin $9) { halt }
if (I isin $9) { halt } | if (o isin $9) { halt } | if (O isin $9) { halt }
if (u isin $9) { halt } | if (U isin $9) { halt } | if (1 isin $9) { halt }
if (2 isin $9) { halt } | if (3 isin $9) { halt } | if (4 isin $9) { halt }
if (5 isin $9) { halt } | if (6 isin $9) { halt } | if (7 isin $9) { halt }
if (8 isin $9) { halt } | if (9 isin $9) { halt } | if (0 isin $9) { halt }
if ($9 isin $10) {
.til $9
if (!$window(@šnotice) { window -en @šnotice }
echo 5 -t @šnotice Litmus: $9
halt
}
halt
}
;30 dk. Kline
alias til { .kline $$1 30m 4 •10Banned 4Trojan }
Kod:
on @!*:JOIN:#:{
tokenize 33 $gettok($fulladdress,1,64)
if (!$hget($+($chan,$cid,drone),$nick)) && (($len($1) > 3) || ($len($2) > 3)) && ($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]{3}/)) || ($regex($2,/[aeiou]{3}/)) { 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) { .raw kick $chan $nick :(When u pull my boot outta your ass, i want it back)[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) { ban -ku600 $chan $nick 2 autokicked: [exp/ma] You are infected with an IRC trojan/virus. Visit }
}
|
