alias blist {
  writeini -n blist.ini Blacklist $address($1,2) $2-
  amsg $blue($chr(164)) $red(Blacklist) $blue($chr(164)) $red(Now blacklisting) $blue($1) ( $+ $blue($address($1,2)) $+ ) for reason: $blue($2-)
  var %x 1
  while (%x <= $chan(0)) {
    inc %blacklists
    if ($me isop $chan(%x)) || ($me ishop $chan(%x)) {
      ban -k $chan(%x) $1 2 $chr(164) Blacklist $chr(164) $2- $chr(164) %blacklists $chr(164)
      inc %x
    }
    elseif ($me isvoice $chan(%x)) || ($me isreg $chan(%x)) {
      msg $chan(%x) $red(I do not have the power to ban) $blue($1) $red(in this channel, but I suggest you do so. (Use the following command:) $blue(/mode # +b  $address($1,2)) $+ ))
      inc %x
    }
  }
}
on *:JOIN:#: {
  if ($me isop $chan) || ($me ishop $chan) && ($readini(blist.ini, Blacklist, $address($nick,2))) {
    ban -k $chan $nick 2 $chr(164) Blacklist $chr(164) $readini(blist.ini, Blacklist, $address($nick,2)) $chr(164) %blacklists $chr(164)
  }
}
alias unblist {
  if ($readini(blist.ini, Blacklist, $address($1,2))) {
    amsg $blue($chr(164)) $red(Removal) $blue($chr(164)) $red(Now deleting) $blue($1) $red(from the blacklist. Orginally blacklisted for:) $blue($readini(blist.ini, Blacklist, $address($1,2)))
    remini blist.ini Blacklist $address($1,2)
    var %x 1
    while (%x <= $chan(0)) {
      if ($me isop $chan(%x)) || ($me ishop $chan(%x)) {
        mode $chan(%x) -b $address($1,2)
        inc %x
      }
      elseif ($me isvoice $chan(%x)) || ($me isreg $chan(%x)) {
        msg $chan(%x) $red(I do not have the power to unban) $blue($1) $red(in this channel, but I suggest you do so. (Use the following command:) $blue(/mode # -b $address($1,2)) $red($+ ))
        inc %x
      }
    }
  }
}
alias red { return $+($chr(3),04,$1-)) }
alias blue { return $+($chr(3),02,$1-)) }