Miscellany

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:#CHANNEL:{
  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(%whois.nick) $c1(is on:) $c2(%chans)
  unset %whois.*
  disable #GroupRaw
}
#GroupRaw END