On me:*:JOIN:#: {
  set -u10 %active [ $+ [ $me ] ] [ $+ [ $chan ] ] on
  timeractive $+ $me $+ $chan 0 5 activesjekk $me $chan 
}

On $*:TEXT:/^[@!.]/Si:#: {
  set -u10 %active [ $+ [ $me ] ] [ $+ [ $chan ] ] on
}
Alias activesjekk {
  if (%active [ $+ [ $1 ] ] [ $+ [ $2 ] ] == on) {
    halt
  }
  elseif (%active [ $+ [ $1 ] ] [ $+ [ $2 ] ] == $null) { 
    part $2 14No activity in 1 hour, parting...
    timeractive $+ $me $+ $2 off
    halt
  }
}