Mine

alias blacklist {
  writeini blacklist.ini $address($1,3) $2-
  var %c 1
  while ($chan(%c)) {
    if ($me isop $v1) || ($me ishop $v2) ban -k $chan(%c) $1 3 Blacklisted: $2-
    inc %c
  }
  amsg 10 I am now blacklisting 2:4 $1 10reason2:4 $2-
}

alias unblacklist {
  amsg 10 I am now unblacklisting 2:4 $1 10reason2:4 $readini(blacklist.ini,black,$address($1,3))
  remini blacklist.ini black $address($1,3)
}

on *:join:#:{
  if (($me isop $chan || $me ishop $chan)) && ($readini(blacklist.ini,black,$address($nick,3))) {
    ban -k # $nick 3 $v1
  }
}