on $*:TEXT:/^[!@]whois/Si:#: { 
  if (%whoiser == $null) {  
    set -u5 %whoiser $iif($left($1,1) == @,msg $chan,notice $nick) 
    set -u4 %whois $2
    whois %whois 
  }
  if (%whoiser) { halt }
}
raw *:*: { 
  if (%whoiser) {
    if ($numeric == 311) { %whoiser 7[14Whois7] 14Hostmask:7@ $+ $4 }
    if ($numeric == 319) { %whoiser 7[14Whois7] 14Channels:7 $3- }
    elseif ($numeric == 401) { %whoiser 7[14Whois7] 14The nickname7 " $+ $2 $+ " 14is 7NOT 14online! | halt }
  }
}