alias acceptq { set %acc [ $+ [ $nick ] ] $input( $1 Will you accept a query from %q [ $+ [ $nick ] ] $+ $chr(63),yqdv,Accept Query )
  acceptqcheck $1 %q [ $+ [ $nick ] ] $3

}
alias acceptqcheck {
  if ( %acc [ $+ [ $nick ] ] == $yes ) {
    msg %q ( 4Accepted. 10You can now Talk )
    window -a %q [ $+ [ $nick ] ]
  }
  if ( %acc [ $+ [ $nick ] ] == $no ) {
    msg %q ( 4Declined. 10Possible reason: busy )
    window -c %q [ $+ [ $nick ] ]
  }
  unset %acc [ $+ [ $nick ] ]
  unset %q
}
on *:OPEN:?: {
  if ($nick == -sbnc) HALT
  else { set %q $nick
    .msg $nick 10Please wait for me to accept your query. | timer 1 0 acceptq $timestamp $nick
  }
}