on *:text:.trace*:#:{
  if ($2 == $null) { .msg $chan $nick , Usage: .trace <nick/host/ip> }
  if ($2 ison $chan) {
    set %dns.nick $2

    .set %geocity.ipnick %dns.nick
    .set %geocity.d $address(%dns.nick,2)
    .set %geocity.b $remove(%geocity.d,$chr(64),$chr(33),$chr(42))
    .set %geocity.c $remove(%geocity.b,$chr(46))
    .set %geocity.chan $chan
    .checkcity %geocity.b

    dns -46 %dns.nick
    set %dns.chan $chan
  }
  else {
    dns -46 $2
    set %dns.chan $chan
  }
}
on *:DNS:{

  var %n = $dns(0)
  msg %dns.chan [DNS]: Found %n $iif(%n == 1,address,addresses) $+ .
  while (%n > 0) {
    %ips = %ips / $dns(%n).ip
    dec %n
  }
  msg %dns.chan [HOST]: $dns(%n).addr [IP]: $right(%ips,-2)
  msg %dns.chan [LOCATION]: %geocity.continent $+ $chr(44) %geocity.country $+ $chr(44) %geocity.state $+ $chr(44) %geocity.city $+ $chr(46)

  unset %ips
  unset %dns.chan
  unset %dns.nick
}