on $*:TEXT:/^[!](blacklist)/Si:#:{ 
  if ($me = [pk]ibusta)& (iBusta ison $chan) { 
    halt 
  } 
  if ($address($2,2) == $address($me,2)) { 
      notice $nick I am not blacklisting myself
    halt 
    } 
    else { 
      set %bl [ $+ [ $2 ] ] on
      ban -k $chan $2 2 $c1(Blacklisted-) 
      notice $nick $2 added to $chan blacklist.
     halt 
    } 
  } 
} 
on $*:TEXT:/^[!]((un|de|del)blacklist)/Si:#:{ 
  if ($me = [pk]ibusta) && (iBusta ison $chan) { 
    halt 
  } 
    if (%bl [ $+ [ $2 ] ] == $null) { 
      notice $nick $2 is not on the $chan blacklist.
     halt 
    } 
    else {
      unset %bl [ $+ [ $2 ] ]
    mode $chan -b $address($2,2) 
    notice $nick $2 deleted from $chan blacklist. 
  } 
} 
on *:JOIN:#:{ 
  if (%bl [ $+ [ $nick ] ] == $null) { 
    halt 
  } 
  else { 
    ban -k $chan $nick 2 Blacklisted 
  } 
}