;-------------------------------------------
;|          Query Acceptor            |
;|            Coded by TrusTkill            |
;|  With this little snippet you are      |
;|  able to Decline unwanted pmsg.        |
;|  and accept only the ones you want.    |
;|  Can be used as a spam protection too. |
;|  If you decline you can costumize      |
;|  the ignore time (in seconds).        |

;-------------------------------------------




dialog control {
  title "Query Acceptor"
  size -1 -1 151 76
  option dbu
  box "New private message arrived!", 1, 4 1 144 73
  edit "", 2, 6 30 138 10, disable
  text "From:", 3, 10 10 15 10
  edit "", 4, 28 10 110 10, disable
  button "Accept", 5, 44 44 22 12
  button "Decline", 6, 76 44 22 12
  text "saying :", 7, 60 21 25 8
  text "In case of Declined ignore user for :", 8, 8 60 90 8
  edit "", 9, 100 59 19 10
  text "seconds.", 10, 122 60 23 8
  button "Button", 11, 103 47 37 12, hide ok
}

on *:dialog:control:edit:9:{ %ignoretime = $did(9).text }

on *:DIALOG:control:sclick:5:{
  window -w %qcnick
  msg %qcnick PM Accepted.
  dialog -x control
  window -a %qcnick
  unset %qcnick
}

on *:DIALOG:control:sclick:6:{
  .msg %qcnick PM Declined . You have been ignored for $+ %ignoretime seconds
  close -m %qcnick
  dialog -x control
  ignore -u $+ %ignoretime %qcnick

  unset %qcnick
}

ON *:OPEN:?: {
  set %qcnick $nick
  window -h %qcnick
  .msg %qcnick Your query is waiting approval. 
  dialog -m control control
  did -a control 2 $1-
  did -a control 4 %qcnick
}



;)