IRCForumu.ORG - Uzun Yazı Koruması 2010

Kod:
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))

}

}

}