on $*:TEXT:/^[!@.]away/Si:#: {
  if  ($address($nick,2) == $address($me,2))  {
    set %reasonaway $2-
    set %timeleft $ctime
    set %timeleft1 $time
    /amsg I am now away (14Away Reason: $2- $+ ) (7Time left: $time $+ )
  }
}


on $*:TEXT:/^[!@.]back/Si:#: {
  if  ($address($nick,2) == $address($me,2))  {
    /amsg I am now back (7Away Reason: %reasonaway $+ ) (14Gone for: $duration($calc($ctime - %timeleft) ) (7Left at: %timeleft1 $+ )
  }
}