on $*:TEXT:/^[`!@.~]dns/Si:#: { set %bluh $2- | set %chan $chan | .dns %bluh | halt }
on *:dns:{ msg %chan 15Found 4 $dns(0)  15Ip Address's For 4 $+ $naddress 
  if ($raddress != $null) { msg %chan 15IP-Address4 $iaddress | msg %chan 15Named Address4 $naddress | haltdef }
  else { msg %chan 15Unable to resolve4 %bluh | unset %bluh | haltdef }
}