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  4,1 ¤1,4 * 4,1 ! 1,4 ~4,1 «»Away«» 4,1 Reason:0,1 %reason $+ . 4,1Left At:0,1 %away.time $+ 14,1 «»Away«»  1,4 ~ 4,14,1 ! 1,4 *4,1 ¤
}

alias back {

  set %away.able off

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


  /unset %away.*

  /unset %back.

} 
4,1 ¤1,4 * 4,1 ! 1,4 ~4,1 «»«»Away«»«»  «»«»Reason: %reason $+ 4,1Gone For: $duration($calc($ctime - %away.ctime)) «»«»Away«»«»  1,4 ~ 4,14,1 ! 1,4 *4,1 ¤