simple blacklist..

Please Register to submit score.

Average Score	4.0
Scores Submitted	1
Date Added	May 06, 2008
Last Updated	May 06, 2008
Tags	blacklist popups shitlist

Introduction

Simple shitlist popup:
add shitlisted hostmask
del shitlisted hostmask
look at the list of shitlisted hostmasks
delete all shitlisted hostmasks
maybe a good feature: on unload the script deletes itself and the shitlist table from memory and from mircdir.
Very easy to use.
Doesn't allow adding a hostmask to shitlist if there is 10 or more users found matching the mask..

Grab the Code

#############################
#   Script    : Shitlist    #
#   Author    : Shitbreak   #
#   Network   : QuakeNet    #
#   Channel   : #Servicebot #
#   Year      : 2008        #
#############################
on *:load:{
  echo 2 -a * You have succesfully loaded shitlist script by shitbreak.
  echo 2 -a * Checking for the shitlist table...
  if (!$hget(shitlist)) { 
    echo 2 -a * Shitlist table does not exist.
    hmake shitlist
    echo 2 -a * Made the table shitlist.
  }
  if ($exists(shitlist.hsh)) { 
    hload shitlist shitlist.hsh
    echo 2 -a * Loaded shitlist table. 
  }
  if (!$exists(shitlist.hsh)) {
    hsave shitlist shitlist.hsh
    echo 2 -a * Shitlist table was not found from $mircdir $+ : It is now saved there.
  }
} 
on *:unload:{
  echo 2 -a * Thank you for using the shitlist snippet.
  if ($hget(shitlist)) { .hfree shitlist }
  if ($exists(shitlist.hsh)) { .remove shitlist.hsh }
  .remove $+(",$script,")
  echo 2 -a * Shitlist is now removed and the script. Shitlist table is already removed from memory.
}
on *:start:{
  echo 2 -a * Checking for the shitlist table...
  if (!$hget(shitlist)) { 
    echo 2 -a * Shitlist table does not exist.
    hmake shitlist
    echo 2 -a * Made the table shitlist.
  }
  if ($exists(shitlist.hsh)) { 
    hload shitlist shitlist.hsh
    echo 2 -a * Loaded shitlist table from $mircdir $+ .
  }
  if (!$exists(shitlist.hsh)) {
    hsave shitlist shitlist.hsh
    echo 2 -a * Shitlist table was not found from $mircdir $+ : It is now saved there.
  }
} 
on *:disconnect:{
  if (!$hget(shitlist)) {
    echo 2 -a * Shitlist table not loaded, we are not saving it.
  }
  if ($hget(shitlist)) {
    hsave shitlist shitlist.hsh
    echo 2 -a * Shitlist table is now saved to $mircdir
  }
}
on *:exit:{
  if ($hget(shitlist)) { hsave shitlist shitlist.hsh } 
}
menu channel {
  ...Shitlist by shitbreak
  ..Add user:{ 
    set %mask $$?="Hostname for the user" 
    if ($hget(shitlist,%mask)) { echo 2 -a * Error adding mask %mask to the shitlist: Mask is already shitlisted. }
    if (!$hget(shitlist,%mask)) { 
      if ($ial(%mask,0) >= 10) { echo 2 -a * Error adding mask %mask to the shitlist: There are too many ( $+ $ial(%mask,0) $+ ) users matching the mask. }
      if ($ial(%mask,0) < 10) {
      set %reason $$?"Reason to be shitlisted?" | hadd shitlist %mask Shitlisted: %reason | echo 2 -a * Added mask %mask to the shitlist. | kickchannels %mask %reason  }
    }
  }
  ..Del user:{
    var %mask $$?"Mask to be removed from shitlist"
    if (!$hget(shitlist,%mask)) { echo 2 -a * Error removing mask %mask from the shitlist: That mask is not shitlisted. }
    if ($hget(shitlist,%mask)) { hdel shitlist %mask | echo 2 -a * Mask %mask was succesfully removed from shitlist. }
  }
  ..Shitlist list:{
    if ($hfind(shitlist,*,0,w) == 0) { echo 2 -a * Error: Shitlist is empty. }
    if ($hfind(shitlist,*,0,w) > 0) {
      var %i = 1
      while (%i <= $hfind(shitlist,*,0,w)) {
        echo -a ID: ( $+ %i $+ ) Mask: $hfind(shitlist,*,%i,w) Reason: $hget(shitlist,$hfind(shitlist,*,%i,w)) 
        inc %i
      }
    }
  }
  ..Delete all shitlist entries:{
    if ($hfind(shitlist,*,0,w) == 0) { echo 2 -a * Error deleting all shitlisted masks: The shitlist is empty. }
    if ($hfind(shitlist,*,0,w) > 0) {
      echo 2 -a $hfind(shitlist,*,0,w) shitlisted entries will be removed.
      var %i = $hfind(shitlist,*,0,w)
      while (%i) {
        if ($hfind(shitlist,*,%i,w)) { var %rm = $hfind(shitlist,*,%i,w) | hdel shitlist $hfind(shitlist,*,%i,w) | echo 2 -a Removed shitlist entry: %rm }
        dec %i
      }
    }
  }
}
alias kickchannels { 
  if ($ial($1,0) == 0) { echo 2 -a * There are no masks mathing $1 on any channels. }
  if ($ial($1,0) > 0) {
    var %i $chan(0)
    while (%i) {
      var %x $nick($chan(%i),0)
      while (%x) {
        if ($1 iswm $address($nick($chan(%i),%x),5)) && ($me isop $chan(%i)) { mode $chan(%i) -o+b $nick($chan(%i),%x) $1 | kick $chan(%i) $nick($chan(%i),%x) Shitlisted: $2- | echo -a * ( $+ $date $+ ) ( $+ $time $+ ) $+ : Kicked shitlisted user ' $+ $nick($chan(%i),%x) $+ ' from $chan(%i) $+ .  }
        dec %x    
      }      
      dec %i
    }
  }
}
on *:join:#:{
  if ($hfind(shitlist,*,0,w) > 0) {
    var %i = $hfind(shitlist,*,0,w)
    while (%i) {
      if ($hfind(shitlist,*,%i,w) iswm $fulladdress) { mode $chan +b $hfind(shitlist,*,%i,w) | kick $chan $nick $hget(shitlist,$hfind(shitlist,*,%i,w)) | echo -a * ( $+ $date $+ ) ( $+ $time $+ ): Shitlisted user ' $+ $nick $+ ' joined $chan $+ . }
      dec %i
    }
  }
}

