on *:text:!away*:#:{ 
  set %away $2- 
  set %ctime $ctime 
  msg $chan [AWAY] $nick  is now Away... Reason:  %away 
} 
on *:text:!back*:#:{ 
  unset %ctime 
  msg $chan [BACK] $nick  is now Back... from: %away  
}