Someone

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