QueryGuard

#query off
on *:open:?: {
if ($group(#query) == on) {
.inc -u15 %qf. [ $+ [ $nick ] ] 1
if (%qf. [ $+ [ $nick ] ] = 1) { .msg $nick $timestamp Hi $nick $+ . Your msg is being filtered. I'll get to you asap. (autoreply) }
if (%qf. [ $+ [ $nick ] ] = 2) { .msg $nick $timestamp Hi $nick $+ . I'm using a secured query guard. I'll get back to u as soon as possible (autoreply) }
if (%qf. [ $+ [ $nick ] ] = 3) { .msg $nick $timestamp Hi $nick $+ . Message recieved. I'll Get back to you as soon as possible. (autoreply) }
if (%qf. [ $+ [ $nick ] ] >= 4) { .msg $nick Be patient, I said I'll get back to you soon! You are IGNORED for 60secs $vers | .ignore -pnu60 *!*@ $+ $site | echo -a $tag 4SYSTEM IGNORED $nick $+(*!*@,$site) }
if (!$window(@msg)) { .window -enkHl12 @msg Arial 11 }
.close -m $nick
echo @msg $timestamp <4 $+ $nick $+ > $1-
$iif($fline(@msg,$nick,*,1) == 0,.aline -l 4 @msg $nick)
$iif($active != @msg,.echo $color(notice) -a $t Incoming Chat Request (6 $+ $nick $+ ),return)
}
}
menu @msg {
dclick:/.query $sline(@msg,1)
whois:/w $sline(@msg,1)
query:/q $sline(@msg,1)
uwho:/uwho $sline(@msg,1)
-
close:window -c @msg
}
#query end
menu status,channel,menubar {
Query Guard
.$iif($group(#query) == on,$style(1)) Enable:$iif($group(#query) == off,.enable #query)
.$iif($group(#query) == off,$style(1)) Disable:$iif($group(#query) == on,.disable #query)

}