Scripts Black List

kalau kamu mau buat Black List di Script kamu, kamu bisa gunakan script ini juga loh, mudah kok cara makainya. masukin aja ke Remote kamu.

Command nya :
/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]

; SIKAT!!! HANCURKAN!!!! Script Black List by Mr_Armen
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. 4 12» 4â12®4m12ê4ñ 12«
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- 4 12» 4â12®4m12ê4ñ 12«
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- 4 12» 4â12®4m12ê4ñ 12«
;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. 4 12» 4â12®4m12ê4ñ 12«
;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 4 12» 4â12®4m12ê4ñ 12«
}
elseif ($1 == clear) {
/remove bl.txt
amsg 4[ 7B15lack-7L15ist 4] 15Deletion of7 all nicks15. 4 12» 4â12®4m12ê4ñ 12«
}
elseif ($1 == aclear) {
/remove abl.txt
amsg 4[ 7B15lack-7L15ist 4] 15Deletion of7 all addresses15. 4 12» 4â12®4m12ê4ñ 12«
}
}

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

; SIKAT!!!! di TAB
%version 2.1

Semoga kamu gak ikutan black ya ;)