on *:join:#:{ .set $+(%,.,time,.,$nick) $remove($time,min,s,day,ec,$chr(32)) $nick | .timer 1 5 .unset $+(%,.,time,.,$nick) }
on *:quit:{
  if $($+(%,.,time,.,$nick),2) !== $null {
    .set %time $remove($time,min,s,day,ec,$chr(32))
    if $calc($duration(%time) - $duration($gettok($($+(%,.,time,.,$nick),2),1,32))) < 4 {
      whowas $gettok($($+(%,.,time,.,$nick),2),2,32)
      .unset $+(%,.,time,.,$nick)
    }
    else {
      .unset $+(%,.,time,.,$nick)
    }
  }
}
raw 314:*:{
  gzline *@ $+ $4 Bye
}