on *:TEXT:.away*:*:{
set %ctime $ctime
/amsg $nick is now away: $2- $+ .
}

on *:TEXT:.back*:*:{
/amsg $nick is now back. Away for duration($calc($ctime - %ctime)) $+ .
unset %ctime
}