Untitled

alias F7 {
  var %ohgawd $iif($acceptpm == $true,Yes,No)
  set %accepting $?!="Should you accept pms? currently: %ohgawd "
}
alias F8 {
  window -l @PMlist
  renwin @PMlist @PMlist Your tabs on people who want to reach you!
  loadbuf @PMlist 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(@PMlist)) {
      window -l @PMlist
      renwin @PMlist @PMlist Your tabs on people who want to reach you!
      loadbuf @PMlist pending.txt   
    }
    else { loadbuf -r @PMlist pending.txt }
  }
  close -m $nick
}
menu @PMlist {
  .accept:{ write -ds $+ $gettok($sline(@PMlist,1),1,32) pending.txt | add-except $gettok($sline(@PMlist,1),1,32) | query $gettok($sline(@PMlist,1),1,32) | msg $gettok($sline(@PMlist,1),1,32) Your request has been accepted. (Note: Please wait for my response before typing or you'll have to wait again...) | dline @PMlist $sline(@PMlist,1).ln }
  .decline:{ msg $gettok($sline(@PMlist,1),1,32) Your request has been denied. | write $+(-ds,$gettok($sline(@PMlist,1),1,32)) pending.txt | close -m $gettok($sline(@PMlist,1),1,32) | dline @PMlist $sline(@PMlist,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 }
}