alias bscan {
  var %s = 1
  while (%s <= $nick($iif(!$1,$chan,$1),0)) {
    $iif($nick($iif(!$1,$chan,$1),%s) isin %blist,inc %bfound)
    $iif($nick($iif(!$1,$chan,$1),%s) isin %blist,ban -k $iif(!$1,$chan,$1) $nick($iif(!$1,$chan,$1),%s) 3 14Blacklisted Reason:3 $iif($hget(blistr,$nick($chan,%s)),$hget(blistr,$nick($chan,%s)),None.) )
    inc %s
  }
  msg $iif(!$1,$chan,$1) 14i found3 $iif(%bfound,%bfound,0) 14people in my blacklist on this chan 
  unset %bfound
}

alias bl {
  set %blist %blist $$1
  echo -a $$1 added
  hadd -ms blistr $$1 $2-
  hsave -s blistr blistreason.txt 
  amsg 2[4AMSG2] 14Global 3Blacklist14  of3 $$1 ( $+ $address($1,2) $+ ) 14Reason3 $iif($2,$2-,No reason)
  var %c = 1
  while (%c <= $chan(0)) {
    if ($me isop $chan(%c)) || ($me ishop $chan(%c)) {
      ban -k $chan(%c) $$1 3 BLACKLISTED Reason: $iif($2,$2-,None)
      mode $chan(%c) +b $$1
      inc %c
    }
  }
}
alias bldel {
  set %blist $remove(%blist,$1)
  echo -a $$1 removed
  hdel -w blistr $$1
  hsave -s blistr blistreason.txt
  amsg [AMSG] Global UNblacklist of $$1
  notice $$1 UnBlacklisting you. 
  var %c = 1
  while (%c <= $chan(%c)) {
    if ($me isop $chan(%c)) || ($me ishop $chan(%c)) {
      mode $chan(%c) -bb $$1 $address($1,3)
      inc %c
    }
    else { 
      msg $chan(%C) 14I cannot Unban3 $$1 14in this channel, I suggest you do. 
      inc %c
    }
  }
}


on *:join:#:{
  if ($Nick isin %blist) {
    ban -k $chan $nick 3 14blacklisted Reason:3 $iif($hget(blistr,$Nick),$hget(blistr,$nick),No Reason.)
  }
}

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