alias blacklist { 
  writeini -n blist.ini Blacklist $address($1,2) $2- 
  amsg $blue($chr(164)) $red(Blacklist) $blue($chr(164)) $blue(Now blacklisting) $red($1) $blue ( $+ $red($address($1,2)) $+ $blue ) $blue for reason: $red($2-) 
  var %x 1 
  while (%x <= $chan(0)) { 
    inc %blacklists 
    if ($me isop $chan(%x)) || ($me ishop $chan(%x)) { 
      mode $chan(%x) +bb $1 $address($1,2) 
      kick $chan(%x) $1 $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 # +bb $1 $address($1,2)) $+ )) 
      inc %x 
    } 
  } 
} 
on *:JOIN:#: { 
  if ($me isop $chan) || ($me ishop $chan) && ($readini(blist.ini, Blacklist, $address($nick,2))) { 
    ban -k # $nick 2 $chr(164) Blacklist $chr(164) $readini(blist.ini, Blacklist, $address($nick,2)) $chr(164) %blacklists $chr(164) 
  } 
} 
alias unblacklist { 
  if ($readini(blist.ini, Blacklist, $address($1,2))) { 
    amsg $blue($chr(164)) $green(Removal) $blue($chr(164)) $blue(Now deleting) $red($1) $blue(from the blacklist. Orginally blacklisted for:) $red($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) -bb $1 $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 # -bb $1 $address($1,2)) $red($+ )) 
        inc %x 
      } 
    } 
  } 
} 
alias red { return $+($chr(3),03,$1-)) } 
alias blue { return $+($chr(3),14,$1-)) }