Something

on *:TEXT:**:?:{
  if ($istok(%excepted,$nick,32)) { halt }
  else { close -m $nick }
  if ($acceptpm == $true) { halt }
  else {
    write -ds $+ $nick pending.txt 
    write pending.txt $nick $asctime(h:nn:ss) $1-
    msg $nick Currently not accepting pms, this attempt to reach me has been recorded, and I'll try too get back to you as soon as possible.
    if (!$window(@bitchin)) {
      window -l @bitchin
      renwin @bitchin @bitchin Your tabs on people who want to reach you!
      loadbuf @bitchin pending.txt   
    }
    else { loadbuf -r @bitchin pending.txt }
  }
}
menu @bitchin {
  .accept:{ query $gettok($sline(@bitchin,1),1,32) | msg $gettok($sline(@bitchin,1),1,32) Your request has been accepted. (Note: Please wait for my response before typing or you'll have to wait again...) | write -ds $+ $gettok($sline(@bitchin,1),1,32) pending.txt | add-except $gettok($sline(@bitchin,1),1,32) | dline @bitchin $sline(@bitchin,1).ln }
  .decline:{ msg $gettok($sline(@bitchin,1),1,32) Your request has been denied. | write $+(-ds,$gettok($sline(@bitchin,1),1,32)) pending.txt | close -m $gettok($sline(@bitchin,1),1,32) | dline @bitchin $sline(@bitchin,1).ln }
}
alias add-except {
  set %excepted %excepted $1
}
alias rem-except {
  set %excepted $remtok(%excepted,$nick,1,32)
}
on *:CLOSE:?:{
  if ($istok(%excepted,$nick,32)) { rem-except $nick }
  else { halt }
}