on 1:Text:!blacklist*:#:{
  if ($2 == add) {
    write blacklist.txt $3 $3 
    write blacklistreason.txt $3 $3 Blacklisted for: $4- | notice $nick $3 succesfully blacklisted
    if ($me ison $3) { part $3 Channel $read(blacklistreason.txt,s,$chan) 
    }
  }
  if ($2 == del) { /write -ds $3 blacklist.txt | write -ds $3 blacklistreason.txt
  }

  if ($2 == reason) { 
    if ($3 == $read(blacklist.txt,s,$3)) { msg $chan $read(blacklistreason.txt,s,$3)
    }
    if ($3 != $read(blacklist.txt,s,$3)) { msg $chan $3 is not in my blacklist }
  }
}
on 1:JOIN:#:{
  if ($chan == $read(blacklist.txt,s,$chan)) { /part $chan Channel $read(blacklistreason.txt,s,$chan) }
}