`
Code: 
on *:OPEN:?: { 
  msg $nick ( 10 Im married to my money...If it aint about no money,dont pm (if its important go to #cigarette and leave a message)) 
  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 ( Accepted ) 
    window -a $2 
  } 
  if ( %acc == $no ) { 
    msg $2 ( Declined ) 
    window -c $2 
  } 
  unset %acc 
}