Paste into remotes and type

/away
or
/back

on *:TEXT:*:#: {
  if ($me isin $1-) && (%away = ON) {
    if (%away.none) { msg $chan 14I am currently away: $+ 9 no reason given $+ 14 ... I have been gone for $+ 9 $duration($calc($ctime - %ctime))
    }
    else {
      msg $chan 14I am currently away: $+ 9 $hget(away,awayreason) $+ 14 ... I have been gone for $+ 9 $duration($calc($ctime - %ctime))
    }
  }
}
Alias away { 
  if (%away = OFF) {
    set %ctime $ctime
    set %away ON
    if ($1) { 
      amsg 14 I have just left: 9 $+ $1- $+ 14 Who knows when ill be back?
      hadd -m away awayreason $1-
    }
    else { 
      amsg 14 I have just left: 9 no reason given $+ 14... Who knows when ill be back?
      set %away.none
    }
  }
  else ( echo 14 You are already marked as away!!
}
Alias back {
  away
  if (%away = ON) {
    set %away OFF 
    if (%away.none) {
      amsg 14I am back from: 9 $+ no reason given $+ 14 I was gone for $+ 9 $duration($calc($ctime - %ctime))
    }
    else { 
      amsg 14I am back from: 9 $+ $hget(away,awayreason) $+ 14 I was gone for $+ 9 $duration($calc($ctime - %ctime))
      hdel  away awayreason
    }
    unset %ctime
  }
  else { 
    echo 14 You arent away!! 
  }
}
on *:LOAD: {
  set %away OFF
}