Mine

on *:TEXT:!away*:#:{ if ($address($nick,2) == $address($me,2)) { 
    set %gonne on
    set %away $2- 
    set %time $ctime 
    /amsg $nick 11,1 is now away.  Reason: 11,1 $2- 
    /timer2000 50 600 /amsg 11,1 pk blooder is awayto $2- ( automessage every 10 mins )
  } 
} 

on *:TEXT:!back:#:{ if ($address($nick,2) == $address($me,2)) {
    /amsg 11,1 $nick is now back from 4,1 %away $+ . 11,1 Time gone: 10,1 $duration($calc($ctime - %time))
    set %gonne off
    clear %away 
    clear %time
    /timer2000 off
  } 
}