alias dns !.dns $$1-

on *:DNS:{
  set -l %n $dns(0)
  if (0 == %n) {
    set -l %address
    if ($dns(0).ip) %address = $v1
    elseif ($dns(0).addr) %address = $v1
    elseif ($dns(0).nick) %address = $v1
    echo -ac other * DNS: Não foi possível resolver $qt(%address)
  }
  else {
    if (%n > 1) echo -ac other * DNS: Foram encontrados %n endereços associados a $qt($dns(1))
    else echo -ac other * DNS: Foi encontrado %n endereço associado a $qt($dns(1))
    :l
    echo -ac other * DNS: Endereço: $dns(%n).addr $upper($iptype($dns(%n).ip)) $+ : $dns(%n).ip $iif($dns(%n).nick,- Nick: $v1)
    dec %n
    if (%n > 0) goto l
  }
  haltdef
}