on &*:DNS:{
set -u1 %:echo echo $color(info) -ti2 $+ $iif(($_isactive) && (@* !iswm $active), a, s)
set -nu1 %::me $me | set -nu1 %::server $server | set -nu1 %::port $port
set -nu1 %::pre 12.11.13.
set -nu1 %::c1 00 | set -nu1 %::c2 11 | set -nu1 %::c3 13 | set -nu1 %::c4 12
if ($dns(0)) {
var %i = 1, %t = $dns(0)
while (%i <= %t) {
set -nu1 %::nick $dns(%i).nick
set -nu1 %::address $dns(%i)
set -nu1 %::iaddress $dns(%i).ip
set -nu1 %::naddress $dns(%i).addr
set -nu1 %::raddress $remtok($dns(%i).ip $dns(%i).addr, $dns(%i), 1, 32)
%:echo 10.... 11Resolved 15~» 14 $+ $iif((%::raddress == %::iaddress), %::naddress, %::iaddress) $+ 15~» 11To 15~» 07 $+ %::raddress $+ | haltdef
inc %i
}
}
else {
set -nu1 %::nick $nick
set -nu1 %::address $address
}
unset %:echo %::nick %::address %::iaddress %::raddress %::naddress %::me %::server %::port %::pre %::c?
}