alias afk {
  set %afk on
  set %afk.message $1-
  set %afk.time $ctime
  echo Away on, reason: %afk.message $+ .
  nick Sl0|AFK
  amsg Now Away: [4 %afk.message $+  ] Time Is Now: [4 $time(hh:nn:ss) $+  ] (4GMT +12)
}

alias back {
  nick [Sl0hrn4r]
  amsg Back From: [4 %afk.message $+  ] Gone For: [4 $duration($calc($ctime - %afk.time)) $+  ] Time Is Now:   [4 $time(hh:nn:ss)  ] (4GMT +12)
  set %afk off
  unset %afk.message
  unset %afk.time
  echo Back from away, gone for $duration($calc($ctime - %afk.time)) $+ .
}