on *:OPEN:?: {
  msg $nick Please wait for Accept/Decline.
  timer 1 0 acceptq $timestamp $nick

}
alias acceptq {
  set %acc $input( $1 will you accept a query from $+($2,?),yqdv,Accept Query )
  acceptqcheck $1 $2
}
alias acceptqcheck {
  if ( %acc == $yes ) {
    msg $2 Query accepted. I'm reading your message now.
    window -a $2
  }
  if ( %acc == $no ) {
    msg $2 Query declined.
    window -c $2
  }
  unset %acc
}