;-------------------------;
;   Simple Query Control  ;
;       ~By: Zybez~       ;
;-------------------------;

; Start Of Script [When PM'ed]
on *:OPEN:?: {
  set %q.msg $1-
  set %q.nick $nick
  set %q.time $asctime((HH:nn:ss))
  msg $nick »¦« Auto Message »¦« Please Wait... 
  close -m $nick
  dialog -md Query Query
}

; After PM'ed (Window Portion Of Accept, Block, View 

dialog Query {
  title "Query"
  size 300 300 170 40
  option dbu
  text "Accept Query?", 987, 1 1 100 6, right,
  button "Yes", 5, 2 17 50 11, ok,
  button "No", 10, 59 17 50 11, ok,
  button "View", 11, 117 17 50 11, default,
}
on *:DIALOG:Query:sclick:5:{
  query %q.nick
  timer 1 2 //echo -a %q.time < $+ %q.nick $+ > %q.msg
  timer 1 3 msg %q.nick »¦« Auto Message »¦« Query Accepted... | msg %q.nick ? | unset %q.* 
}
on *:DIALOG:Query:sclick:10:{
  msg %q.nick »¦« Auto Message »¦« Query Blocked...
  unset %q.* 
}
on *:DIALOG:Query:sclick:11:{
  .window -c @View_Query
  window +el @View_Query 300  15 250 480
  titlebar @View_Query
  aline @View_Query %q.time < $+ %q.nick $+ > %q.msg
}