James

ON *:OPEN:?:{
  msg $nick $c1(Please give me 60 seconds to accept this)
  msg $nick $c1(I have) $c2($query(0)) $c1(Open Querys) :: $c2($chan(0)) $c1(Open Channels)
  msg $nick $c1(Total accepted:) $c2($bytes(%a,b)) $c1(Total Declined:) $c2($bytes(%d,b))
  set %Query. $+ $nick $1-
  .timer $+ $nick $+ 1 1 60 imafk $nick
  .ignore -pu60 $nick
  .timer $+ $nick $+ 2 1 60 close -m $nick
}
Alias accept {
  inc %a
  .timer $+ $active $+ * off
  .ignore -r $nick 
  msg $active $c1(I have) $c2(accepted) $c1(your query)
  unset %Query. [ $+ [ $active ] ]
}
Alias decline {
  inc %d
  .timer $+ $active $+ * off
  .ignore -r $active 
  msg $active $c1(I have) $c2(declined) $c1(your query. I'm ignoring you for) $c2(2) $c1(min)
  .ignore -pu120 $active 
  unset %Query. [ $+ [ $active ] ]
  close -m $active
}
Alias imafk  {
  .timer $+ $active $+ * off
  msg $1 $c1(I am currently Away From the Keybord. Please try) $c2(agin) $c1(later...)
  inc %d
  close -m $1
}