;-------------------------------------------
;| 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
}
;)