alias DNS .dns $1
on *:DNS:{
if ($raddress) echo $color(action) -eati2 * DNS $&
$+($iif($nick,$+([Nick: $nick,])), $&
$iif($iaddress,$+([IP: $iif($raddress == $iaddress,$+($chr(31),$iaddress,$chr(31)),$iaddress),])), $&
$iif($naddress,$+([Named: $iif($raddress == $naddress,$+($chr(31),$naddress,$chr(31)),$naddress),])))
else echo $color(ctcp) -eati2 * / $+($chr(31),DNS $nick $iaddress $naddress $raddress $chr(31)) - Lookup failed.
halt
}