on $*:TEXT:/^[@!.](IP|host|hostmask|address)/Si:#: {
  if (!$2) notice $nick You must specify a nickname | halt
  who $2
  if ($left($1,1) == @ && $nick !isreg $chan) { 
    msg $chan 4 $+ $2 $+ 's15 address is -4 $address($2,2) | halt
  }
  notice $nick $c1($+($chr(40),$2,$chr(41)) $c2(-) $c1($address($2,2))
}