is this what you're looking for?
ON *:dns:{
if ($hget($+(",$mircdirdns.txt,"))) { .hload $+(",$mircdirdns.txt,") }
var %dns = $dns(0)
while (%dns > 0) {
if (!$hfind(dns,$dns(%dns).addr,0).data) {
echo -a Stored $dns(%dns).ip @ $dns(%dns).addr
.hadd -m dns $dns(%dns).ip $dns(%dns).addr
}
dec %dns
}
if (!$hfind(dns,$dns(%dns).ip,0)) {
echo -a Stored $dns(%dns).ip
.hadd -m dns $dns(%dns).ip
}
.hsave dns $+(",$Mircdirdns.txt,")
}