this is a simple query blocker made it by me :p if you find any bugz please comment thanks :)
dialog QA {
title "Query Acceptor"
size -1 -1 274 188
option pixels
edit %a`nick, 2, 59 78 204 20, read multi return autohs
text "Nickname:", 3, 8 78 50 16
text "Message :", 4, 8 100 50 16
edit %a`mess, 5, 59 98 205 20, read multi return autohs
button "Accept", 6, 16 142 82 36
button "Decline", 1, 182 142 84 36
box "Ctcps", 7, 8 0 144 52
button "Ping", 8, 16 14 60 16
button "version", 9, 16 32 60 16
button "time", 10, 84 14 50 16
button "finger", 11, 84 32 50 16
button "Cancel", 13, 112 152 56 20
text "Network :", 12, 10 120 50 16
edit %a`net, 14, 59 118 204 21, read
text "Simple query acceptor made it by charltonj", 15, 175 6 95 47, center
text "Address :", 16, 10 57 50 16
edit %a`ip, 17, 59 55 204 21, read
}
on *:OPEN:?: {
if (%qacc == on) { /msg $nick Sorry $Nick $+ , im busy with another person, please try again later }
else {
set %qacc on
set %a`nick $nick
set %a`ip $address(%a`nick,1)
set %a`mess $1-
set %a`net $network
close -m $nick
.msg $nick Please wait, till i decide. (Accept or Decline)
dialog -md qa qa
}
}
on *:dialog:qa:sclick:*: {
if ($did == 8) { ctcp %a`nick ping }
if ($did == 9) { ctcp %a`nick version }
if ($did == 10) { ctcp %a`nick time }
if ($did == 11) { ctcp %a`nick finger }
if ($did == 6) { query %a`nick | .msg %a`nick Your Query have been Accepted. | dialog -c qa qa | unset %a`* | set %qacc off }
if ($did == 1) { .msg %a`nick Sorry, your query have been Declined. | unset %a`* | dialog -c qa qa | set %qacc off }
}
nice thing :)
but no need for / here
if ($did == 6) { query %a`nick | /msg %a`nick Your Query have been Accepted. | /dialog -c qa qa | unset %a`* | /set %qacc off }
and other places
if ($did == 6) { query %a`nick | .msg %a`nick Your Query have been Accepted. | dialog -c qa qa | unset %a`* | set %qacc off }
use . in front of msg to hide msg event