Mine

on *:TEXT:!away*:#: {
  if (%away. [ $+ [ $nick ] $+ ] .away == $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)) $+ )    
    set %away. $+ $nick $+ .nick $null
    set %away. $+ $nick $+ .reason $null
    set %away. $+ $nick $+ .time $null
    set %away. $+ $nick $+ .away $null  
    halt
  }
}
on *:TEXT:!return:#: {
  if (%away. [ $+ [ $nick ] $+ ] .away == Away) {
    set %away. $+ $nick $+ .nick $null
    set %away. $+ $nick $+ .reason $null
    set %away. $+ $nick $+ .time $null
    set %away. $+ $nick $+ .away Here   
  }
}
on *:TEXT:!back:#: {
  if (%away. [ $+ [ $nick ] $+ ] .away == Away) {
    set %away. $+ $nick $+ .nick $null
    set %away. $+ $nick $+ .reason $null
    set %away. $+ $nick $+ .time $null
    set %away. $+ $nick $+ .away Here   
  }
}
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)) $+ )
  }
}