Miscellany

alias bl {
  set %blist %blist $$1
  set %bl %bl $address($1,2)
  set %time $asctime
  set %nick. [ $+ [ $nick ] ] $nick
  echo -a 4 $1 14has been blacklisted 14for:4 $iif($3-,$3-,No Reason.) 
  hadd -ms blistr $$1 $2-
  hsave -s blistr blistreason.txt
  inc %bl 1
  ban -k $chan $1 2 4[14BLACKLIST4] 14Reason: 4 $iif($hget(blistr,$1),$hget(blistr,$1),No Reason.) - 14Added 14on4 %time $+ . 14Noobs blacklisted:4 %bl 
}
alias debl {
  set %blist $remove(%blist,$1)
  set %bl $remove(%bl,$address($1,2))
  hdel -w blistr $$1
  hsave -s blistr blistreason.txt
  echo -a 4 $1 14has been unblacklisted by:4 $nick
}


on *:join:#:{
  if ($nick == Sara) { halt }
  elseif ($Nick isin %blist || $address($nick,2) isin %bl) {
    ban -k $chan $nick 3 4[14BLACKLISTED4] 14Reason: 4 $iif($hget(blistr,$Nick),$hget(blistr,$nick),No Reason.) - 14Added 14on4 %time $+ . 14Noobs blacklisted:4 %bl
  }
}

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