on $*:TEXT:/^[!@.~]bl(ac)?klist/Si:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    set %blacklist [ $+ [ $2 ] ] true
    set %reason $3-
    unset %unban [ $+ [ $2 ] ] True
    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 $address($2,1)
    set %unban [ $+ [ $2 ] ] true
    unset %blacklist [ $+ [ $2 ] ] true
    msg $chan 4~7 $2 12has been deleted from the 4blacklist~
  }
}
on *:JOIN:#: {
  if (%blacklist [ $+ [ $address($nick,1) ] ] )
  { mode $chan +b [ $+ [ $address($nick,1) ] ] } 
  /kick $chan $nick 4 You have been added to the 7Blacklist12
}