Uzun Yazı Korumasi Uyarılı

on @*:text:*:#: {
  if ($regex($1-,/([[:print:]])\1\1/gi) >= 10) {
    hinc -mu20 uzunharf $+($chan,.,$nick) 1
    if $hget(uzunharf,$+($chan,.,$nick)) == 1 {
      .msg # $nick :4UYARI! 4Lütfen 4UzuN 4Yazı 4Yazmayınız  4Aksi 4Taktirde 4Kanaldan 4Uzaklaştırılıcaksınız.
    }
    if $hget(uzunharf,$+($chan,.,$nick)) == 2 {
      .ban # $nick 5
      .kick # $nick Harfleri uzattınız ve(Tekrar ettiniz)
      .hdel -s uzunharf $+($chan,.,$nick))
    }
  }
}