Something

alias a {
  if (%away.isaway = on) {
    away
    if (%a.awayname != %a.defaultname) {
      nick %a.defaultname
    }
    ame has returned:1 %away.reason 
    set %away.isaway off
    unset %away.reason
    unset %away.time
  }
  else {
    if ($1 == $null) {
      set %away.reason Gone!
    }
    else {
      set %away.reason $1-
    }
    ;set %away.time $time
    if (%a.awayname != %a.defaultname) {
      nick %a.awayname
    }
    set %away.isaway on
    ame is now away:1 %away.reason 
    away %away.reason
  }
}

alias a.setopt {
  if ($1 = defaults) {
    set %a.defaultname devlin
    set %a.awayname devlin
    set %a.returnoninput off
    set %a.noticeonhilight on
    echo Away options set to defaults:
    echo defaultname set to NICK
    echo awayname set to NICK
    echo returnoninput set to off
    echo noticeonhilight set to on
  }
  else {
    if ($1 = returnoninput) {
      if ($2 != on && $2 != off) {
        echo Second parameter must be "on" or "off"
      }
      else {
        set %a.returnoninput $2
        echo $1 set to $2
      }
    }
    if ($1 = noticeonhilight) {
      if ($2 != on && $2 != off) {
        echo Second parameter must be "on" or "off"
      }
      else {
        set %a.noticeonhilight $2
        echo $1 set to $2
      }
    }
    if ($1 = defaultname) {
      set %a.defaultname $2
      echo defaultname set to $2
    }
    if ($1 = awayname) {
      set %a.awayname $2
      echo awayname set to $2
    }
  }
}

ON *:TEXT:*$me*:#: {
  if (%away.isaway = on && %a.noticeonhilight = on) {
    notice $nick I am currently away: %away.reason
  }
}

ON *:INPUT:#: {
  if (%away.isaway = on && %a.returnoninput = on) {
    if ($1 != /a) {
      a
    }
  }
}