dialog pm { 
  title "PM Controler. By: Rune4234" 
  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 Pm", 1, 5 34 37 12, flat 
  button "Decline Pm", 2, 44 34 37 12, flat 
  box "Query Control", 4, 1 1 138 49 
} 
on *:dialog:pm:sclick:1:{ 
  window -w %pmnick 
  msg %pmnick Your PM has been accepted.
  dialog -x pm 
  window -a %pmnick 
  unset %pmnick 
} 
on *:dialog:pm:sclick:2:{ 
  close -m %pmnick 
  msg %pmnick Your PM has been declined.
  dialog -x pm 
  unset %pmnick 
} 
on *:OPEN:?: { 
  if (%query.blocker) { 
    if ($dialog(pm)) { halt } 
    else { 
      %pmnick = $nick 
      window -h %pmnick 
      msg %pmnick Please Wait a moment for me to Accept/Decline your PM. 
      dialog -m pm pm 
      did -a pm 7 %pmnick 
      did -a pm 3 $1- 
    } 
  } 
} 
menu * { 
  PM Controler 
  . $+ $iif(%query.blocker,Off,On) $+ : $iif(%query.blocker,unset %query.blocker,set %query.blocker on)) 
}