On *:JOIN:#:{
  if (%chan. [ $+ [ $chan ] ] == on) {
    set %3 $nick
    set %chan. [ $+ [ $nick ] ] $chan
    whois %3
  }
}
Raw 319:*:{
  msg %chan. [ $+ [ $nick ] ] 4 $+ %1 12is on the following channels: $regsubex($3-,/(?<=^| )([@%+])/g,$+($chr(3),$iif(\1 == @,04,$iif(\1 == %,04,04)),\1,$chr(3),12))  
  unset %chan. [ $+ [ $nick ] ]
  unset %3
}