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