Mine

on ^*:join:#: {
  set %multinick $nick
  set %multiaddress $remove($address($2,1),*!*)
  set %multichan $chan
  whois $nick
}
raw 319:*:{
  set %muti.chan $3-
  /msg %multichan %multinick is on channels %muti.chan
  unset %multinick $2
  unset %multiaddress $remove($address($2,1),*!*)
  unset %multichan $chan
  unset %multi.chan 
}