alias sticky {
  var %re = /(.)\1{9,}/
  return $iif($regex($1-,%re), $regml(1), $null)
}
on @*:Text:*:#: {
  var %x = 1
  while ($gettok($1-, %x, 32) != $null) {
    var %word = $v1
    if ($read(modlist.txt,nw,$nick)) { return }
    if ($read(reglist.txt,nw,$nick)) { return }
    ; Checking if there's sticky letters in the word..
    if ($sticky(%word) != $null) {
      set -e $+(%,c,$chr(32),$int($v1))
      inc $+(%,$nick)
      if ($($+(%,$nick),2) > 2) {
        .msg $chan .timeout $nick 2
        .msg $chan .timeout $nick 2
        unset $($+(%,$nick),1)

      }
      elseif ($($+(%,$nick),2) = 2) {
        .msg $chan .timeout $nick 2
        .msg $chan .timeout $nick 2


      }
      else {
        .msg $chan .timeout $nick 2
        .msg $chan .timeout $nick 2
      }

      break
    }
    inc %x
  }
}