ON *:JOIN:#:{ 
if ($($+(%,Chan.,$chan),2)) {
set $+(%,Whois.,$nick) $chan
.whois $nick
}
}
RAW 319:*:{
if ($($+(%,Whois.,$2),2)) {
msg $($+(%,Whois.,$2),2) $2 is on: $replace($3-,~,~,&,&,@,@,%,%,+,+)
unset %Whois. [ $+ [ $2 ] ]
}
}