All pastes #506314 Raw Edit

James

public text v1 · immutable
·published 2007-05-23 22:20 UTC
rendered paste body
Alias BlackList {
  cs halfop
  ns update
  writeini BlackList.ini $network $iif($address($1,2),$address($1,2),$1) $iif($2,$2-,No Reson Given)
  set %NewBList $iif($address($1,2),$address($1,2),$1) Blacklisted by iJames/Jdawg140 $chr(183) $iif($2,$2-,No Reson Given)
  echo -a $timestamp Added $1 to BlackList
  set %style add
  ;ns alist
}
Alias addcheck {
  if (%addcheck == $null) {
    set %addcheck on
    whois $1
  }
  else {
    unset %addcheck 
    set %style del
    set %NewBList $1
    var %x = 0
    while (%x < $chan(0)) {
      inc %x
      mode $chan(%x) -bb $1 $2
    }
  }
}
Alias add-check {
  if (%addcheck == $null) {
    set %addcheck2 on
    whois $1
  }
  else {
  }
}
RAW 311:*:{
  if (%addcheck == on) {
    addcheck *!*@ $+ $4 $1
  }
  elseif (%addcheck2 == on) {
    echo -a *!*@ $+ $4
  }
}
Alias DelBlackList {
  remini BlackList.ini $network $address($1,2)
  remini BlackList.ini $network $1
  echo -ta $timestamp Deleted $1 from BlackList
  set %style del
  addcheck $1
}
ON *:OP:#:{
  if ($opnick == $me) {
    var %i = 0
    while (%i < $nick($chan,0)) {
      inc %i
      if ($readini(BlackList.ini,$network,$address($nick($chan,%i),2)) || $readini(BlackList.ini,$network,$nick($chan,%i))) {
        ban -k $chan $nick($chan,%i) 2 Blacklisted $chr(183) $chr(2) $+ $iif($readini(BlackList.ini,$network,$address($nick($chan,%i),2)),$readini(BlackList.ini,$network,$address($nick($chan,%i),2)),$nick($chan,%i))
      }
    }
  }
}
ON *:HELP:#:{
  if ($hnick == $me) {
    var %i = 0
    while (%i < $nick($chan,0)) {
      inc %i
      if ($readini(BlackList.ini,$network,$address($nick($chan,%i),2)) || $readini(BlackList.ini,$network,$nick($chan,%i))) {
        ban -k $chan $nick($chan,%i) 2 Blacklisted $chr(183) $chr(2) $+ $iif($readini(BlackList.ini,$network,$address($nick($chan,%i),2)),$readini(BlackList.ini,$network,$address($nick($chan,%i),2)),$nick($chan,%i))
      }
    }
  }
}
ON *:JOIN:#:{
  if (($readini(BlackList.ini,$network,$address($nick,2)) || $readini(BlackList.ini,$network,$nick)) && ($me ishop $chan || $me isop $chan)) {
    ban -k $chan $nick 2 Blacklisted $chr(183) $chr(2) $+ $iif($readini(BlackList.ini,$network,$address($nick,2)),$readini(BlackList.ini,$network,$address($nick,2)),$nick)
  }
}