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
}