on *:CONNECT: { .timerCHECK 0 60 checkchan }
on *:JOIN:#Chan1: { set %joined_ [ $+ [ $nick ] ] $asctime(mmm dd hh:nn:sstt yyyy) | checkchan }
on *:PART:#Chan1: { if (%joined_ [ $+ [ $nick ] ]) unset %joined_ [ $+ [ $nick ] ] }
on *:KICK:#Chan1: { if (%joined_ [ $+ [ $knick ] ]) unset %joined_ [ $+ [ $knick ] ] }
on *:QUIT: { if (%joined_ [ $+ [ $nick ] ]) unset %joined_ [ $+ [ $nick ] ] }
alias checkchan { 
  var %i 1
  while (%i <= $nick(#Chan1,0)) {
    if ($nick(#Chan1,%i) isreg #Chan1) { msg #Chan2 Nick: $nick(#Chan1,%i) ( $+ $address($nick(#Chan1,%i),5) $+ ) Time: $duration($calc($ctime - $ctime(%joined_ [ $+ [ $nick(#Chan1,%i) ] ]))) }
    inc %i
  }
  if (%i > $nick($chan,0)) { halt }
}