on $*:TEXT:/^[!@.`](nickinfo|nick|Whois)/Si:#: {
  alias Channels {
    var %Chans
    Var %i 1
    while (%i <= $chan($nick,0)) {
      inc %i
    }
    notice $nick 4((-12Nick_info_script4-))12 $2 $+ 's Adress =4 $address($2,2)
    notice $nick 4((-12Nick_info_script4-))12 $2 $+ 's Channels are: %chans
  }
}