harf uzatma uyararak atma kodu

[MasteR]

on *^:text:*:#: {
if ($regex($1-,/([[rint:]])\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 Kac Olsun?
RETURN 15
}
:U.LM {
;# Kac Tekrarda Atsın?
RETURN 3
}
:U.AL {
;# Uyarı limiti (Üstteki Değer Ile Aynı ve Yüksek Olmamalıdır.)
RETURN 2
}
:U.mem {
;# Hatayı Yapan Nick Kaç Saniye Hafızada Kalsın?
RETURN 60
}
:U.sb {
;# Kick Sebebi Ne Olsun?
RETURN Kelimeleri Lütfen Uzatmadan Yazın. (Daha Önceden Uyarılmıştın.)
}
:U.yr {
;# Uyarı Mesajı Ne Olsun?
RETURN Uyari: Lütfen Kelimelerinizi Uzatmadan Yazınız.
}
:U.kbs {
;# kikc\ßan Süresi "Kaç Dakika Olsun ?"
RETURN 15
}
}


kod cesuryurek e aittir