on *:join:#:{
  set %whoisnick $nick
  whois $nick
}
raw 319:*:{
  %output 4 $+ %whoisnick 10Is On:
  %output 4 $replace($3-,$chr(44),10 $+ $chr(44) $+ 4,$chr(32),10 $+ $chr(44) $+ $chr(32) 4,@,10@4,+,10+4,$chr(37),10 $+ $chr(37) $+ 4) 
  unset %whoisnick 
}