Black-list v2.1

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	3.0
Scores Submitted	1
Date Added	May 19, 2008
Last Updated	May 25, 2008
Tags	. 1 2 black by francis list sap

Introduction

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.

Grab the Code

; 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

(8) RSS

Go to Bottom

BlueThen

Comments: 320

mIRC Snippet: Black-list v2.1
Posted on May 19, 2008 9:37 pm

Why make the version a variable? Can't you just hardcode it in?

napa182

Comments: 1,128

mIRC Snippet: Black-list v2.1
Posted on May 19, 2008 9:54 pm

you can make the kickban line like this for the on join

Code:

ban -k $chan $nick 4 Black-Listed!

same thing for setting the nick to the black list

Code:

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.

Comments: 1,366

mIRC Snippet: Black-list v2.1
Posted on May 20, 2008 2:27 am

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.`-.-´

francismori7

Comments: 3

mIRC Snippet: Black-list v2.1
Posted on May 20, 2008 11:18 am

I'm begginer :)

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

PS: I also need suggestions...

jonesy44

Comments: 1,068

mIRC Snippet: Black-list v2.1
Posted on May 20, 2008 11:28 am

Code:

echo -

.. shudnt that be..

Code:

echo -a

typo?

francismori7

Comments: 3

mIRC Snippet: Black-list v2.1
Posted on May 20, 2008 3:55 pm

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?

jonesy44

Comments: 1,068

mIRC Snippet: Black-list v2.1
Posted on May 20, 2008 4:31 pm

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.

chadbdurham

Comments: 6

mIRC Snippet: Black-list v2.1
Posted on May 26, 2008 11:05 am

try a if ($nick ison $chan) { mode $chan +b $2

francismori7


Last seen: Aug 18, 2008 Profile Snippets (2) Comments Received (13) Comments Submitted (3)

My Snippet Tags

. 1 2 alias black by francis help irc list mirc op operator sap toggle

Contact

Add to Friends

Send Private Message

Black-list v2.1

Introduction

Grab the Code

Comments

francismori7

My Snippet Tags

Contact

Sponsors