Untitled

dialog Query { 
  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:Query:sclick:1:{ 
  .msg %q.nick 3[3 Query Accepted.3] 
  dialog -x Query | query %q.nick | echo %q.nick %q.ts %q.nick -> %q.msg 
  unset %q.* 
} 
on *:DIALOG:Query:sclick:2:{ 
  .msg %q.nick 4[4 Query Declined.4] 
  dialog -x Query 
  unset %q.* 
} 
on ^*:open:?:*:{ 
  if (%qb == on) && (-*BNC !iswm $nick) { 
    if ($dialog(Query)) { x $nick | halt } 
    set %q.nick $nick | set %q.msg $1- | set %q.ts $timestamp 
    .msg $nick 2[2 Please hold on while I Accept/Decline your query 2] 
    dialog -ma Query Query | did -a Query 7 %q.nick 
    did -a Query 3 %q.msg | halt 
  } 
} 
alias -l x { .msg $1 Please Wait..... | .timer 1 .5 close -m $1 } 
menu channel,query,nicklist { 
  $iif(%qb == on,$style(1)) Query Blocker: $iif(%qb == on,set %qb off,set %qb on) 
}