alias repeat_words {
  var %text = $1-
  var %min = 3,%catch = $false
  while (%min <= $len(%text)) {
    if ($regex(%text, /( $+ $mid(%text, 1, %min) $+ )/gi) >= 4) {
      %catch = $true
      break
    }
    inc %min
  }
  if (%catch) {
    return $true
  }
}
 
on *:TEXT:*:#: {
  if ($repeat_words($1-)) {
    ban -k $chan $nick 2 Lütfen Karekter Tekrarı Yapmayın...
    halt
  }
}