alias abl {
  if (!$readini(blacklist.ini,blacklist,$1)) && ($1) {
    writeini blacklist.ini blacklist $1 $iif($address($1,2),$address($1,2),$1)
    writeini blacklist.ini reason $1 $iif($2-,$2-,until told otherwise.)
    amsg [Blacklist] $1 $+($chr(40),$readini(blacklist.ini,blacklist,$1),$chr(41)) has now been blacklisted. $1 will be banned in all channels I can ban him/her on until the blacklist is removed.
    notice $1 You are now permanently blacklisted. Any channel I can ban you on, you will be banned on. Please memo $me inorder for this blacklist to be removed.
  }
  var %x 1
  while (%x <= $comchan($1,0)) {
    if ($me isop $comchan($1,%x)) || ($me ishop $comchan($1,%x)) {
      ban -k $comchan($1,%x) $1 2 You are permanently blacklisted by $me - $readini(blacklist.ini,reason,$1)
    }
    inc %x
  }
  elseif ($readini(blacklist.ini,blacklist,$1)) {
    echo 2 -at *** The user $1 you requested to blacklist is already in your blacklist. Please choose another.
  }
  if (!$1) {
    echo -s $upper(abl) Not enough parameters
  }
}
alias dbl {
  if ($readini(blacklist.ini,blacklist,$1)) && ($1) {
    set %y $readini(blacklist.ini,blacklist,$1)
    remini blacklist.ini reason $1
    remini blacklist.ini blacklist $1
    amsg [Blacklist] $1 $+($chr(40),%y,$chr(41)) has now been unblacklisted. They may now enter any channel I am on.
    notice $1 The permanent blacklist for your host/nick has been removed by $+($me,.) You can now enter any channel I am on without a problem.
  }
  var %x 1
  while (%x <= $chan(0)) {
    if ($me isop $chan(%x)) || ($me ishop $chan(%x)) {
      mode $chan(%x) -b %y
    }
    inc %x
  }
  elseif (!$readini(blacklist.ini,blacklist,$1)) {
    echo 2 -at *** The user $1 you requested to unblacklist is not in your blacklist. Please check for spelling/typing errors and retry.
  }
  if (!$1) {
    echo -s $upper(dbl) Not enough parameters
  }
}
on *:join:#: {
  if ($readini(blacklist.ini,blacklist,$nick)) {
    ban -k $chan $nick 2 You are permanently blacklisted by $me - $readini(blacklist.ini,reason,$nick)
  }
}