Here Keon191:

on *:text:*:#:{
  if (brb isin $1-) || (afk isin $1-) || (g2g isin $1-) || (bbl isin $1-) {
    if (%away [ $+ [ $nick ] ] == $null) { 
      set %away [ $+ [ $nick ] ] $2- 
      if (%away [ $+ [ $nick ] ] == $null) { set %away [ $+ [ $nick ] ] n/a } 
      msg $chan [ Away Status ] [ $nick is now: Away ] [ Reason: %away [ $+ [ $nick ] ] ] 
      set %away.time. $+ $nick $ctime 
    } 
  }
}
on *:TEXT:*back*:#:{ 
  if (%away [ $+ [ $nick ] ] != $null) { 
    msg $chan [ Away Status ] [ $nick is now back! ][ Reason for being afk: %away [ $+ [ $nick ] ]  ]  [ Time Away: $duration($calc($ctime - %away.time. [ $+ [ $nick ] ] )) ] 
    unset %away.time. $+ $nick $ctime 
    unset %away [ $+ [ $nick ] ] 
  } 
}