on *:text:*Otto*:#: {
  if (%awayon == on) {
    notice $nick 14I am currently away Reason 7¤ %awayreason ¤ 14i left 7¤ $duration($calc($ctime - %awaytime)) ¤  14ago
  }
}
alias away { 
  /nick Ottoboy_12|away
  set %awaytime $ctime
  set %awayreason $1-
  set %awayon on
  amsg 14[7A14way14]7:14 I am now away Reason7 ¤ %awayreason ¤ 14i left at7 ¤ $asctime(HH:nn:ss) ¤
}

alias back { 
  /nick Ottoboy_12
  amsg 14[7B14ack14]7:14 I am now back from7 ¤ %awayreason ¤ 14gone for7 ¤ $duration($calc($ctime - %awaytime)) ¤
  unset %awaytime
  unset %awayreason
  set %awayon off
}

on *:text:*:?: { 
  if (%awayon == on) {
    msg $nick 14I am currently away Reason 7¤ %awayreason ¤ 14i left 7¤ $duration($calc($ctime - %awaytime)) ¤  14ago, please get back to me later.
  }
}