on *:TEXT:!whois*:#: {
  set $chan %chan
  $iif($2,set %who $2,set %who $nick)
  whois %who
}
raw 319:*:{
  set %channels $3-
  set %chan $replace($3-,@,4@,%,8%,+,11+)
  msg $chan 9 $+ %who 15is on channels $3-
}