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

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