just paste in remotes and type /away REASON

very simple, made in 2 minutes -.-

alias away2 {
  set %__time $ctime
  set %__time2 $time
  set %__rsn $iif($1,$1-,no reason)
  set %__nck $me
  nick %__nck $+ `away
  amsg $enick(AWAY: I am now away because:) $enick1(%__rsn) $+ , it is currently %__time2 $+ .
}
on *:text:$($+(*,$me,*)):*: notice $nick $enick(I'm currently away, I've been away for $duration($calc($ctime - %__time)) since %__time2)
on *:INPUT:*: {
  if (%__time) { 
    amsg $enick(Back: I was gone because:) $enick1(%__rsn) $+ , I've been away for $duration($calc($ctime - %__time)) since %__time2
    nick %__nck
    unset %__*
  }
}
alias enick { return $regsubex($1,/^(.)/,$+($chr(3),4,$chr(31),\t,$chr(3),14,$chr(31))) }
alias enick1 { return $regsubex($1-, /(?<=^| )(.)/g, $chr(3) $+ 04\t $+ $chr(3) $+ 14) }