with a lot off help from metroid from #development we made the script
set mode .chanset +nopart on a chan and user $partall it will part all the channel execpt the channel where you have set +nopart

#############################################
### part.tcl                              ###
### Version 1.0                           ###
### By Magnetronkip and metroid           ###
### http://magnetronkip.legix-designz.com ###
### quakenet #magnetronkip                ###
### magnetronkip[at]legix-designz[dot]com ###
#############################################
setudef flag nopart
bind pub n \$partall pub:partall
proc pub:partall {nick host hand chan args} {
foreach channel [channels] {
if {![channel get $channel nopart]} {
channel remove $channel
}
}
putquick "JOIN #0,0"
putquick "NOTICE $nick :Parted all channels"
}