alias aw {
  if (%away.ticks) return
  set %away.ticks $ticks
  scid -at1 away  $+ $$1- $+ 
  if (!$window(@AwayLog)) window -k0a @AwayLog 0 0 750 400
  echo @AwayLog -
  echo @AwayLog 4Logging started at $time $date 
  dqwindow on
}

alias f7 bk

alias bk {
  if (!%away.ticks) return
  scid -at1 away
  if ($window(@AwayLog)) echo @AwayLog 4Logging finished at $time $date 
  unset %away.ticks
  dqwindow off
}

on *:TEXT:*SonicSam*:#: {
  var %gtfo = #services
  if ($istok(%gtfo,$chan,32) || (%away.f)) return
  if (%away.ticks) {
    if (!$window(@AwayLog)) window -k0a @AwayLog
    echo @AwayLog $+(,$network,$chr(32),»,$chr(32),$chan,) $timestamp $+(<,$nick,>) $1-
    notice $nick I r away: $awaymsg and have been for $duration($calc(($ticks - %away.ticks) / 1000))
  }
  set -u600 %away.f 1
}

on *:ACTION:*SonicSam*:#: {
  var %gtfo =  #services,#irpg
  if ($istok(%gtfo,$chan,32) || (%away.f)) return
  if (%away.ticks) {
    if (!$window(@AwayLog)) window -k0a @AwayLog
    echo @AwayLog $+(,$network,$chr(32),»,$chr(32),$chan,) $timestamp 6* $nick $1- 
    notice $nick I r away: $awaymsg and have been for $duration($calc(($ticks - %away.ticks) / 1000))
  }
  set -u600 %away.f 1
}

on *:CLOSE:@AwayLog: if (%away.ticks) bk