rendered paste body;
; 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:::
}
}