Something

on *:load:{
  set %mailaddy $input(Please enter your e-mail address,129)
}
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. Thank you. 11::: }
    else { msg $nick 11::: I am away, reason: 8( $+ $awaymsg $+ 8) $+ . Since: 8( $+ $duration($awaytime) $+ 8). Your message will not be logged. $+  $+ 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),1,0 querys not logged 11:::
  } 
}