This is a simple popup private (query) message blocker. Load into remotes.
alias pbokd { dialog -m pbok pbok }
dialog pbok {
title "PVT Blocker by Vlada"
size -1 -1 267 62
option dbu
text "Incomming message", 1, 99 2 49 8
edit %pbnick, 2, 69 11 130 10, read
text "From:", 3, 52 12 17 8
text "Message:", 4, 3 25 25 8
edit %pbmsg, 5, 28 24 234 18, read
button "Accept", 6, 65 49 38 10, flat ok
button "Deny", 7, 145 49 38 10, flat ok
}
on ^*:OPEN:?: {
if (%pb == yes) && ($away == $true) {
query %pbnick
msg $nick -[Auto Messages]- I`m sorry, but I am AFK now. Please try later!
close -m $nick
}
if (%pb == yes) && ($away != $true) {
set %pbnick $nick
query %pbnick
set %pbmsg $1-
msg %pbnick * Hello %pbnick *
msg %pbnick * Your query is being considered. Please wait. *
msg %pbnick * PVT Blocker by Vlada *
pbokd
}
}
On *:dialog:pbok:sclick:6:{
msg %pbnick -[AutoMessage]- Your query is accepted!
query %pbnick
dialog -c pbok
}
On *:dialog:pbok:sclick:7:{
msg %pbnick -[AutoMessage]- Your query is denied! Please try again later!
ignore -pu120 %pbnick
close -m %pbnick
dialog -c pbok
}
menu menubar,channel,status {
PVT Blocker
.ON:set %pb yes | echo -a PVT Blocker is ON
.OFF:set %pb no | echo -a PVT Blocker is OFF
}