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