Mine

on *:TEXT:!away*:#: {
  if (%away. [ $+ [ $nick ] $+ .nick ] == $null) { 
    set %away. $+ $nick $+ .nick $nick
    set %away. $+ $nick $+ .reason $2-
    set %away. $+ $nick $+ .time $ctime
    set %away. $+ $nick $+ .away Away
    msg $chan %away. [ $+ [ $nick ] $+ ] .nick has gone away: %away. [ $+ [ $nick ] $+ .reason ]  ( $+ $time $+ )
    halt
  }
  if (%away. [ $+ [ $nick ] $+ ] .away == Away) {
    msg $chan %away. [ $+ [ $nick ] $+ .nick ] has returned: %away. [ $+ [ $nick ] $+ .reason ] ( $+ $duration($calc($ctime - %away. [ $+ [ $nick ] $+ .time ] )) $+ )    
    timerA1 0 2 /unset %away. $+ $nick $+ .nick
    timerA2 0 2 /unset %away. $+ $nick $+ .reason
    timerA3 0 2 /unset %away. $+ $nick $+ .time
    timerA4 0 2 /unset %away. $+ $nick $+ .away
    halt
  }
}
on *:TEXT:*:#: {
  if ($findtok($1-,%away. $+ $nick $+ .nick,1,32) != $null) {
    /notice $nick %away. $+ [ $nick $+ .nick ] is away: %away. [ $+ [ $nick ] $+ .reason ] ( $+ $duration($calc($ctime - %away. [ $+ [ $nick ] $+ .time ] )) $+ )
  }
}