Mine

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 [Blacklist] Reason:10 $iif($hget(blistr,$nick($chan,%s)),$hget(blistr,$nick($chan,%s)),None.) )
    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 %blisted 
    set %blist %blist $$2
    hadd -ms blistr $$2 $3-
    hsave -s blistr blistreason.txt 
    msg $Chan 14[Blacklist]10 $Nick 14has blacklisted10 $$2 ( $+ $address($2,2) $+ ) 14for:10 $iif($3,$3-,No reason)
    var %c = 1
    while (%c <= $chan(0)) {
      if ($me isop $chan(%c)) || ($me ishop $chan(%c)) {
        ban -k $chan(%c) $$2 2  14 [Blacklist] Reason:10  $iif($3,$3-,None)
        inc %c
      }
    }
  }
}
on *:TEXT:!deblacklist *:# {
  if ($nick ishop $chan || $nick isop $chan) {
    set %blist $remove(%blist,$2)
    hdel -w blistr $$2
    hsave -s blistr blistreason.txt
    msg $chan 14[Blacklist] 10 $Nick 14has unblacklisted:10 $$2 
    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  14 [Blacklist] Reason:10 $iif($hget(blistr,$Nick),$hget(blistr,$nick),No Reason.) 
  }
  elseif ($nick == $Me) {
    bscan $chan
  }
}

on *:START:{
  hadd -m blistr blistreason.txt
  hload blistr blistreason.txt
  hsave blistr blistreason.txt
}