on *:TEXT:~bl*:#: { if ($nick isop $chan) {
    set $+(%,ablack,$address($2,2)) $address($2,2)
    kick $chan $2 BLACKLISTED
    notice $2 You Have Been Blacklisted From This Channel
  msg $chan 14 $2 12Has Been Added to the BlackList }
}
on *:JOIN:#:{ if ($address($nick,2) == $($+(%,ablack,$address($nick,2)),2)) {
    mode $chan +b $nick
    kick $chan $nick BLACKLISTED
  notice $nick 4BlackListed }
}
on *:TEXT:~dbl*:#: { if ($nick isop $chan) {
  unset $+(%,ablack,$address($2,2)) }
}