on $*:TEXT:/^[!.]check (on|off)/Si:#my chan here:{
if ($address($nick,2) == $address($me,2)) {
if ($2 == on) { set %check on | notice1 $nick 7I will message you the channels now. }
elseif ($2 == off) { unset %check | notice7 $nick 1I 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 $+($c1(**[),$c2(7Channels),$c1(**] :) $c2(%whois.nick) $c1(is on:) $c2(%chans)
unset %whois.*
disable #GroupRaw
}
#GroupRaw END