Another Blacklist

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	May 03, 2008
Last Updated	May 03, 2008
Tags	blacklist mirc

Introduction

Well, I'm back after a temporary leave. I decided to redo my blacklist I made awhile back, and this is what I've come up with so far. I still need to add/fix the edit option and a few things with the edit fields, so bare with me. Oh, and ahead of time, I know there are already other blacklists out there. :P Ideas and comments are welcome as always!

Check your 'Commands' menu or whatever you have it changed to to open the blacklist dialog. Add blacklist entries via the dialog or by right-clicking a user on the nicklist.

Also, there's automatic logging for the script that tells who was blacklisted, where they were blacklisted, and at what time they were blacklist.

Grab the Code

menu menubar,channel { 
  Blacklist
  .Open:{ 
    if ($dialog(black) == $null) { 
      .dialog -mod black black black
    }
  }
  .Logs:{ .openblacklistlog }
}
menu nicklist {
  Blacklist User:{
    if ($$1 != $null) {
      .var %r = $$?="Reason:"
      .write Blacklist.blklist %r $+ $chr(35) $+ $address($$1,2) $+ $chr(35) $+ $asctime(h:nn:ss TT) $+ $chr(35) $+ $asctime(dddd $+ $chr(44) mmmm d $+ $chr(44) yyyy) $+ $chr(35)
      if ($me isop $chan) { .mode $chan +bb $$1 $address($$1,2) | .kick $chan $$1 %r &#8226; Blacklisted }
      .write Blacklist.log $asctime(dddd $+ $chr(44) mmmm d $+ $chr(44) yyyy) $chr(124) $asctime(h:nn:ss TT) $chr(124) $$1 ( $+ $address($$1,2) $+ ) was blacklisted in $chan $+ . 
    }
  }
}
on *:dialog:black:init:0:{
  if ($group(#Blklist) == on) { .did -c black 16 }
  if ($group(#Blklist) == off) { .did -c black 17 }
  if ($read(Blacklist.blklist,1) != $null) { .did -e black 13 }
  if ($exists(Blacklist.blklist) == $true) {
    if ($read(Blacklist.blklist,1) != $null) {
      var %x = 1
      while (%x <= $lines(Blacklist.blklist)) {
        .did -a black 1 $gettok($read(Blacklist.blklist,%x),2,35) 
        .inc %x
      }
    }
  }
}
alias openblacklistlog {
  .window -mkz @Blacklist
  if ($exists(Blacklist.log) == $true) {
    .var %x = 1
    .echo @Blacklist -
    while (%x <= $lines(Blacklist.log)) {
      .echo @Blacklist $read(Blacklist.log,%x)
      .inc %x
    }
  }
}
dialog black {
  title "Blacklist"
  size -1 -1 578 191
  option pixels
  list 1, 9 21 285 161, size
  box "Blacklist Information:", 2, 303 3 269 80
  text "Date Added:", 3, 314 23 63 17
  text "Time Added:", 4, 314 39 63 17
  text "Reason:", 5, 314 55 44 17
  text "N/A", 6, 358 55 202 17
  text "N/A", 7, 377 39 183 17
  text "N/A", 8, 377 23 183 17
  box "Blacklisted Usernames/Addresses:", 9, 4 3 295 184
  button "Add New", 10, 314 106 60 19
  button "Delete", 11, 314 131 60 20, disable
  button "Edit", 12, 392 106 59 19, disable
  button "Clear", 13, 392 131 59 20, disable
  box "Commands:", 14, 304 85 158 77
  text "Blacklist by Akishoot", 15, 311 167 153 17, disable
  radio "On", 16, 478 104 39 17
  radio "Off", 17, 520 104 40 17
  box "Status:", 18, 470 86 97 43
  button "Close", 19, 501 161 65 25, ok
}
on *:dialog:black:sclick:10:{
  .dialog -mod addnew addnew 
}
on *:dialog:black:sclick:1:{
  if ($did(black,1).seltext != $null) {
    .did -e black 11
    .did -ar black 7 $gettok($read(Blacklist.blklist,$did(black,1).sel),3,35)
    .did -ar black 8 $gettok($read(Blacklist.blklist,$did(black,1).sel),4,35)
    .did -ar black 6 $gettok($read(Blacklist.blklist,$did(black,1).sel),1,35)
  }
}
on *:dialog:black:sclick:11:{
  if ($did(black,1).sel != $null) { 
    .write -dl $+ $did(black,1).sel Blacklist.blklist
    .did -ar black 6-8 N/A
    .did -d black 1 $did(black,1).sel
    .did -b black 11
  }
}
on *:dialog:black:sclick:13:{
  if ($exists(Blacklist.blklist) == $true) { .remove -b Blacklist.blklist | .did -r black 1 | .did -b black 11,13 | .did -ar black 6-8 N/A }
  else { .halt }
}
on *:dialog:black:sclick:16:{
  if ($group(#Blklist) == off) { .enable #Blklist }
  elseif ($group(#Blklist) == on) { .halt }
}
on *:dialog:black:sclick:17:{
  if ($group(#Blklist) == on) { .disable #Blklist }
  elseif ($group(#Blklist) == off) { .halt }
}
dialog addnew {
  title "New Blacklist Entry"
  size -1 -1 421 69
  option pixels
  text "Username/Address:", 1, 10 16 100 16
  text "Reason:", 2, 10 40 45 16
  edit "", 3, 57 38 277 20
  edit "", 4, 110 14 224 20
  box "", 5, 3 0 338 65
  button "Add", 6, 349 23 65 25, ok disable
}
on *:dialog:addnew:edit:3:{
  if ($did(addnew,4).edited == $true) { .did -e addnew 6 }
  if ($did(addnew,3).text == $null) { .did -b addnew 6 }
}
on *:dialog:addnew:edit:4:{
  if ($did(addnew,3).edited == $true) { .did -e addnew 6 }
  if ($did(addnew,4).text == $null) { .did -b addnew 6 }
}
on *:dialog:addnew:sclick:6:{
  if ($did(addnew,3).text != $null) {
    if ($did(addnew,3).edited == $true) && ($did(addnew,4).edited == $true) {
      .write Blacklist.blklist $did(addnew,3).text $+ $chr(35) $+ $did(addnew,4).text $+ $chr(35) $+ $asctime(h:nn:ss TT) $+ $chr(35) $+ $asctime(dddd $+ $chr(44) mmmm d $+ $chr(44) yyyy) $+ $chr(35)
      .did -a black 1 $gettok($read(Blacklist.blklist,$lines(Blacklist.blklist)),2,35)
      if ($did(black,13).enabled == $false) { .did -e black 13 }
    }
  }
}
#Blklist off
on *:JOIN:#:{
  if ($exists(Blacklist.blklist) == $true) {
    var %x = 1
    while (%x <= $lines(Blacklist.blklist)) {
      if ($gettok($read(Blacklist.blklist,%x),2,35) == $address($nick,2)) { 
        .mode $chan +bb $nick $address($nick,2)
        .write Blacklist.log $asctime(dddd $+ $chr(44) mmmm d $+ $chr(44) yyyy) $chr(124) $asctime(h:nn:ss TT) $chr(124) $nick ( $+ $address($nick,2) $+ ) was blacklisted in $chan $+ . 
        .kick $chan $nick $gettok($read(Blacklist.blklist,%x),1,35) &#8226; Blacklisted
        .halt
      }
      .inc %x
    }
  }
}
#Blklist end

Comments

(0) RSS

Go to Bottom

Akishoot

		Unemployed, Student, Detroit, Michigan
Last seen: May 11, 2008 Profile Friends (12) Snippets (8) Images (2) Comments Received (69) Comments Submitted (134)

My Snippet Tags

Contact

Add to Friends

Send Private Message

AOL AIM:

MSN: akishoot@hotmail.com

Friends (12)

ALCAPONE

Scakk

View All