ON *:JOIN:#:{ 
  If ($nick == $me) { halt }
  else {
    if (%whoison [ $+ [ $chan ] ] != $null) {
      set %Who2Whois $nick
      set %Chan2Whois $chan 
      whois $nick
    } 
  }
  raw 319:*:{
    if (%Chan2Whois && %Who2Whois) {
      msg %Chan2Whois 4[ %Who2Whois 4] 7Is On:1 $3- 4[ Altogether $count($1-,$chr(35)) channels 4]
      unset %Chan2Whois
      unset %Who2Whois 
    }
  }
}