on ^1:OPEN:?:*: {
set -u120 %nick $nick
set -u120 %message $1-
msg $nick Please standby for confirmation, I am using a secure query event.
dialog -dm query.block query.block
did -a query.block 7 %nick
did -a query.block 4 %message
haltdef
}
dialog query.block {
title "MaGoOsCuRo's Query Blocker"
size -1 -1 131 156
option dbu
text "Nickname:", 1, 5 11 26 8
box "MaGoOsCuRo's Query Blocker.", 2, 2 1 127 153
text "Message:", 3, 6 45 25 8
edit "", 4, 4 58 118 45
edit "", 7, 4 23 118 10
button "Accept", 5, 7 119 37 12, ok
button "Decline", 6, 86 119 37 12, ok
button "Close", 8, 6 140 119 9, cancel
}
on 1:DIALOG:query.block:sclick:5: {
query %nick
.msg %nick I have accepted your request %nick $+ , what did you want?
echo %nick :: $me :: I have accepted your request %nick $+ , what did you want?
echo %nick :: %nick :: %message
dialog -x query.block query.block
}
on 1:DIALOG:query.block:sclick:6: {
msg %nick Sorry %nick $+ , I am not accepting any pm's at this time. Please try again later.
ignore -u60 %nick $+ !*@*
dialog -x query.block query.block
}
on 1:DIALOG:query.block:sclick:8: {
dialog -x query.block query.block
}