Mine

menu Status,Channel,MenuBar,Query {
  $iif($group(#qc) == on,$style(1)Disable,$style(0)Enable) Query Control: {
    var %status = $iif($group(#qc) == on,Disable,Enable)
    $+(.,%status) #qc
    echo -a 4» Query Control has been $+(%status,d)
  }
}

dialog qc {
  title "Query Control"
  size -1 -1 130 47
  option dbu

  text "From:", 1, 4 7 25 10 center
  text "Time:", 2, 82 7 15 10 center
  edit "", 3, 97 6 28 10, read
  edit "", 4, 30 6 50 10, read
  text "Message:", 5, 4 19 25 10 left
  edit "", 6, 30 18 95 10, read
  box "", 7, 1 1 127 29

  button "Accept", 8, 4 32 20 10 ok
  button "Decline", 9, 25 32 20 10 ok
  button "Ignore", 10, 46 32 20 10 ok
  box "", 11, 1 27 68 17

  link "e-mail", 12, 75 34 15 8
  text "v1.5.4", 13, 95 35 18 8 left
  box "", 14, 70 27 58 17 
}

on *:dialog:qc:sclick:8:{
  window -w %qc.nick
  .msg %qc.nick $ewrap(Query Accepted. I am reading what you've already said.)
  dialog -x qc
  window -a %qc.nick
  unset %qc.nick
}
on *:dialog:qc:sclick:9:{
  .msg %qc.nick $ewrap(Private Message Declined. Sorry.)
  window -c %qc.nick
  unset %qc.nick
  dialog -x qc
}
on *:dialog:qc:sclick:10:{
  .msg %qc.nick $ewrap(Private Message Declined. You have been ignored.)
  window -c %qc.nick
  .ignore -pu1200 %qc.nick
  unset %qc.nick
  dialog -x qc
}
on *:dialog:qc:sclick:12:{
  url -na mailto:necro@gmail.com
}
#qc on
on *:START:{ echo -st 6» Script: Query Control script is loaded. }
on *:INPUT:?:{ 
  if ($nick != Kratos || *psyBNC !iswm $Nick) {

  }
}
on *:TEXT:*:?:{ 
  if ($nick != Kratos || *psyBNC !iswm $Nick) { 
    .timerclose.query. $+ $nick $+ .1 1 300 close -m $nick
    .timerclose.query. $+ $nick $+ .2 1 300 notice $nick $ewrap(The query window with you has been closed after 5 minutes of inactivity.)
  }
}
}
on *:OPEN:?:{ 
if ($away) {
  halt
}
elseif ($nick == Kratos || *psyBNC iswm $Nick) {
  halt
}
elseif ($dialog(qc)) {
  .msg $nick $ewrap(Sorry $nick $+ , but I am busy with another message. Please try again later. (15 second ignore))
  close -m $nick
  .ignore -pu15 $nick
}
else {
  set %qc.nick $nick
  window -h $nick
  .msg $nick $ewrap(Please Wait For PM Acceptance/Decline)
  dialog -mdo qc qc
  did -a qc 3 $asctime(hh:nn:ss)    
  did -a qc 4 $nick 
  did -a qc 6 $1-
}
}