Something

on $*:TEXT:/^[!@.](user|check|whois)/si:#: { 
  if ($address($2,2) == $null) { 
    /notice 1 $nick $2 is  currently 4 Offline. 
  } 
  else { 
    set %whoisnick $replace($2-,$chr(32),$chr(95)) 
    set %whoischan $chan 
    /msg $nick $2 is 1 currently 4 Online. 
    /msg $nick 1 Address: 12 $address($2,2) 
    enable #GroupRaw 
    /whois %whoisnick 
  } 
} 
#GroupRaw off
raw 319:*:{ 
  if (!%whoisnick) { halt } 
  else { 
    /msg %nick $2 %whois nick 12 is on the channels: 4 $remove($3-,@,%,+) 
    disable #GroupRaw 
    enable #GroupRaw 
  } 
} 
raw 312:*:{ 
  if (!%whoisnick) { halt } 
  else { 
    msg %nick %whoisnick 12 is on the server: 4 $3 
    unset %whoischan | unset %whoisnick 
    disable #GroupRaw 
  } 
}