Anonymous

alias BlCheck {
  var %x = 1, %z = 0
  while (%x <= $chan(0)) {
    var %y = 1
    while (%y <= $nick($chan(%x),0)) {
      if ($read(Blacklist.txt,w,$nick($chan(%x),%y))) || ($read(Blacklist.txt,w,$address($nick($chan(%x),%y),2))) {
        var %q = $readn
        inc %z
        echo -s $chan 04/!\ 14Blacklist match: Channel:07 $chan(%x) 14Nick:07 $nick($chan(%x),%y) 14Match:07 $ifmatch
        if ($me !isop $chan(%x)) && ($me !ishop $chan(%x)) || (*Q* iswmcs $chan($chan(%x)).mode) || (($me ishop $chan(%x)) && ($nick($chan(%x),%y) isop $chan(%x))) $echo -s I cannot kick07 $nick($chan(%x),%y) 14from07 $chan(%x) $+ 14!
        else ban -ku300 $chan(%x) $nick($chan(%x),%y) 2 4,1¤14,1Y15ou 14,1H15ave 14,1B15een 14,1B15lacklisted 14,1B15y14 Will4,1¤ $iif($read(BlackListReason.txt,%q) == Null,Unspecified,$read(BlackListReason.txt,%q)) $+ .
      }
      inc %y
    }
    inc %x
  }
  echo -s 14Finished checking07 $chan(0) 14 $+ $iif($chan(0) == 1,channel,channels) $+ , blacklists found:07 %z
}
alias GlobalUnban {
  if (!$1) halt
  var %x = 1, %z = 0
  while (%x <= $chan(0)) {
    if ($me isop $chan(%x)) || ($me ishop $chan(%x)) mode $chan(%x) -b $1
    inc %x
  }
  echo -s 14Globally unbanned07 $1
}