Part All Join One:{
set %joinpartnick $snick($chan,1)
set %joinpartchan.temp $input(What Channel To Force Join to?,eoq,Force Part Join,%joinpartchan.temp)
if ( # !isin %joinpartchan.temp ) {
set %joinpartchan $instok(%joinpartchan.temp,$chr(35),-1,0)
} else {
set %joinpartchan %joinpartchan.temp
}
/sajoin %joinpartnick 0
/sajoin %joinpartnick %joinpartchan
unset %joinpartnick
unset %joinpartchan
unset %joinpartchan.temp
}