Menu driven controller to allow you to specify channels you don't want to be in. Sort of like the opposite of Auto-Join on invite.

Channels can be added/removed one at a time, or in sets, and are network specific.
A temporary (2 minute) removal can be set up, if you need to be in one of those channels for some reason, but don't want to remove it and then re-add it again later.

Channels are network specific, and the current channel (if any) is automatically inserted in the Add section (this can be overwritten, of course)
menu * {
Auto-Part
.Add : .auto-part add $$input(Comma or space separated,e,Enter Channel Name(s),$iif($chan,$chan))
.Over-Ride Auto-Part : auto-part pause $$input(Comma or space separated,e,Enter Channel Name(s))
.Remove : auto-part del $$input(Comma or space separated,e,Enter Channel Name(s))
.Review : auto-part list
}
alias -l auto-part {
if $1 == add {
var %ap_channels = $replace($2-,$chr(44),$chr(32))
while %ap_channels {
var %ap_channel = $gettok(%ap_channels,1,32)
.hadd -m AutoPart %ap_channel $network
echo -a Channel %ap_channel has been added for $network
%ap_channels = $remtok(%ap_channels,%ap_channel,1,32)
}
}
elseif $1 == del {
var %ap_channels = $replace($2-,$chr(44),$chr(32))
while %ap_channels {
var %ap_channel = $gettok(%ap_channels,1,32)
.hdel AutoPart %ap_channel
echo -a Channel %ap_channel has been removed from those for $network
%ap_channels = $remtok(%ap_channels,%ap_channel,1,32)
}
}
elseif $1 == pause {
var %ap_channels = $replace($2-,$chr(44),$chr(32))
while %ap_channels {
var %ap_channel = $gettok(%ap_channels,1,32)
.hdel AutoPart %ap_channel
echo -a Channel %ap_channel has been temporarily removed from those for $network $+ . It will be automatically re-added after 2 minutes
$+(.timer,%ap_channel) 1 120 hadd -m AutoPart %ap_channel $network
%ap_channels = $remtok(%ap_channels,%ap_channel,1,32)
}
}
elseif $1 == list {
var %a = 1, %b = $hget(AutoPart,0).item
.msg $me Auto-Part Currently Enabled for:
while %a <= %b {
.timer 1 %a .msg $me $hget(AutoPart,%a).item on $hget(AutoPart,%a).data
inc %a
}
}
}
on *:start:{
if !$hget(AutoPart) { .hmake AutoPart 10 }
if $exists(AutoPart.hsh) { .hload AutoPart AutoPart.hsh }
}
on *:exit:{
.hsave -o AutoPart AutoPart.hsh
}
on *:disconnect:{
.hsave -o AutoPart AutoPart.hsh
}
on me:*:join:#:{
if $hget(AutoPart,$chan) == $network {
.part $chan
}
}