Here's a pretty simple Query Blocker.
This script can keep query nick, show msg and nick number on active window.
For reply please try /pm nick-number
ex. /pm 1

on *:open:?:{
  if (www. isin $1-) || (tp:// isin $1-) || ($chr(35) isin $1-) || (decode isin $1-) || (irc. isin $1-) { .ignore -u30 $mask($fulladdress,2) | goto end }
  .inc -u20 %reply. [ $+ [ $mask($fulladdress,2) ] ] 1 
  if (%reply. [ $+ [ $mask($fulladdress,2) ] ] == 1) { .privmsg $nick Sorry! I am too busy at the moment, please try again in a few minutes. ( automsg ) }
  if ($nick isin %priv.wait) { 
    %num = 1
    while (%num <= $numtok(%priv.wait,32)) { if ($gettok(%priv.wait,%num,32) == $nick) { set -u3 %priv. [ $+ [ $nick ] ] pm %num } | .inc %num 1 }
  }
  elseif ($nick !isin %priv.wait) { %priv.wait = $iif(%priv.wait != $null,%priv.wait) $nick | .set -u3 %priv. [ $+ [ $nick ] ] pm $numtok(%priv.wait,32) }
  .echo $color(highlight) -a Incoming ( $+ $color(whois) / $+ %priv. [ $+ [ $nick ] ]   $+ $color(highlight) $+ ) $nick $+  $mask($fulladdress,5) ::: $1-
  :end
  .closemsg $nick
}
alias pm { .query $gettok(%priv.wait,$1,32) | .echo $color(own) -a $active ( Query ) }
on *:exit:{ unset %priv.wait }