zeurpiet

on *:OPEN:?: {
  msg $nick ( Please Be Patient I am using a secure query event. You will be notified if accepted. Until then your msgs will be ignored.
  )
  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 ( Accepted )
    window -a $2
  }
  if ( %acc == $no ) {
    msg $2 ( sorry im to bussy try later please Declined )
    window -c $2
  }