alias afk {
  set %reason $1-
  set %awayctime $ctime
  /away %reason 
  /nick <nick>
  amsg 15 I'm now afk  14» 4 %reason 14 « 15 Left at 4 $time
}
alias bak {
  /back
  /nick <awaynick>
  amsg 15 I'm now back from : 14» 4 %reason 14« 15 gone for 4 $duration($calc($ctime - %awayctime))
  unset %reason
}