Something

on *:TEXT:!blscan:#: {
  var %s = 1
  while (%s <= $nick($iif(!$2,$chan,$2),0)) {
    $iif($nick($iif(!$2,$chan,$2),%s) isin %blist,inc %bfound)
    $iif($nick($iif(!$2,$chan,$2),%s) isin %blist,ban -k $iif(!$2,$chan,$2) $nick($iif(!$2,$chan,$2),%s) 2 14[7«14 Blacklist 7»14] 14[7«14 Reason -4  $iif($hget(blistr,$nick($chan,%s)),$hget(blistr,$nick($chan,%s)),None.) 7»14] 14[7«14Noobs fed to the hungry Polar Bears 4 » %blisted 7»14]
    inc %s
  }
  msg $iif(!$2,$chan,$2) 14I found 10 $iif(%bfound,%bfound,0) 14people in my blacklist on this chan 
  unset %bfound
}

on *:TEXT:!blacklist *:#: {
  if ($nick ishop $chan || $nick isop $chan) {
    inc %blacklisted [ $+ [ $nick ] ] 
    inc %blacklisted [ $+ [ $2 ] ] 
    inc %blisted 
    set %Bnick [ $+ [ $nick ] ]
    set %ctime $asctime
    set %blist %blist $$2
    hadd -ms blistr $$2 $3-
    hsave -s blistr blistreason.txt 
    msg $Chan 14[7«14 Blacklist 7»14] 14[7«14 4 $Nick 14has blacklisted: 4 $$2 7»14]  14[7«14 Host:4 $address($2,2) 7»14] 14[7«14 Reason -4 $iif($3,$3-,No reason) 7»14]
    var %c = 1
    while (%c <= $chan(0)) {
      if ($me isop $chan(%c)) || ($me ishop $chan(%c)) {
        ban -k $chan(%c) $$2 2  4 14[7«14 Blacklist 7»14] 14[7«14 4 $Nick 14has blacklisted 4 $$2 7»14] 14[7«14 Reason -4 $iif($3,$3-,No reason) 7»14] 14[7«14Noobs fed to the hungry Polar Bears 4 » %blisted 7«14]
        inc %c
      }
    }
  }
}
on $*:TEXT:/[!.~`](de|un)blacklist */Si:#: {
  if ($nick ishop $chan || $nick isop $chan) {
    set %blist $remove(%blist,$2)
    hdel -w blistr $$2
    hsave -s blistr blistreason.txt
    msg $chan   4 14[7«14 Blacklist 7»14] 14[7«14 4 $Nick 14has unblacklisted: 4 $$2 7»14] 14[7«14 Reason -4 $iif($hget(blistr,$Nick),$hget(blistr,$nick),No Reason.) 7»14]
    notice $$2 UnBlacklisting you. 
    var %c = 1
    while (%c <= $chan(%c)) {
      if ($me isop $chan(%c)) || ($me ishop $chan(%c)) {
        mode $chan(%c) -b $address($2,2)
        inc %c
      }
    }
  }
}
on *:join:#: {
  if ($Nick isin %blist) {
    ban -k $chan $nick 2 4 14[7«14 Blacklist 7»14] 14[7«14 Reason -4 $iif($hget(blistr,$Nick),$hget(blistr,$nick),No Reason.) 7»14] 14[7«14Added by4: %bnick [ $+ [ $nick ] ] 14on4 %ctime 7»14] 14[7«14Noobs fed to the hungry Polar Bears 4 » %blisted « 7»14] 
  }
}
on *:START:{
  hadd -m blistr blistreason.txt
  hload blistr blistreason.txt
  hsave blistr blistreason.txt
}
on *:TEXT:!check *:#: {
  if ($nick ishop $chan || $nick isop $chan) {
    if ($$2 isin %blist) { notice $nick 14User is on the blacklist added by10 %bnick 14on10 %ctime 14with the reason:10 $iif($hget(blistr,$Nick),$hget(blistr,$nick),No Reason.). }
    else { notice $nick $$2 is not on the blacklist }
  }
}
on *:TEXT:@check *:#: {
  if ($nick ishop $chan || $nick isop $chan) {
    if ($$2 isin %blist) { msg $chan 14User is on the blacklist added by10 %bnick 14on10 %ctime 14with the reason:10 $iif($hget(blistr,$Nick),$hget(blistr,$nick),No Reason.). }
    else { msg $chan $$2 is not on the blacklist }
  }
}