on *:TEXT:!blistchannel *:#:{ 
if ( $nick == Jordyboy ) { 
write Blist.txt $2
}

on *:JOIN:#:{ 
if ($nick == $me) {
if ($read(Blist.txt, s, $chan)) { 
part $chan Channel Has Been Blacklisted
}
}