Miscellany

on *:input:#: {
  if ($1 == ~Away ) {
    /set %awayreason $2-
    /set %time $fulldate
    /scid -atM1 amsg 7I am now away. Reason:4 %awayreason $+ 7.
    msg #bot I am now away. Reason: %awayreason $+ .
    /scid -atM1 nick $me $+ [-Away-]
    /away %awayreason
  }
  elseif ($1 == ~Back) {
    /scid -atM1 amsg 7I am back from:4 %awayreason $+ 7. I was gone for4 $duration($calc(($ctime - $ctime(%time)))) $+ 7.
    msg #bot I am back from: %awayreason $+ . I was gone for $duration($calc(($ctime - $ctime(%time)))) $+ .
    /scid -atM1 nick [-Capo-]
    /away
    /unset %awayreason
    /unset %time
  }
}