Unnamed

menu * { 
  Query Controler 
  . $+ $iif(%query.blocker,Off,On) $+ : $iif(%query.blocker,unset %query.blocker,set %query.blocker on)) 
} 
dialog qc { 
  title "Query Controler" 
  size -1 -1 140 51 
  option dbu 
  edit "", 3, 4 10 132 10, read autohs 
  text "From:", 5, 4 24 14 8 
  edit "", 7, 20 22 116 10, read autohs 
  button "Accept", 1, 5 34 37 12, flat 
  button "Decline", 2, 44 34 37 12, flat 
  box "Query Control", 4, 1 1 138 49 
} 
on *:DIALOG:qc:sclick:1:{ 
  msg %qnick ( $me has accepted your query ) 
  dialog -x qc 
  query %qnick 
  unset %qnick 
} 
on *:DIALOG:qc:sclick:2:{ 
  msg %qnick ( sorry $me has declined your query ) 
  dialog -x qc 
  unset %qnick 
} 
on *:OPEN:?:{ 
  if (%query.blocker) { 
    if ($dialog(qc)) { halt } 
    set %qnick $nick 
    msg $nick ( Please Wait For $me to Accept/Decline your query ) 
    close -m $nick 
    dialog -ma qc qc 
    did -a qc 7 $nick 
    did -a qc 3 $1- 
  } 
}