on *:TEXT:!away*:#: {
  if ($address($nick,2) = $address($me,2)) {
    set %away on
    set %reason $2-
    set %duration 0
  }
}

on *:TEXT:!back*:#: {
  if ($address($nick,2) = $address($me,2)) {
    set %away off
    unset %reason
    unset %duration
  }
}

on *:TEXT:KrYpTo*:#: {
  if (%away == on) { 
    /notice $nick I'm away • %reason • %duration
  }
}