01 Aralık 2008, 19:54
|
#6 |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| /* Yazı Uzatma Koruması */
Yazı Uzatma koruması, CoCoRiCo tarafından yazılmıştır, gayet güzel çalıştığından ötürü, tekrar yazma gereğinde bulunmadım.
Lütfen, belirtilen yerleri dikkatle okuyup, koyduğunuz yerde, ayarlarını ona göre yapınız. Ayarlayacağınız bölmeler, Türkçe olarak belirtilmiştir. Gayet açık ve gelişmiş bir yazı uzatma korumasıdır. Kod: Kodu kopyalamak için üzerine çift tıklayın! on *^:text:*:#: {
if ($regex($1-,/([[:print:]])\1\1/ig) >= $calc($coconf(U.limit)/3)) {
inc $+(-u,$coconf(U.mem)) %uz [ $+ [ $nick ] ] 1
if (%uz [ $+ [ $nick ] ] >= $coconf(U.LM)) {
.ban $+(-ku,$calc($coconf(U.kbs)*60)) $chan $nick $coconf(U.sb)
.unset %uz [ $+ [ $nick ] ]
}
if (%uz [ $+ [ $nick ] ] >= $coconf(U.AL)) {
msg $chan $nick $coconf(U.yr)
}
}
}
alias coconf {
goto $1
:U.Limit {
;# harf limiti
RETURN 15
}
:U.LM {
;# Kac kezde atsın..
RETURN 2
}
:U.AL {
;# Uyarı limiti (üstteki deger ile aynı-yüksek olmamalıdır.)
RETURN 1
}
:U.mem {
;# Hatayı yapan nikc-Adres'in Hafızada kalacagı süre (sn)
RETURN 60
}
:U.sb {
;# Kick Sebebi..
RETURN Daha Once Uyarılmıştınız.
}
:U.yr {
;# Uyarı mesajı
RETURN Uyari: Lütfen kelimelerinizi uzatmadan yaziniz.
}
:U.kbs {
;# kikc\ban süresi "Dk."
RETURN 15
}
} |
| |