Mine

on $*:TEXT:/^[!.]check (on|off)/Si:#:{ 
  if ($address($nick,2) == $address($me,2)) { 
    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) { 
    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 8,1 $+($c1(**[),$c2(Channels),$c1(]:)) $c2(%whois.nick) $c1(is on:) $c2(%chans) 
  unset %whois.* 
  disable #GroupRaw 
} 
#GroupRaw END