Comments

(17) RSS

Go to Bottom

juhapuha

Comments: 35

Posted on May 6, 2008 5:19 pm

Comments please!

^Neptune

Comments: 129

Posted on May 6, 2008 5:45 pm

Author : shoot ;x

^Neptune

Comments: 129

Posted on May 6, 2008 5:47 pm

what I meant to say was: Author : shoot

Damn auto spelling thing that i got >:O

^Neptune

Comments: 129

Posted on May 6, 2008 5:48 pm

ugh, forget it

delete those comments please

Eugenio

Comments: 276

Posted on May 6, 2008 6:07 pm

lmfao neptune

juhapuha

Comments: 35

Posted on May 6, 2008 6:10 pm

neptune wtf are you talking about? :o
i wanted to hear opinions about the script not messing around :]

juhapuha

Comments: 35

Posted on May 6, 2008 6:11 pm

And i suggest to try it first before saying anything about it.

^Neptune

Comments: 129

Posted on May 6, 2008 6:17 pm

i was not messing around .. i was trying to say: Who is this author shoot?

^Neptune

Comments: 129

Posted on May 6, 2008 6:18 pm

hfsxyfgcssjgcybcaddsgf DAMNED TIDAL THING!

i officially hate auto spelling correctors

juhapuha

Comments: 35

Posted on May 6, 2008 6:22 pm

LOL the author is me, but i just don't use the nick shoot here.. :D

juhapuha

Comments: 35

Posted on May 6, 2008 6:24 pm

nick shoot* i'm too tired :(

juhapuha

Comments: 35

Posted on May 6, 2008 6:41 pm

Now i get what you were talking about :--P

Comments: 562

Posted on May 7, 2008 12:36 am

LAWL are you fellas tryin to say "SHÍT" or you just on crack?

juhapuha

Comments: 35

Posted on May 7, 2008 5:16 am

The fark*ing antibadlanguage thingie doesn't allow me to say that :(

Comments: 562

Posted on May 7, 2008 1:52 pm

lmfao der

Eugenio

Comments: 276

Posted on May 7, 2008 2:19 pm

lmfao

Xpl0reR

Comments: 19

Posted on May 8, 2008 6:42 am

/me will add a no-where comment here

Please Register or Login to start posting comments.

simple blacklist..

Introduction

Grab the Code

Comments

juhapuha

My Snippet Tags

Contact


Last seen: May 11, 2008 Profile Snippets (13) Comments Received (67) Comments Submitted (35)