Hey!
This is a personal blacklist made by me :D
So, how does this work? It's quite simple.
Commands:
/blacklist add (Reason)
/blacklist del
/blacklist list
Adding someone to the blacklist will kick them and ban them from the channel.
If someone else unbans them, and they join again, they will automatically be rebanned making you the person in charge of the bans.
Please do not use unless you are the owner of the channel or have permission from the owner or else you may lose your access and when and if you do, don't come crying to me :P
Have fun! Thanks!
For help or questions, join #me on irc,rizon,net
; mIRC Blacklist Script Made By Tanmay
; For help or questions, join #me on irc.rizon.net
; Thanks and good luck.
alias blacklist {
if ($1 == add) {
if ($2 != $null) {
if ($($+(%,blacklist,.,$2,.,$active),2) == $null) {
if ($3 == $null) {
echo -a $2 added to blacklist for $active $+ .
kick $active $2 Blacklisted. No reason specified.
mode # +bb $address($2, 2) $2
set $+(%,banhost,.,$2) $address($2, 2)
set $+(%,blacklist,.,$2,.,$active) No reason specified.
var %old $(%blacklist)
var %new $2 $+ $chr(32) $+ $(%old)
set %blacklist $(%new)
}
else {
echo -a $2 added to blacklist for $active $+ .
kick $active $2 Blacklisted. Reason: $3-
mode # +bb $2 $address($2, 2)
set $+(%,blacklist,.,$2,.,$active) $3-
var %old $(%blacklist)
var %new $2 $+ $chr(32) $+ $(%old)
set %blacklist $(%new)
}
}
else {
echo -a $2 is already on the blacklist.
}
}
else {
echo -a Usage: /blacklist <add/del> <person> (reason)
}
}
if ($1 == del) {
if ($2 != $null) {
if ($($+(%,blacklist,.,$2,.,$active),2) != $null) {
echo -a $2 removed from blacklist.
mode # -bb $2 $($+(%,banhost,.,$2),2)
unset $+(%,blacklist,.,$2,.,$active)
unset $+(%,banhost,.,$2)
var %banana $replace(%blacklist, $2, $chr(32))
set %blacklist $(%banana)
}
}
else {
echo -a Usage: /blacklist <add/del> <person> (reason)
}
}
if ($1 == list) {
if (%blacklist != $null) {
echo -a Blacklist: $(%blacklist)
}
else {
echo -a The blacklist is empty.
}
}
}
on *:JOIN:#: {
if ($($+(%,blacklist,.,$nick,.,$chan),2) != $null) {
kick $chan $nick Blacklisted. Reason: $($+(%,blacklist,.,$nick,.,$chan),2)
mode # +bb $nick $address($nick, 2)
}
}
It's a global variable so that /blacklist list will work.
Also, I realize now that the $+ $chr(32) is not necessary xD