By francismori7 on May 19, 2008Paste 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
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.
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.
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.
you can make the kickban line like this for the on join
ban -k $chan $nick 4 Black-Listed!
same thing for setting the nick to the black list
ban -k $active $2 4 Black-Listed!
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.
