on @*:text:*:#: {
  if ($nick isop $chan) || ($nick == $me) { halt }
  if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) {
    hinc -mu10 harfuzatma $+($chan,.,$nick) 1
    if $hget(harfuzatma,$+($chan,.,$nick)) == 1 {
      .msg # $nick : harf uzatmak yasaktır, lütfen bu kurala uygun yazınız.
    }
    if $hget(harfuzatma,$+($chan,.,$nick)) == 2 {
      .msg # $nick : harf uzatma konusunda 2. uyarınız, tekrarlamanız halinde kanaldan uzaklaştırılacaksınız.
    }
    if $hget(harfuzatma,$+($chan,.,$nick)) == 3 {
      .ban # $nick 5
      .kick # $nick Bu kanal içerisinde harf'leri uzatmak yasakdır.
      .hdel -s harfuzatma $+($chan,.,$nick))
    }
  }
}

<Guest5434088> selammm
<GhoSt> Guest5434088 : harf uzatmak yasaktır, lütfen bu kurala uygun yazınız.
<Guest5434088> selammm
<GhoSt> Guest5434088 : harf uzatma konusunda 2. uyarınız, tekrarlamanız halinde kanaldan uzaklaştırılacaksınız.