ON *:TEXT:!masswhois*:#: {
  set %persoz $nick
  var %chanusers = $nick($chan,0)
  while (1 <= %chanusers) {
    /whois $nick($chan,%chanusers)
  }
  raw 319:*: { 
    /notice %persoz $nick($chan,%chanusers) ison: $3-
    unset %persoz
  }