Mine

on *:text:*:?: {
  if ($regex($1-,/(ban|voice)/Si)) && (!$timer($nick)) && (!$($+(%,query.,$nick),2)) {
    msg $nick [AutoMsg] Dont message me about bans or voice - this message will be ignored.
    .timer $+ $nick 1 20 qr $nick $1-
  }
}
alias -l qr {
  if (!$window(@Queries)) window -n @Queries
  aline -a @Queries $asctime([dd-mm][HH:nn:ss]) $+(<,$1,>) $2-
  close -m $1
}
on *:input:?: {
  set $+(%,query.,$target) y
  if ($timer($target)) .timer $+ $target off
}
on *:close:?:if ($($+(%,query.,$nick),2)) unset $+(%,query.,$nick)