Alias bladd {   
  if ($1 == $readini(blacklist.ini,blacklisted,$address($1,2))) { echo -a 02User is already07 blacklisted02! | halt }
  else {  
    var %x = 1
    while (%x <= $chan(0)) {
      if ($me isop $chan(%x)) || ($me ishop $chan(%x)) mode $chan(%x) +b $1
      if ($me isop $chan(%x)) || ($me ishop $chan(%x)) msg $chan(%x) 07[02Blacklist07]02 I am banning07 $1 02aka "07 $+ $2 $+ 02" in all channels I have power in. Reason:07 $3-      
      if ($me isvoice $chan(%x)) || ($me isreg $chan(%x)) msg $chan(%x) 07[02Blacklist07]02 I can't ban07 $1 02aka "07 $+ $2 $+ 02" but I suggest you ban them. Reason:07 $3-     
      inc %x
    }  
    writeini -n blacklist.ini blacklisted address $1 
  }
}

Alias bldel {
  if ($address($1,2) != $read(address.ini,blist,$address($1,2))) { echo -a 02User is not on07 blacklist02! | halt }  
  else {
    var %x = 1
    while (%x <= $chan(0)) {      
      if ($me isop $chan(%x)) || ($me ishop $chan(%x)) mode $chan(%x) -b $1
      msg $chan(%x) 07[02Unblacklist07]02 I am unbanning07 $1 02aka "07 $+ $2 $+ 02" in all channels I have power in. Reason:07 $3-              
      inc %x
    }  
    remini blacklist.ini $1 
  }
}
on *:JOIN:#:{
  if ($address($nick,2) == $read(blacklist.ini,blacklisted,$address($nick,2))) {
    inc %kc    
    ban -ku600 # $nick Blacklisted. 07[02 Noobs turned into BBQ Sauce:07 %kc ]
  }
}

Syntax:
/bladd <address> <nick> <reason?>
/bldel <address> <nick> <reason?>