Someone

on $*:TEXT:/^[!@.~]bl(ac)?klist/Si:#:{ 
  if ($nick isop $chan || $nick ishop $chan) { 
    set %blacklist [ $+ [ $2 ] ] true
    if ($2 ison $chan) { ban -k $chan $2 2 }
    msg $chan 7~ $2 12has been add to the blacklist7~ 
  } 
}
on $*:TEXT:/^[!@.~]debl(ac)?klist/Si:#:{ 
  if ($nick ishop $chan || $nick isop $chan) && (%blacklist [ $+ [ $2 ] ]) {
    unset %blacklist [ $+ [ $2 ] ]
    mode $chan -b $address($2,1)
    msg $chan4~7 $2 12has been deleted from the 4blacklist~
  }
}
on *:JOIN:#:{
  if (%blacklist [ $+ [ $nick ] ]) { ban -k $chan $nick 2 }
}
on *:UNBAN:#:{
  if (%blacklist $bnick == %blacklist $bnick) { mode #chan +b $address($bnick,1)
  }
}