alias blist {
  if (!%blist. [ $+ [ $address($1,2) ] ]) {
    set %blist. [ $+ [ $address($1,2) ] ] yo
    set %breason. [ $+ [ $address($1,2) ] ] $iif($2,$2-,No reason)
    echo -at [ADDED] $1 $chr(124) $address($1,2) - Reason: $iif($2,$2-,No reason)
  }
  else echo -at [ERROR] $1 is already blacklisted
}
alias unblist {
  if (%blist. [ $+ [ $address($1,2) ] ]) {
    unset %blist. [ $+ [ $address($1,2) ] ] 
    unset %breason. [ $+ [ $address($1,2) ] ] 
    echo -at [DELETED] $1 $chr(124) $address($1,2)
  }
  else echo -at [ERROR] $1 is not blacklisted
}

on *:join:#:{
  if ($me isop $chan) || ($me ishop $chan) {
    if (%blist. [ $+ [ $address($nick,2) ] ]) {
      inc %bans
      ban -k $chan $nick 2 [BLACKLISTED] Reason: %breason. [ $+ [ $address($nick,2) ] ] $chr(124) %bans Banned
    }
  }
}