; ––––––––––––––––––––––––––––––––––––––––––––––––
; QueryScript v1.0
; © 2002-2006 by fiRe
; Remember - ripping is lame
; Visit www.nnscript.de & #nnscript
; ––––––––––––––––––––––––––––––––––––––––––––––––



on *:load:{
  set %mailaddy $input(Please enter your e-mail address,129)
  echo -a ו•••••••••••••••••••••••••••••••••• ••••• ••• •• •• •• •  •
  echo -a QueryScript v2.0
  echo -a © 2002-2006 by fiRe
  echo -a Visit www.nnscript.de & #nnscript
  echo -a ו•••••••••••••••••••••••••••••••••• ••••• ••• •• •• •• •  •
}
alias awaytime { return $+($remove($shortdur($calc($ctime - %away.set. [ $+ [ $cid ] ] )).nosec,$chr(32))) }
on *:open:?:*:{
  inc %querynumber
  if (!$istok(-psybnc o l q f,$nick,32)) {
    if (!$away) { msg $nick 11::: I am not away. My idle time: 8( $+ $duration($idle) $+ 8). Please wait a few minutes or write me a mail to: 8( $+  $+ %mailaddy $+  $+ 8). Thank you. 11::: }
    else { msg $nick 11::: I am away, reason: 8( $+ $awaymsg $+ 8) $+ . Since: 8( $+ $duration($awaytime) $+ 8). Your message will be logged. You can write me a mail to: 8( $+  $+ $iif(%mailaddy,%mailaddy,$emailaddr) $+  $+ 8). 11::: }
    msg $nick 11::: Active Queries: 8( $+ $query(0) $+ 8) $+ . Queries since $asctime(%install.time,dd.mm.yyyy) $+ :  8( $+ %querynumber $+ 8) $+ . Queries per day 8( $+ $round($calc(%querynumber /(($ctime -%install.time)/86400)),1) $+ 8) 11:::
  }
}