Added some new features to it. It works great with this Query Control By SeiferAlmasy I changed it a bit to make it fit the script:
.
.
dialog qc {
title \"Query Control\"
size -1 -1 140 51
option dbu
edit \"\", 3, 4 10 132 10, read
text \"From:\", 5, 4 24 14 8
edit \"\", 7, 20 22 116 10, read
button \"Accept\", 1, 5 34 37 12, flat
button \"Decline\", 2, 44 34 37 12, flat
box \"Query Control\", 4, 1 1 138 49
}
on :dialog:qc:sclick:1:{
/window -w %qnick
/msg %qnick -Query Accepted- You may talk now. -Query Accepted-
/dialog -x qc
/window -a %qnick
/unset %qnick
}
on :dialog:qc:sclick:2:{
close -m %qnick
/msg %qnick -Query Declined- Go away you are not worth my time. -Query Declined-
/dialog -x qc
unset %qnick
}

On *:OPEN:?: {
if (!$away) {
if ($dialog(qc)) {
close -m $nick
}

else { 
  /set %qnick $nick 
  /window -h %qnick 
  /msg %qnick  -Please Wait- I am thinking if you are worth my time. -Please Wait- 
  /dialog -m qc qc 
  did -a qc 7 %qnick 
  did -a qc 3 $1- 
} 

}
}