Hazır kod Uzun Yazı Koruması 2010

on @*:text:*:#: {
if ($nick isop $chan) || ($nick == $me) { halt }
if ($len($strip($1-)) >= 250) {
hinc -mu10 uzunyazi $+($chan,.,$nick) 1
if $hget(uzunyazi,$+($chan,.,$nick)) == 1 {
.msg # $nick : Uzun yazı yazmak yasaktır, lütfen bu kurala uygun yazınız.
}
if $hget(uzunyazi,$+($chan,.,$nick)) == 2 {
.msg # $nick : Uzun yazı yazmamanız konusunda 2. uyarınız, tekrarlamanız halinde kanaldan uzaklaştırılacaksınız.
}
if $hget(uzunyazi,$+($chan,.,$nick)) == 3 {
.ban # $nick 5
.kick # $nick Bu kanal içerisinde uzun yazı yazmak yasaktır.
.hdel -s uzunyazi $+($chan,.,$nick))
}
}
}