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