Miscellany

dialog pm {
  title "PM Request"
  size -1 -1 216 221
  option pixels
  edit "", 1, 17 36 180 20
  edit "", 2, 17 72 180 108, read multi vsbar
  text "PM from:", 3, 17 19 45 15
  text "Message:", 4, 17 56 50 15
  button "Accept", 5, 38 184 59 20,
  button "Decline", 6, 107 184 59 20, ok
  box "", 7, 7 2 201 212
}
on *:OPEN:?:{
  .dialog -mod pm pm pm
  .did -a pm 2 $1-
  .did -a pm 1 $nick
  .msg $nick Your message has been sent to $me $+ . Please wait while I choose to decline or accept this message
  .close -m $nick
}
on *:dialog:pm:sclick:5:{
  .query $did(pm,1).text
  .msg $did(pm,1).text Your PM request was accepted 
  .dialog -x pm
}
on *:dialog:pm:sclick:6:{
  .msg $did(pm,1).text  This PM was declined 
 
  .dialog -x pm pm
}