:)

on *:text:!away*:#:{ 
  set %away $2- 
set %ctime $ctime 
  Msg $chan $nick  is now  -away- -reson-  %away 
} 
on *:text:!back*:#:{ 
  unset %ctime 
  Msg $chan $nick  is now  -back- -reson was away- %away - Away for $duration($calc($ctime - %ctime)) 
}