mirc

on *:JOIN:*:{
  if ($nick != $me) {
    if ($ncache($regsubex($address,/.*?@/,))) {
      echo $target $nick já foi visto como: $v1
    }
    ncache $nick $regsubex($address,/.*?@/,)
  }
}

on *:PART:*:{
  if ($nick != $me) {
    ncache $nick $regsubex($address,/.*?@/,)
  }
}

on *:NICK:{
  if ($nick != $me) {
    ncache $nick $regsubex($address,/.*?@/,)
    ncache $newnick $regsubex($address,/.*?@/,)
  }
}

alias ncache {
  set -l %quantosnicks 10
  set -l %hash nicks_ $+ $network
  if ($isid) {
    return $hget(%hash,$1)
  }
  else {
    set -l %nicks $hget(%hash,$2)
    if (!$istok(%nicks,$1,32)) {
      hadd -m %hash $2 $gettok(%nicks,$iif($numtok(%nicks,32) >= %quantosnicks,$calc($v1 - $v2 + 2) $+ -,1-),32) $1
    }
  }
}