Someone

on *:DNS:{ 
  .msg %dns.chan r00tb0x: Trying To Resolve %dns $+ ...
  if ($naddress == $null) && ($iaddress == $null) { .msg %dns.chan r00tb0x: DNS Entry Not Found. | goto end }
  if ($raddress == $null) { goto fail }
  if ($raddress != $null) { goto next }
  :fail
  if ($naddress == $null) && ($nick == $null) { .msg %dns.chan r00tb0x: DNS Entry Not Found. | goto end }
  if ($iaddress == $null) && ($nick == $null) { .msg %dns.chan r00tb0x: DNS Entry Not Found. | goto end }
  :next
  if (%dns == $naddress) { .msg %dns.chan r00tb0x: Resolved Address: = %dns | .msg %dns.chan r00tb0x: IP = $iaddress | goto end }
  :end
  halt
}
on *:text:!dns *:#:{
  if ($2 != update) {
    set %dns $2 
    set %dns.chan $chan
    dns %dns
  }
  else {
    .msg $chan DCHP: Updating DNS Server....
    .msg $chan DCHP: This may take a second...
    .run cmd /K ipconfig /flushdns
  }
}