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
}
}