on $*:TEXT:/^[!.]whois (on|off)/Si:#:{ 
  if ($nick isop $chan || $nick ishop $chan || $nick == shot_wif_bow) { 
    if ($2 == on) { set %check on | notice $nick 2 I will whois on join now. } 
    elseif ($2 == off) { unset %check | notice $nick 2I will no longer whois on join now. } 
  } 
} 
alias -l c1 { return $+(,$1-,) } 
alias -l c2 { return $+(,$1-,) } 
on *:JOIN:#:{ 
  if (%check == on) { 
    enable #GroupRaw 
    whois $nick 
    set %whois.nick $nick 
    set %whois.dest $chan
  } 
  else { halt } 
} 
#GroupRaw off
raw 319:*:{ 
  if (!%whois.dest) { halt } 
  var %chans $3- 
  msg %whois.dest $+($c1(**[),$c2 (Channels),$c1(]:)) $c2(4 %whois.nick) $c1(12is on:) $c2(%chans) 
  unset %whois.* 
  disable #GroupRaw 
} 
#GroupRaw END 

msg %whois.dest cntrl+k5 $+($c1(**[),$c2(Channels),$c1(]:)) $c2(%whois.nick) $c1(is on:) $c2(%chans)