Mine

on *:JOIN:#PCelites: {
  if %whoischeck on
  if ($nick == $me) || ($nick isvoice $chan) || ($nick ishop $chan) || ($nick isop $chan) { HALT }
  if ($nick isreg $chan) {
    set %w.status ON
    set %w.nick $nick
    whois $nick
  }
}

RAW 319:*:{
  if (%w.status != ON) { HALT }
  if (%w.status == ON) {
    set %w.real $3-
    var %w.filter = $remove($3-,%,+,@,#PCelites)
    CheckNick %W.filter
  }
}

alias logo { return 14[11AutoWhois11]14 }

alias CheckNick {
  if (!$1) { HALT }
  if ($1) {
    msg #PCelites-staff $logo %w.nick 12( $+ $address(%w.nick,6) $+ ) on4 %w.real
    unset %w.status
  }
} 

on *:TEXT:*!wcon*:#: {
  if ($nick == Titan) {
    set %whoischeck on
  }
} 

on *:TEXT:*!wcoff*:#: {
  if ($nick == Titan) {
    set %whoischeck off
  }
}