Mine

on $*:TEXT:/^[!@.~]bl(ac)?klist/Si:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    set %blacklist [ $+ [ $2 ] ] true
    set %reason $3-
    unset %unban [ $+ [ $2 ] ]
    if ($2 ison $chan) { mode $chan +b-eI $str($address($2,2) $+ $chr(32),3) } | { /kick $chan $2 4~ 12 You have been 4Blacklisted 12 by 7 $nick 4~ }
    msg $chan 7~ $2 12has been added to the 4blacklist7~12Reason:7 %reason 4~ 
  } 
}
on $*:TEXT:/^[!@.~]debl(ac)?klist/Si:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan)) {
    mode $chan -b-eI $str($address($2,2) $+ $chr(32),3)
    set %unban [ $+ [ $2 ] ] true
    unset %blacklist [ $+ [ $2 ] ] 
    msg $chan 4~7 $2 12has been deleted from the 4blacklist~
  }
}
on *:JOIN:#:{
if (%blacklist [ $+ [ $2 ] ] == true) { mode $chan +b-eI $str($address($2,2) $+ $chr(32),3) } | { /kick $chan $2 4~ 12 You have been 4Blacklisted 12 by 7 $nick 4~12Reason:7 %reason } }
}