A simple DNS script for a Bot or whatnot

    on *:TEXT:!dns*:#:{
      if ($2 == help) {
        msg $chan too scan a DNS type: !dns <address>
        halt
      }
      if (%dns == on) { halt }
      set %dns on
      set %dnsding $2-
      set %chan $chan
      dns %dnsding
      msg $chan 14Scanning DNS!4 please stand by
    }

    on *:DNS:{
      if (resolving isin $2-) { halt }
      if (%dns == on) {
        if (unable isin $1-) {
          msg %chan Unable too Resolve
          halt
        }
        set %dns off
        set %dnsblah $dns(0)
        msg %chan 14Found12 %dnsblah 14address(es)
        msg %chan 14dns:12 $dns(%dnsblah) 14nick:4 $dns(%dnsblah).nick 14address:4 $dns(%dnsblah).addr 14ip:4 $dns(%dnsblah).ip
        dec %n
      }
    }