on *:input:#: {
  if ($1 == ~Away ) {
    .set %away. $+ $address($nick,2) $ctime 
    /amsg 7I am now away. Reason:4 $2- $+ 7.
    /nick [-Capo-][-Away-]
  }
}
on *:input:#: {
  if ($1  == ~Back ) { 
    /amsg 7I am now back from 4(set ifmatch)7. I was gone for4 $duration($calc($ctime - $ifmatch)) $+ 7.
    /nick [-Capo-]
    unset %away. $+ $address($nick,2) 
  }
}