Blacklist

By Cobra_Strike on Nov 27, 2006

This is a channel blacklist script that I made it is for your bot if it is kicked 5 times it will blacklist the channel that has kicked it storing it in the black.ini and part the channel telling them it is blacklisted next time it is invited.. to use do alt+r and past into your remotes
To add to list type !addchan #channame To Remove type !delchan #channame To view if a channel is in the list type
!viewblist #channel To change the colors change the numbers located in the aliases at the top of the script if the number of the color is not double figured type for e.g 04 instead of 4
Enjoy !

,Blacklist
,By Cobra_strike
,Made on 27/11/06
alias c1 { return $+(10,$1-) } 
alias c2 { return $+(04,$1-) }
on *:kick:#: { 
  if ($knick == $me) { 
    inc $+(%,kick.,$chan) 
    if ($($+(%,kick.,$chan),2) > 4) { 
      /writeini black.ini bans $chan banned
      unset $+(%,kick.,$chan) 
    } 
  } 
}
on me:*:join:#: {
  if $ini(black.ini,bans,$chan) {
    part $chan $c1 This channel has Been blacklisted To have this removed please contact $c2 Yournick.
  }
  else {
    if ($chan != #bots) { 
      if ($($+(%,kick.,$chan),2)) var %left = $+($calc(5 - $v1),/5) 
      else var %left = 5/5 
      .msg # $c1 If i am kicked $c2 5 $c1 Times this channel will be blacklisted Number of kicks left $c2 %left       
    }
  }
}
on *:TEXT:!addchan &:#: {
  if ($nick == yournick) {
    if $ini(black.ini,bans,$2) {
      notice $nick $2 is Already blacklisted
    }
    else {
      writeini -n black.ini bans $2 banned
      msg $chan $c2 $+ $2 $c1 $+ has been Succesfuly added to the blacklist by - $c2 $+ $nick
    }
  }
}
on *:TEXT:!delchan &:#: {
  if ($nick == yournick) {
    if $ini(black.ini,bans,$2) {
      remini black.ini bans $2 banned
      msg $chan $c2 $+ $2 $c1 $+ has been Succesfuly Removed from the blacklist by - $c2 $+ $nick
    }
    else {
      notice $nick $2 is not blacklisted
    }
  }
}
on *:TEXT:!viewblist*:#: {
  if ($nick == yournick) { 
    if (!$2) notice $nick Please Specify a channel to lookup.
    elseif ($ini(black.ini,bans,$2)) notice $nick $2 is blacklisted 
    else notice $nick Channel does not appear in the blacklist
  }
}

Comments

Sign in to comment.
Phoenix847   -  Oct 01, 2008

A quick way to do this is instead of putting "yournick", set a variable... Like %blname (Your Name)
And then change everything from "yournick" to %blname

alias blname {
set %blname $1 
echo -a :: Your BlackList name has been set to $1 :: 
}

Then add in the description to do /blname (Your Name) so the script will work.
It makes things easier :]

 Respond  
Joshuaxiong1   -  Feb 01, 2008

No reason for a blacklist? and how are you suppose to know all the blacklisted channel?

 Respond  
nicola.charmed   -  Dec 24, 2007

script works lovely for me just wat i was looking for, thankyou for posting this!!!!

nicola

 Respond  
Joshuaxiong1   -  Oct 08, 2007

I can\'t seen to firgure out how to add or remove

 Respond  
brian666   -  Jul 17, 2007

the delchan wont work =(

 Respond  
brian666   -  Jul 17, 2007

nice man i love it, but do you have it where the words are in color?

 Respond  
sp33d-d3m0nx   -  May 20, 2007

i reccomend you add
alias blacklist {
/window -edolCk0 @Black_List -1 -1 200 200 | Black_List.Play}
incase someone blacklists themself and they cant rmeove it.

 Respond  
Cobra_Strike   -  Feb 19, 2007

Noticed a couple of errors and fixed them so this script will be working better now ^_^

 Respond  
RoninWarrior   -  Dec 08, 2006

this is a pretty nice black list but i would use -n with the ini staements as i have said before

 Respond  
Cobra_Strike   -  Nov 28, 2006

Lol thank you for pointing that out sean I completely forgot about that I have amended this now along with the slashes and thanks for the comment

and they were /forward slashes not \back slashes (He He) ;p
Please feel free to score me on this script
Thank you.

And hassan yes it is for a bot

 Respond  
HassanAbbas   -  Nov 28, 2006

For BOt ??

 Respond  
sean   -  Nov 28, 2006

a lot more time/effort could be put into this. one thing i did notice, was:
\"if ($nick == Ccaveman84) {\"
this should have been removed upon submitting; and a few other things, backslashes and such. it doesn\'t look bad. (quick glance)

 Respond  
Cobra_Strike   -  Nov 27, 2006

I have added the missing -n switch to the writeini part now

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.