lias aaway {
  set %Awayreason $1-
  set %Awaytime $ctime
  set %Away 1
  set %lefttime $time
  away %awayreason
  amsg 12I Am Away12: %Awayreason 12 $+ $chr(149) I12 Left12 At: $asctime(HH12:01nn12:01ss12)
}

alias bback {
  away
  amsg 12I Am Back12: %Awayreason 12 $+ $chr(149) I12 Was Gone12 For: $duration($calc($ctime - %Awaytime)) $+ 12
  unset %Awayreason
  unset %Awaytime
  unset %lefttime
  unset %Away
  unset %OneTR*
}

on *:text:*:#: {
  if (%Away == 1) && (%OneTR [ $+ [ $nick ] ] != On) && ((Cal isin $1-) || (Brap isin $1-)) {
    set %OneTR [ $+ [ $nick ] ] On
    notice $nick 12Away: %Awayreason 12 $+ $chr(149) I12 Have Been Away12 For: $duration($calc($ctime - %Awaytime)) $+ 12.
  }
}