Anonymous

,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
  }
}