on *:OPEN:?: { 
  msg $nick ( $nick it seems you have PMed [Hawt-Bawt] if you would like to contact me please join #playersnoopy. Hang on while I decide if I want to talk to you or not. ) 
  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 ( Congratulations. I accepted your message. ) 
    window -a $2 
  } 
  if ( %acc == $no ) { 
    msg $2 ( Sorry I don't really want to talk to you now. Declined. Join #playersnoopy though and I'll talk to you. ) 
    window -c $2 
  } 
  unset %acc 
}