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)
}
}