alias char {
  var %i 1,%q $1-
  while %i <= $len($1-) {
    if $read(char.txt,w,$+(*,$mid($1-,%i,1),*)) { %q = %q }
    if !$read(char.txt,w,$+(*,$mid($1-,%i,1),*)) { %q = $remove(%q,$mid($1-,%i,1)) }
    inc %i
  }
  if ($len(%q) >= 5) { return $true }
  else { return $false }
}
on *:Text:*:#:{
  if ($char($1-)) { ban -k $chan $nick Banned }
}