ON *:TEXT:!away*:#:{ 
  if (hitpoint isin $nick) { 
    %hpaway =  $2-  
    msg $chan Hitpoint has been marked as Away:  $2-   
  set %hpawaycounter $ctime } 
} 

ON *:TEXT:!back:#:{ 
  if (hitpoint isin $nick) { 
    msg $chan Hitpoint has been marked as Back from: $ord($($+(%hpaway),2)) - Duration: $duration($calc($ctime - %hpawaycounter)) 
  %hpaway = Void.  } 
}