Untitled

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