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~ 
  } 
}