on $*:TEXT:/^[!@.]whois/Si:#: {
  if ($2 == $me) || ($2 == Omg) { halt }
  set %wchan $chan
  whois $iif($2,$2,$nick)
}
raw 319:*:{
  if (%wchan) {
    msg $v1 3 $+ $2 1is on: $3-
    unset %wchan
  }
}