whois

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