Miscellany

dialog qc { 
  title "Query Controler" 
  size -1 -1 140 51 
  option dbu 
  edit "", 3, 4 10 132 10, read 
  text "From:", 5, 4 24 14 8 
  edit "", 7, 20 22 116 10, read 
  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:{ 
  window -w %qnick 
  msg %qnick  04 $me 12has 4accepted 12yer PM say it man . 
  dialog -x qc 
  window -a %qnick 
  unset %qnick 
} 
on *:dialog:qc:sclick:2:{ 
  close -m %qnick 
  msg %qnick 12 SOZ m84 $me 12has 7declined12 yer PM
  dialog -x qc 
  unset %qnick 
} 
on *:OPEN:?: { 
  if (%query.blocker) { 
    if ($dialog(qc)) { halt } 
    else { 
      %qnick = $nick 
      window -h %qnick 
      msg %qnick $ewe12 14 YO hold on for4 $me 12to Accept/Decline yer query. If yer PMing me for 4voice then close this window now and 4read the instructions.12 also if you pm me to ask 4how12 to get 4voiced close this12. 
      dialog -m qc qc 
      did -a qc 7 %qnick 
      did -a qc 3 $1- 
    } 
  } 
} 
alias ewrap { 
  var %msg 
  var %tok = 1 
  var %word 
  while ($gettok($1-,%tok,32) != $null) { 
    %word = $gettok($1-,%tok,32) 
    %msg = %msg $+ $upper($left(%word,1)) $+ $+ $right(%word,-1) 
    inc %tok 
  } 
  return ( $+ %msg $+ ) 
} 
menu * { 
  Query Controler 
  . $+ $iif(%query.blocker,Off,On) $+ : $iif(%query.blocker,unset %query.blocker,set %query.blocker on)) 
}