Miscellany

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 8*0,8*7,8*8,7*4,7*8,4*5,4*4,5*1,5*0,1I Have accepted your query1,5*4,5*5,4*8,4*4,7*8,7*7,8*0,8*8,0*
  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 8*0,8*7,8*8,7*4,7*8,4*5,4*4,5*1,5*0,1Sorry I Have declined your query1,5*4,5*5,4*8,4*4,7*8,7*7,8*0,8*8,0*
  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 8*0,8*7,8*8,7*4,7*8,4*5,4*4,5*1,5*0,1Please Wait For Me to Accept/Decline your query1,5*4,5*5,4*8,4*4,7*8,7*7,8*0,8*8,0* 
    dialog -ma Query Query | did -a Query 7 %q.nick 
    did -a Query 3 %q.msg | halt 
  } 
} 
alias -l x { .msg $1 8*0,8*7,8*8,7*4,7*8,4*5,4*4,5*1,5*0,1Please Wait.... Thank you.1,5*4,5*5,4*8,4*4,7*8,7*7,8*0,8*8,0* | .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) 
}