on *:snotice:*connecting on*: {
  var %ident $right($token($10,1,64),-1)
  if ($regex(%ident,/(muafident1|muafident2)/i)) { halt }
  if ($tnick(%ident)) {
    if (!$hget(tnick)) { hmake tnick 100 }
    hinc -u10 tnick $tnick(%ident)
    if ($hget(tnick,$tnick(%ident)) >= 3) { 
      gzline %ident - $me 
    } 
  }
}
alias tnick {
  var %t 1
  while %t <= $len($1) {
    if $mid($1,%t,1) !isalpha { 
      if $len($left($1,$calc(%t - 1))) > 4 {
        return $mid($1,1,$calc(%t - 1))
      }
    }
    inc %t
  }
}