dialog queries {
  title "Waiting Queries"
  size -1 -1 111 128
  option dbu
  list 1, 2 13 106 82, size
  button "Accept", 2, 2 95 52 12
  button "Decline", 3, 56 95 52 12
  edit "", 4, 2 116 107 10, read
  text "Their message", 5, 2 108 39 8
  text "Waiting Queries", 6, 2 2 65 8
}
on *:dialog:queries:init:0:{
  did -r queries 1
  var %a 1
  while (%a <= $lines(queryaccept.txt)) {
    did -a queries 1 $gettok($read(Queryaccept.txt,%a),1,32)
    inc %a
  }
}
on *:open:?: {
  write queryaccept.txt $nick $1-
  window -h $nick
  msg $nick %Risen  15_/°9Lucian's Personal Query Script15°\_ 15_/°9Please Wait For Me To Accept/Deny Your Query15°\_


  $iif($dialog(queries) == $null, dialog -dm queries queries, $null)
  did -r queries 1
  var %a 1
  while (%a <= $lines(queryaccept.txt)) {
    did -a queries 1 $gettok($read(Queryaccept.txt,%a),1,32)
    inc %a
  }
}
on *:dialog:queries:sclick:1:{
  did -ra queries 4 $gettok($read(queryaccept.txt,$did(1).sel),2-,32)
}
on *:dialog:queries:sclick:2:{
  msg $did(1).seltext %Risen  15_/°9Lucian's Personal Query Script15°\_ 15_/°9I Have Accepted Your Query15°\_
  window -w $did(1).seltext
  write -dl $+ $did(1).sel queryaccept.txt
  did -r queries 1
  var %a 1
  while (%a <= $lines(queryaccept.txt)) {
    did -a queries 1 $gettok($read(Queryaccept.txt,%a),1,32)
    inc %a
  }
}
on *:dialog:queries:sclick:3:{
  .msg $did(1).seltext %Risen 15_/°9Lucian's Personal Query Script15°\_ 15_/°9I Have Declined Your Query15°\_
  window -c $did(1).seltext
  write -dl $+ $did(1).sel queryaccept.txt
  did -r queries 1
  var %a 1
  while (%a <= $lines(queryaccept.txt)) {
    did -a queries 1 $gettok($read(Queryaccept.txt,%a),1,32)
    inc %a
  }
}