Home > mIRC > Script Black List IRC

Script Black List IRC

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😉

#sidempuan @DalNet

Categories: mIRC
  1. No comments yet.
  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: