away/back

on *:input:#: {
  if ($1 == ~Away ) {
    /set %awayreason $2-
    /set %time $fulldate
    /amsg 7I am now away. Reason:4 %awayreason $+ 7.
    /nick [-Capo-][-Away-]
    /away %awayreason
  }
}

on *:input:#: { 
  if ($1 == ~Back) {
    /amsg 7I am back from:4 %awayreason - $+ 7. I was gone for $duration($calc(($ctime - $ctime(%time))))
    /nick [-Capo-]
    /away
    /unset %awayreason
    /unset %time
  }
}