alias acceptq {
  var %acc = $input( Will you accept a query from $+($1,?),yqdv,Accept Query )
  acceptqcheck $1 %acc
}
alias acceptqcheck {
  if ( $2 == $yes ) {
    msg $1 ( 4Accepted. 10You can now Talk )
    window -a $1
  }
  if ( $2 == $no ) {
    msg $1 ( 4Declined. 10Possible reason: busy )
    window -c $1
  }
}
on *:OPEN:?: {
  if ($nick == -sbnc) HALT
  else { .msg $nick 10Please wait for me to accept your query. | timer 1 0 acceptq $nickk
  }
}