Good idea but most networks Ive been on dont have dnsable servers like that they use a round robin so in that case
Code:
 ON *:DNS:{
  if ($dns(0) == 0) {
    echo $color(other) -ta * Unable to resolve $iif($iaddress,$iaddress,$dns(0).addr)
  }
  else {
    var %numhosts $dns(0), %host = 0
    var %hosts
    while (%host < %numhosts) {
      inc %host 1
      set %hosts %hosts $iif($dns(1) == $dns(1).ip,$dns(%host).addr,$dns(%host).ip) $+ $chr(32) $+ $chr(45)
    }
    echo $color(other) -ta * Resolved $dns(1) to $left(%hosts,$calc($len(%hosts)-1))
  }
  halt
}

and say its irc.mirc.com you connect to
/dns irc.mirc.com