Like

Black-list v2.1

Platform:  mIRC
Published  May 19, 2008
Updated  May 25, 2008
953  19
Paste all that in your script editor, BUT, READ THE CODE, THERE IS PLACES INDICATIONS!

Commands that may be used after that:

/blist add [nick] <[reason]>
/blist remove [nick]
/blist aadd [nick] <[reason]> *NEW*
/blist aremove [nick] *NEW*
/blist clear *NEW*
/blist aclear *NEW*
/blist ashow *NEW*
/blist show
/blist [cmds/help]

Please report any bug! :)

Thank you.

PLEASE TYPE "/BLIST HELP" IMMEDIATLY AFTER INSTALL

NOW WORKS WITH ADDRESSES!
Put "a" before the commands in /blist to have addresses. ; THE BELLOW GOES IN REMOTE!!!!!!!!!!!!!!!
alias blist {
if ($1 == remove) {
if ($read(bl.txt,w,$2)) { write -dl $+ $readn bl.txt }
msg $active 4[ 7B15lack-7L15ist 4] 15Deletion of7 $215.
mode $active -b $address($2,4)
}
elseif ($1 == add) {
write Bl.txt $2
msg $active 4[ 7B15lack-7L15ist 4] 15Addition of7 $2 15[7- $+ $lines(bl.txt) $+ 7-15]. 15Reason:7 $3-
mode $active +b $address($2,4)
kick $active $2 $3-
halt
}
elseif ($1 == aadd) {
write abl.txt $address($2,4)
msg $active 4[ 7B15lack-7L15ist 4] 15Addition of7 $2's address "7 $+ $address($2,4) $+ " 15[7- $+ $lines(bl.txt) $+ 7-15]. 15Reason:7 $3-
;ban $active $2
mode $active +b $address($2,4)
kick $active $2 $3-
halt
}
elseif ($1 == aremove) {
if ($read(abl.txt,w,$address($2,4))) { write -dl $+ $readn abl.txt }
msg $active 4[ 7B15lack-7L15ist 4] 15Deletion of7 $215 with address 7" $+ $address($2,4) $+ "15.
;msg chanserv unban $active $2
mode $active -b $address($2,4)
}
elseif ($1 == show) {
echo Currently black-listed nicks:
var %count = 0
var %i = 1
while (%i <= $lines(bl.txt)) {
//echo 4- $+ $read(bl.txt, %i)
inc %i
inc %count
}
if (%count == 0) {
echo 7None.
}
}
elseif ($1 == ashow) {
echo Currently black-listed addresses:
var %count = 0
var %i = 1
while (%i <= $lines(abl.txt)) {
//echo 4- $+ $read(abl.txt, %i)
inc %i
inc %count
}
if (%count == 0) {
echo 7None.
}
}
elseif ($1 == help || $1 == cmds) {
//echo 7Commands for Black-List $+ %version by [SAP]Francis:
echo - /blist add [nick] <[reason]>
echo - /blist remove [nick]
echo - /blist aadd [nick] <[reason]>
echo - /blist aremove [nick]
echo - /blist clear
echo - /blist aclear
echo - /blist show
echo - /blist [help/cmds]
echo 1,4T4,1h1,4i4,1s 1,4S4,1c1,4r4,1i1,4p4,1t 1,4w4,1a1,4s 4,1d1,4o4,1n1,4e 4,1b1,4y 7,1[SAP]Francis!
}
elseif ($1 == clear) {
/remove bl.txt
amsg 4[ 7B15lack-7L15ist 4] 15Deletion of7 all nicks15.
}
elseif ($1 == aclear) {
/remove abl.txt
amsg 4[ 7B15lack-7L15ist 4] 15Deletion of7 all addresses15.
}
}

on *:join:*:{
If ( $gettok($nick,1,124) == $read(bl.txt,w,$gettok($nick,1,124))) { /timer 1 1 /kick $chan $nick 4B14lack-4L14isted with name! | mode $chan +b $address($nick,4) | halt }
If ( $gettok($address($nick,4),1,124) == $read(abl.txt,w,$gettok($address($nick,4),1,124))) { /timer 1 1 /kick $chan $nick 4B14lack-4L14isted with address! | mode $chan +b $address($nick,4) | halt }
}

