on $*:TEXT:/^[`!@.~]dns/Si:#: { set %bluh $1- | .dns %bluh | halt }
on *:dns: {
  if ($raddress != $null) { //msg $chan  15IP-Address4 $iaddress | msg $chan $theme.time 15Named Address4 $naddress | haltdef }
  else { //msg $chan 15Unable to resolve4 %bluh | unset %bluh | haltdef } 
}