Mine

on *:text:!cblist *:#:{
  if $address($nick,2) == $address($me,2)) {
    elseif ($2 == add) && ($3) {
      write ChanBlist.txt $3-
    }
    elseif ($2 == del) && ($3) {
      if ($read(Chanblist.txt,w, $3-) {
        var %tline = $readn
        write -dl $+ %tline Chanblist.txt
        msg # $3- removed from channel blacklist.
      }
      else {
        msg # $3- not found on blacklist
      }
    }
  }
}