Anonymous

on *:OPEN:?: {
  msg $nick << Secure Query - Please be Patient >>
  timer 1 0 acceptq $timestamp $nick

}
alias acceptq {
  set %acc $input( Do you wish to accept a query from $+($2,?)?,yqdv,Accept Query )
  acceptqcheck $1 $2
}
alias acceptqcheck {
  if ( %acc == $yes ) {
    msg $2 << Secure Query Accepted >>
    window -a $2
  }
  if ( %acc == $no ) {
    msg $2 << Secure Query Declined >>
    window -c $2
  }
  unset %acc
}