on *:TEXT:*:?:{
  if (%query [ $+ [ $nick ] ] != $null) { halt }
  else {
    set %query [ $+ [ $nick ] ]
    .msg $nick Testing :: Query :: Blocker
    echo -a $nick wants to send you a private message 
  }
}

alias accept {
  if (%query [ $+ [ $1 ] ] != $null) { halt }
  elseif (%accept [ $+ [ $1 ]] == Yes) { halt }
  else {
    set %accept [ $+ [ $1 ] ] Yes
    unset %query [ $+ [ $1 ] ]
    .msg $1 Query :: Accepted
  }
}

alias decline {
  if (%query [ $+ [ $1 ] ] != $null) { halt }
  elseif (%accept [ $+ [ $1 ] ] == Yes) { set %accept [ $+ [ $1 ] ] No | halt }
  elseif (%accept [ $+ [ $1 ] ] == $null) {
    set %accept [ $+ [ $1 ] ] No
    msg $1 Query :: Declined
  }
}