Miscellany

on *:OPEN:?: {
  msg $nick 7( This message will get accepted if you are worthy enough too talk to me )
  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 3( Accepted )
    window -a $2
  }
  if ( %acc == $no ) {
    msg $2 4( Declined )
    window -c $2
  }
  unset %acc
}