Stuff

alias F7 {
  var %ohgawd $iif($acceptpm == $true,Yes,No)
  set %accepting $?!="Should you accept pms? currently: %ohgawd "
}
alias F8 {
  window -l @bitchin
  renwin @bitchin @bitchin Your tabs on people who want to reach you!
  loadbuf @bitchin pending.txt   
}
alias -l acceptpm {
  if (%accepting == $true) { return $true }
  if (%accepting == $false) { return $false }
}
on *:TEXT:**:?:{
  if ($istok(%excepted,$nick,32)) { halt }
  if ($acceptpm == $true) { halt }
  else {
    write -ds $+ $nick pending.txt 
    write pending.txt $nick $asctime(h:nn:ss) $1-
    msg $nick Please wait for me to accept your pm
    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 }
  }
  close -m $nick
}
menu @bitchin {
  .accept:{ write -ds $+ $gettok($sline(@bitchin,1),1,32) pending.txt | add-except $gettok($sline(@bitchin,1),1,32) | 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...) | 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 -l add-except {
  set %excepted %excepted $1
}
alias -l rem-except {
  set %excepted $remtok(%excepted,$nick,1,32)
}
on *:exit:{ unset %excepted }
on *:DISCONNECT:{ unset %excepted }
on *:CLOSE:?:{
  if ($istok(%excepted,$nick,32)) { rem-except $nick }
  else { halt }
}
alias query {
  if ($acceptpm == $true) { !query $1 | halt }
  if ($istok(%excepted,$1,32)) { !query $1 }
  else { set %excepted $addtok(%excepted,$$1,32) | !query $1 }
}