dialog Query {
  title "Query Acceptance"
  size 300 300 170 116
  option dbu
  button "Yes", 5, 7 91 50 7, close
  button "No", 10, 115 90 50 7, close
  edit Nick: %q.nick , 1, 11 10 147 10, read
  box "", 2, 3 0 165 80
  edit %q.msg , 3, 11 24 146 53, read
  box "Accept?", 4, 3 81 166 24
  text "jbeaRz Query Acceptance Script", 6, 3 106 165 8, disable center
}
on *:DIALOG:Query:sclick:5:{
  query %q.nick
  timer 1 3 .msg %q.nick [•Private PM•] PM Has Been Accepted. | unset %q.* |  dialog -c query query
}
on *:DIALOG:Query:sclick:10:{
  msg %q.nick [•RageIRC PM•] Your PM Has been Declined.
  unset %q.* 
  dialog -c query query
}
on *:OPEN:?: {
  set %q.msg $1-
  set %q.nick $nick
  .msg $nick [•Private PM•] Please Wait To see if your worthy enough to speak to me........
  close -m $nick
  dialog -md Query Query
}