!blacklist (remotes/alias)

Please Register to submit score.

Average Score	6.0
Scores Submitted	1
Date Added	Jan 30, 2008
Last Updated	Jan 31, 2008
Tags	ban blacklist bot dm kb permban

Introduction

Remotes:
!blacklist (nick)
!unblacklist (nick)

Alias
/bl (nick)
/globalunban (nick)

Grab the Code

on *:TEXT:!blacklist*:#: {
  /Bl $2
  /Yes

}

on *:TEXT:!unblacklist*:#: {
  /GlobalUnban $2
  Notice $2 1,4You are now unblacklisted from $chan
  msg $chan 1,4 $21,0 is now unblacklisted from 1,4 $chan
}

on *:JOIN:#:.timer 1 1 bc $nick $chan
alias -l bc {
  if ($read(Blacklist.txt,w,$1)) || ($read(Blacklist.txt,w,$address($1,2))) {
    var %rd = $readn
    if (($me !isop $2) && ($me !ishop $2)) || (*Q* iswmcs $chan($2).mode) || (($me ishop $2) && ($1 isop $2)) echo -st 7/!14 Blacklist match! Channel:07 $2 14Nick:07 $1 14Address:07 $Address($1,2) 14Match:07 $iif($chr(64) isin $ifmatch,Address,Nick) 14Reason:07 $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd)) 14NOTE: I cannot kick this user!
    else {
      echo -st 7/!14 Blacklist match! Channel:07 $2 14Nick:07 $1 14Address:07 $Address($1,2) 14Match:07 $iif($chr(64) isin $ifmatch,Address,Nick) 14Reason:07 $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd)) 14Temp banning07 $1 14for07 5 14minutes.
      ban -ku1800 $2 $1 2 7[14Blacklisted7] 14Reason:07 $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd)) $kickc
    }
  }
}
alias bl {
  if ($2) {
    write BlackList.txt $iif($1 ison $active,$address($1,2),$1)
    write BlackListReason.txt $2-
    echo -ta 7[14Blacklist7]14 Successfully written07 $1 14to blacklist. 7Reason:14 $2-
    if ($1 ison $active) {
      if (($me !isop $active) && ($me !ishop $active)) || (*Q* iswmcs $chan($active).mode) || (($me ishop $chan(%x)) && ($nick($chan(%x),%y) isop $chan(%x))) echo -st 14I cannot kick07 $1 14from07 $active $+ 14!
      else ban -ku1800 $active $1 2 7[14Blacklisted7] 14Reason:07 $iif($2,$2-,Unspecified) $kickc
    }
  }
  else {
    write BlackList.txt $iif($1 ison $active,$address($1,2),$1)
    write BlackListReason.txt Null
    echo -ta 7[14Blacklist7]14 Successfully written07 $1 14to blacklist. No reason specified.
    if ($1 ison $active) {
      if (($me !isop $active) && ($me !ishop $active)) || (*Q* iswmcs $chan($active).mode) || (($me ishop $chan(%x)) && ($nick($chan(%x),%y) isop $chan(%x))) echo -st 14I cannot kick07 $1 14from07 $active $+ 14!
      else ban -ku1800 $active $1 2 7[14Blacklisted7] 14Reason:07 $iif($2,$2-,Unspecified) $kickc
    }
  }
}
alias yes {
  if (%B) {
    set -u600 %r $read(BlackList.txt,%B)
    set -u600 %rr $read(BlackListReason.txt,%B)
    echo -ta 7[14Blacklist7]14 Deleting:07 $read(BlackList.txt,%B) 14With reason:07 $iif($read(BlackListReason.txt,%B) == Null,Unspecified,$read(BlackListReason.txt,%B)) 14from the blacklist.
    write -dl [ $+ [ %B ] ] BlackList.txt
    write -dl [ $+ [ %B ] ] BlackListReason.txt
    unset %B
    GlobalUnban $iif($chr(64) !isin $read(BlackList.txt,%B),$address($v2,2),$v2)
  }
  else echo -ta 7[14Blacklist7]14 Error: No blacklist set to delete. Try 7/bldel <Address/Nickᡆ.
}
alias GlobalUnban {
  if (!$1) halt
  var %x = 1, %z = 0
  while (%x <= $chan(0)) {
    if ($me isop $chan(%x)) || ($me ishop $chan(%x)) mode $chan(%x) -b $1
    inc %x
  }
  echo -s 14Globally unbanned07 $1
}
alias kickc { inc %kickcounter | return 7�14 $bytes(%kickcounter,db) 7� }

Comments

(4) RSS

Go to Bottom

richrunescaper

Comments: 5

mIRC Snippet: !blacklist (remotes/alias)
Posted on Jan 30, 2008 5:48 pm

Hope you like. I am new to scripting, so give me slack if anythings wrong. =]

pokemaster23

Comments: 51

mIRC Snippet: !blacklist (remotes/alias)
Posted on Jan 30, 2008 9:28 pm

;o;o;o

I couldn't get thhe !blacklist to work but I'm kinda new to scripting as well but it looks nice.

pokemaster23

Comments: 51

mIRC Snippet: !blacklist (remotes/alias)
Posted on Jan 30, 2008 9:30 pm

off *:JOIN:#:.timer 1 1 bc $nick $chan
alias -l bc {

Never heard of off *:join: lmao..sorry for double post.

richrunescaper

Comments: 5

mIRC Snippet: !blacklist (remotes/alias)
Posted on Jan 31, 2008 10:10 pm

Oops! i forgot to change that, i was trying to turn it off, so i put that in there to disable the script! lmao. i take it out

richrunescaper

		nothing new mexico
Last seen: Feb 01, 2008 Profile \| Website Snippets (1) Comments Received (4) Comments Submitted (5)

My Snippet Tags

Contact

Add to Friends

Send Private Message

AOL AIM:

Yahoo YIM:

ICQ Number:

MSN: none