Unnamed

alias blacklist { 
  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) ) $+ ) $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)) { 

      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)) $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) -bb $1 $address($1,2) 
        inc %x 
      } 
      elseif ($me isvoice $chan(%x)) || ($me isreg $chan(%x)) { 

        inc %x 
      } 
    } 
  } 
} 
alias red { return $+($chr(3),04,$1-)) } 
alias blue { return $+($chr(3),12,$1-)) }