Mine

on *:OPEN:?: { 
  who $nick 
  if ($read(qignore.txt, w,$address($query($active),2))) { 
    msg $nick $c1(Your Query Has Been Ignored!) 
    close -m $nick 
  } 
  elseif (%.away. [ $+ [ $network ] ]) { 
    msg $nick $c1(Sorry) $+($c2($nick),$c1(,)) $c1(Iam currently Away!) $c2(%.1-. [ $+ [ $network ] ]) $c1(Please try again later!) 
  } 
  else { 
    msg $nick $c1(Waiting for Query Acceptance/Decline) $c2(This may take a moment!) 
  } 
} 
alias accept { msg $active $c1(Query Accepted!) | set %query. [ $+ [ $address($query($active),2) ] ] On } 
alias decline { msg $active $c1(Query Declined!) $c1(You have been added to Auto Query Ignore Under Host) $c2($query($active).address) 
  write qignore.txt write $address($query($active),2)) | close -m $active 
} 
alias unignore { $($+(-ds,$chr(32),$address($query($active),2)) qignore.txt | msg $1 $c1(You have been Unignored!) }
alias -l c1 { return $+($chr(3),06,$1-) } 
alias -l c2 { return $+($chr(3),4,$1-) }