; THIS GOES IN THE VARIABLE TAB!!!!!!!!!!!!!!!!!!!!!!!
%version 2.1

Comments

Sign in to comment.
chadbdurham   -  Jun 26, 2011
.
 Respond  
napa182   -  Jun 22, 2011
lol if you are having that much of a problem with filling up ur chans ban list maybe you should talk to ur netadmins about it, or make ur chan invite only. as i said before "I am not to sure how this persons snippet works as i don't use it.
 Respond  
ManicWaldo   -  Jun 22, 2011
napa182 - You didn't understand what I said. This is what you said ...

"That is what a blacklist does it kick/bans them when they try to join a channel they are blacklisted from."

So let me make it clear .. it does NOT do this. IF you remove the ban that was set on the server .. it won't work. The blacklisted nick is allowed back IN.

When you MANUALLY do a kick/ban .. the ban goes on the server. I have a limited number of nicks that I can maintain on the server. So I have to remove them from the server to have room for more bans. SUPPOSEDLY .. the black list will id the nick upon entry from its list and kick/ban them again. But it AIN'T happening with this script.

So I may as well fill up all the slots available on the server and simply manually ban them .. since THIS BLACKLIST will let them back in.
 Respond  
napa182   -  Jun 21, 2011
well for one a lot snippets to work on chatspace servers have to be changed a bit for them to work.
 Respond  
blackvenomm666   -  Jun 21, 2011
no you told me the same thing couple years ago haha. and it works for the most part but on some sites it wasnt.
 Respond  
napa182   -  Jun 21, 2011
blackvenomm666 being that my comment about that ban -k $active is over 3 years old an i was going off what the author was using. an i said to use

Code

 
in the on join event.
 Respond  
Jethro   -  Jun 21, 2011
Using $active is not a good choice; use $chan
 Respond  
blackvenomm666   -  Jun 21, 2011
napa i have come accross a problem with the

Code

 

lines. i've found they don't work on some sites.
 Respond  
napa182   -  Jun 21, 2011
hmm you don't need a script to kick/ban someone every-time they come into the channel. Then why are you looking/commenting for/on a blacklist script? That is what a blacklist does it kick/bans them when they try to join a channel they are blacklisted from. I am not to sure how this persons snippet works as i don't use it. just seems like an odd thing to rant about tbh.
 Respond  
ManicWaldo   -  Jun 21, 2011
Okay .. so why doesn't this thing work? You put it together .. someone in the channel .. add the nick with /blist .. and they get kicked & banned.. All well and good .. but when you have too many on the server's ban list .. you can't add anymore ... so what do you do .. you remove them from the server .. and what do I expect to happen .. that this black list takes over .. and will kick/ban them when they return .. but it doesn't .. and yes .. the nick is still active. So as it stands for me .. it's a complete waste of my time. I don't need a script to kick/ban someone everytime they come into the channel.
 Respond  
Brock   -  Sep 20, 2010
Awesome 8/10
 Respond  
chadbdurham   -  May 26, 2008
try a if ($nick ison $chan) { mode $chan +b $2
 Respond  
jonesy44   -  May 20, 2008
You may wanna put -a in there then the - then
some mIRC versions, if there is no switch will automatically put it in the server window.
 Respond  
francismori7   -  May 20, 2008
No, I want to echo \"- COMMAND\".

Also, I want to get the address of another user. Can I do it with $address? Or, I need to get a thing in the whois?
 Respond  
jonesy44   -  May 20, 2008

Code

 

.. shudnt that be..

Code

 

typo?
 Respond  
francismori7   -  May 20, 2008
I\'m begginer :)

I\'ll try to see what you guys mean and I\'ll update it :)

PS: I also need suggestions...
 Respond  
EL   -  May 20, 2008
On *:LOAD: { %var Data } <-- Is what you should use to auto make vars and data that needs to be made when you first use the code or load the script.`-.-ยด
 Respond  
napa182   -  May 19, 2008
you can make the kickban line like this for the on join

Code

 

same thing for setting the nick to the black list

Code

 

also instead of setting just the nick have it set the addy to the txt file just so say the ban was taken off by someone else or cleared when no one is in the room and the person joins back under a diff nick.
 Respond  
BlueThen   -  May 19, 2008
Why make the version a variable? Can\'t you just hardcode it in?
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.