on *:TEXT:!away*:#:{ 
  if (!$2) { 
    notice $nick You must specify a reason for being away 
  } 
  else {    
    set %away.reason. [ $+ [ $nick ] ] $2- 
    set %away.time. [ $+ [ $nick ] ] $ctime 
    msg $chan $nick is now away. Reason: $2- 
  } 
} 
on *:TEXT:!back:#: {  
  if (!%away.reason. [ $+ [ $nick ] ]) { halt } 
  else { 
    msg $chan $nick is now back from %away.reason. [ $+ [ $nick ] ] $+ . Time gone: $duration($calc($ctime - %away.time. [ $+ [ $nick ] ] )) 
    unset %away.*. [ $+ [ $nick ] ] 
  } 
}