Mirc Uzun Yazı Korumasi Uyarili

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)) 
    }
  }
}