Mine

on *:OPEN:?: {
  msg $nick 13(4P12rivate 4M12essage 4S12pam 4B12locker 4P12lease 4B12e 4P12atient 13)
  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 7( 4A7ccepted, 4W7hat's 4w7rong? 4)
    window -a $2
  }
  if ( %acc == $no ) {
    msg $2 4 (7S4orry 7t4ry 7a4nother 7t4ime. 4)
    window -c $2
  }
  unset %acc
}

on *:CLOSE:?: {
  msg $nick 13(4P12rivate 4M12essage 4S12pam 4B12locker 4C12losed 13)
}