Unnamed

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

alias unblacklist {
  amsg  10 I am now unblacklisting2:4 $$1 $iif($2,10reason2:4 $2- )
  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 Blacklisted
  }
}