Untitled

on *:open:?:*:{ 
  if (%QueryName = on) { 
    set %QueryName.nick $nick 
    set %QueryName.message $1-  
    msg $nick 0,1«9«14«90 Hello9 $nick $+ 0.  Thank you for messaging me. 14»9»0»
    msg $nick 0,1«9«14«90 You are currently PM number9 $query(0) $+ 0. 14»9»0»
    msg $nick 0,1«9«14«90 If I'm available, I will accept your PM. 14»9»0»
    /dialog -m QueryName QueryName 
  } 
} 

dialog QueryName { 
  title "Query Title" 
  size 150 150 150 100 
  option dbu 

  text "", 1, 5 5 140 10 

  box "Message:", 2, 5 15 140 60 

  edit "", 3, 10 25 130 45, multi read 

  button "Accept", 4, 5 80 25 15, 
  button "Denied", 5, 35 80 25 15, 
  button "Cancel", 6, 120 80 25 15, cancel 

} 
on *:dialog:QueryName:sclick:4:{ 
  msg %QueryName.nick 0,1«9«14«90 Your PM has been 9ACCEPTED0. 14»9»0»
  dialog -c QueryName QueryName 
} 
on *:dialog:QueryName:sclick:5:{ 
  close -m %QueryName.nick | msg %QueryName.nick 0,1«9«14«90 Your PM has been 4DENIED0. 14»9»0» 
  dialog -c QueryName QueryName 
} 
on *:dialog:QueryName:init:0:{ 
  did -ra QueryName 1 Incoming pm from: %QueryName.nick 
  did -ra QueryName 3 %QueryName.message 
} 
on *:dialog:QueryName:close:0:{ 
  unset %QueryName.message 
  unset %QueryName.nick 
  /dialog -c QueryName QueryName 
} 
menu menubar,channel,status { 
  QueryName On/Off: 
  .Turn On:set %QueryName on 
  .Turn Off:set %QueryName off
}