on *:text:!ip:*:{
if %ip.limit { return }
if $longip($site) { msg $iif(#,#,$nick) $nick your IP is $site }
else { set -u300 %dns. $+ $nick $cid $iif(#,#,$nick) | .dns $nick }
inc -u5 %ip.limit
}
on *:dns:{
if $dns(1).nick && $($+(%,dns.,$v1),2) {
tokenize 32 $v1
scid $1 | msg $2 $dns(1).nick your IP is $$dns(1).ip
unset %dns. $+ $dns(1).nick
halt
}
}