Miscellany

on *:OPEN:?: {
  who $nick
  if ($read(qignore.txt, w,$query($active).address)) {
    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. [ $+ [ $query($active).address) ] ] On }
alias decline {
msg $active $c1(Query Declined! You have been added to Auto Query Ignore Under Host) $c2($query($active).address) 
write qignore.txt $query($active).address | close -m $active }
alias unignore { set %qnick $nick | whois $nick 
write $+(-ds,$query($active).address) 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-) }
 
raw 311:*: { if ($2 == %qnick) set %host $+(*!*@,$4) | write $+(-ds,%host) qignore.txt }