on $*:TEXT:/^[!@]whois .+$/Si:#:{
  set %whonick $iif($left($1,1) == @, msg $chan, notice $nick)
  set %whois $chan 
  whois $iif($2,$2-,$nick)
}

raw 311:*:{ if (%whois) { %whonick $2 is $3 $+ @ $+ $4 $5- | set %wnick $2 | halt }
}
raw 378:*:{ if (%whois) { %whonick $2 is connecting from $3 $4- | halt }
}
raw 319:*:{ if (%whois) { %whonick $2 on $3- | halt }
}
raw 313:*:{ if (%whois) { %whonick $2 is a $5- | halt }
}
raw 312:*:{ if (%whois) { %whonick $2 is using $3 $4- | halt }
}
raw 307:*:{ if (%whois) { %whonick $2 $3- | halt }
}
raw 317:*:{ if (%whois) { %whonick $2 has been idle $duration($3) $+ , signed on $time($4) | halt }
}
raw 335:*:{ if (%whois) { %whonick 4 $+ (335) $2 : $+ $3- | halt }
}
raw 671:*:{ if (%whois) { %whonick 4 $+ (671) $2 : $+ $3- | halt }
}
raw 401:*:{ if (%whois) { %whonick 4 $+ $2 :No such nick/channel | halt }
}
raw 318:*:{ if (%whois) { %whonick %wnick End of /WHOIS list. | %whonick - | unset %wnick | unset %whois | halt }