Miscellany

on *:TEXT:*:#:{
  tokenize 32 $strip($1-)
  var %a = 1
  while (%a <= $len($1-)) {
    var %b = 1
    while (%b <= $mid($1-,%a,0)) {
      var %str = $mid($1-,%a,%b)
      if ($str(%str,15) isin $1-) || ($left($str($+(%str,$chr(32)),15),-1) isin $1-) {
        kick # $nick Repetition of the $iif($len(%str) == 1,character,string) $qt(%str) 15+ times.
        halt
      }
      inc %b
    }
    inc %a
  }
}