alias bl {
  if (($readini(blacklist.ini,$1,reason) == $null) && ($readini(blacklist.ini,$address($1,2),reason) == $null)) {
    if ($address($1,2) != $null) {
      if ($2 != $null) {
        /writeini blacklist.ini $address($1,2) reason $2-
        /writeini blacklist.ini $1 reason $2-
        /writeini blacklist.ini $1 address $address($1,2)
      }
      else {
        /writeini blacklist.ini $address($1,2) reason No reason
        /writeini blacklist.ini $1 reason No reason
        /writeini blacklist.ini $1 address $address($1,2)
      }
      var %count = 0
      var %channel_count = $chan(0)
      var %address = $address($1,2)
      while (%count <= %channel_count) {
        var %current_chan = $chan(%count)
        var %counter = 0
        var %nick_count = $nick(%current_chan,0)
        while (%counter <= %nick_count) {
          var %current_nick = $nick(%current_chan,%counter)
          if (%address == $address(%current_nick,2)) {
            if (($me isop %current_chan) || ($me ishop %current_chan)) {
              /mode %current_chan +b $address(%current_nick,2)
              /writeini info.ini kick count $calc($readini(info.ini,kick,count) + 1)
              /kick %current_chan %current_nick 6I have kicked7 $readini(info.ini,kick,count) 6people 7 Blacklisted because:6 $readini(blacklist.ini,$address(%current_nick,2),reason)
            }
            else {
              msg %current_chan I have blacklisted %current_nick from all channels, although it appears I do not have sufficient access to enforce this blacklist on this channel.
            }
          }
          inc %counter
        }
        inc %count
      }
      //echo -an You have successfully blacklisted $1-
    }
    else {
      //echo -an I can't find $1 $+ 's address
    }
  }
  else {
    //echo -an This user is already blacklisted
  }
}
alias delb {
  if (($readini(blacklist.ini,$1,reason) == $null) && ($readini(blacklist.ini,$address($1,2),reason) == $null)) {
    //echo -an This user is not blacklisted.
  }
  else {
    var %address = $readini(blacklist.ini,$1,address)
    /remini blacklist.ini %address
    /remini blacklist.ini $1
    //echo -an You have successfully unblacklisted $1
    var %channel_count = $chan(0)
    var %count = 0
    while (%count <= %channel_count) {
      var %current_chan = $chan(%count)
      if (%address isban %current_chan) {
        /mode %current_chan -b %address
      }
      inc %count
    }
  }
}
on *:JOIN:#: {
  if ($readini(blacklist.ini,$address($nick,2),reason) != $null) {
    /mode $chan +b $address($nick,2)
    /kick $chan $nick 6I have kicked:7 $readini(info.ini,kick,count) 6people 7 Blacklist because:6$readini(blacklist.ini,$address($nick,2),reason)
  }
  elseif ($readini(blacklist.ini,$nick,reason) != $null) {
        /mode $chan +b $address($nick,2)
    /kick $chan $nick 6I have kicked7 $readini(info.ini,kick,count) 6people 7 Blacklisted because:6 $readini(blacklist.ini,$nick,reason)
  }
}