ON $*:TEXT:/^[~!@.`](BlackList|BList) /Si:#:{
if (($nick isop $chan || $nick ishop $chan) && (#ThePC* iswm $chan)) {
blacklist $2 $3-
.notice $nick Added $2 to BlackList
}
}
ON $*:TEXT:/^[~!@.`]((Del|Rem)BlackList|(Del|Rem)BList) /Si:#:{
if (($nick isop $chan || $nick ishop $chan) && (#ThePC* iswm $chan)) {
DelBlackList $2
.notice $nick Deleted $2 from BlackList
}
}
Alias BlackList {
  cs halfop
  writeini BlackList.ini $network $iif($address($1,2),$address($1,2),$1) $iif($2,$2-,No Reson Given)
  echo -a $timestamp Added $1 to BlackList
}
Alias addcheck {
  if (%addcheck == $null) {
    set %addcheck on
    .whois $1
  }
  else {
    unset %addcheck 
    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
  }
}
RAW 311:*:{
  if (%addcheck == on) {
    addcheck *!*@ $+ $4 $1
  }
}
Alias DelBlackList {
  remini BlackList.ini $network $address($1,2)
  remini BlackList.ini $network $1
  echo -ta $timestamp Deleted $1 from BlackList
  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)
  }
}