on $*:TEXT:/[!.]add(black(list)?|ban)/Si:#:{ 
  var %file = blacklists.txt 
  if ($address($nick,2) == $address($me,2) && $left($2,1) == $chr(35)) { 
    if ($read(%file,w,$2)) { notice $nick $2 is already on the blacklist } 
    else { 
      write %file $chan 
      msg # $2 Was successfully written to the blacklist 
    } 
  } 
} 
on $*:TEXT:/^[!.]del(black(list)?|ban)/Si:#:{ 
  var %file = blacklists.txt 
  if ($address($nick,2) == $address($me,2) && $left($2,1) == $chr(35)) { 
    if (!$read(%file,w,$2)) { notice $nick $2 is not on the blacklist } 
    else { 
      write -ds $+ $2 %file 
      msg # $2 Was successfully removed from the blacklist. 
    } 
  } 
}