on *:OPEN:?:{
 set %target $nick
 msg $nick 4,1[14,1»15,1»0,1 Hello $nick you are currently trying to reach $me, your message has been logged and will be viewed shortly 15,1«14,1«4,1]
 msg $nick 4,1[14,1»15,1»0,1 $me currently has $query(0) $iif($query(0) == 1,query,queries) open.15,1«14,1«4,1]
 msg $nick 4,1[14,1»15,1»0,1 Please idle and support #afghan4life15,1«14,1«4,1]
/dialog -m tppm tppm
}

dialog tppm {
  title "Incoming Pm - Afghan Script"
  size 150 150 150 100
  option dbu

  text "", 8, 5 5 50 10
  text "", 1, 53 5 89 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, 32 80 25 15,
  button "Ignore", 7, 59 80 25 15,
  button "Cancel", 6, 120 80 25 15, cancel
}

on *:dialog:tppm:sclick:4: {
  msg %target Your PM has been accepted.
  unset %target
}
on *:dialog:tppm:sclick:5: {
  msg %target Your PM has been denied.
  close -m %target
  unset %target
}
on *:dialog:tppm:sclick:7: {
  msg %target Your PM is currently being ignored.
  close -m %target
  unset %target
}