on *:open:?:*: {
  msg $nick I have $query(0) $iif($query(0) == 1,query,queries) open. $iif($numtok(%unanswered,32) == 0,None,$numtok(%unanswered,32)) being before you.
  msg $nick I see you in $iif($comchans($nick),$comchans($nick),no channels) $+ . I have been idle for $duration($idle) $+ . Please idle !@#%*! and i'll get back to you asap.
  set %unanswered %unanswered $nick
}
on *:active:?: {
  if ($active isin %unanswered) {
    if (!$remove(%unanswered,$active)) { unset %unanswered }
    else { set %unanswered $remove(%unanswered,$active) }
  }
}
on *:start: unset %unanswered
alias comchans { var %a 1 | while ($comchan($1,%a)) { var %chans = %chans $comchan($1,%a) | inc %a } | return %chans }