alias away {

  set %time $ctime

  set %away $+ .nick $nick

  set %away.time $time

  set %away.ctime $ctime

  set %away.able on

  set %reason $iif($1,$1-)

  amsg   «»Away«»  Reason:0,1 %reason $+ . 4,1Left At:0,1 %away.time $+ 14,1 «»Away«» 
}

alias back {

  set %away.able off

  /amsg «»Back«»  4,1From:0,1 %reason $+ . 4,1Gone For:0,1 $duration($calc($ctime - %away.ctime)) 14,1 «»Back«»

  /unset %away.*

  /unset %back.

}