on @*:text:*:#: {
if ($regex($1-,/([[:print:]])\1\1/gi) >= 10) {
hinc -mu20 uzunharf $+($chan,.,$nick) 1
if $hget(uzunharf,$+($chan,.,$nick)) == 1 {
.msg # $nick : lütfen harfleri uzatmadan yazınız.
}
if $hget(uzunharf,$+($chan,.,$nick)) == 2 {
.ban # $nick 5
.kick # $nick Harfleri uzatmadan yazmanız konusunda uyarıları dikkate almadınız.
.hdel -s uzunharf $+($chan,.,$nick))
}
}
}