Easy Away Script. Works good. Next To come is a logger window.

on *:load: { beep 5 | echo -a You are now using Expert Away By EliteT0kr.  Usage: Pop-Up Menu Recommended, or you can use /imaway <reason>, and /back | set %AwayMode $true 
}
on *:unload: { beep 5 | unset %AwayMode | unset %Status | unset %awnick | unset% awticks | unset %AwayDef | unset %AwayDef2 | unset %AwayNick | unset %AwayNick2 | echo -a EliteT0kr's Away Script successfully unloaded. 
}
menu * {
  <-Expert-Away->
  .Main
  ..Away:imaway 
  ..Back:back
  .Customize
  ..Away Default
  ...Turn off Away Default:unset.AwayDef | set %AwayMode $true
  ...Add Away Default::awaydef | unset %AwayMode
  ..Custom Away Nick
  ...Set Away Nick:set %AwayNick $?="What Do you Want Your Away Nick To Be?" | echo -a Custom Away Nick Added : %AwayNick | set %AwayNick2 $true 
  ...Turn Off Away Nick: unset.AwayNick
  ..Auto Away
  ...Set Auto Away:set %AutoAway $?"Enter how much idle time (in minutes) you want it to be until you are set to away." | echo -a Auto Away timer added:  %AutoAway minute(s) | set %AutoAway $calc(%AutoAway * 60) | autoaway 
  ...Disable Auto Away:disable #AutoAway
  .About
  ..Script: echo -a Made by EliteT0kr, compiled on June 23, 2004 on 3:03 PM (Est) . Took 10 minutes to compile code.
  ..Learn To Script!:help
  ..Home Page:url -n www.hawkee.com
}
alias unset.Awaydef { 
  unset %AwayDef | unset %AwayDef2 | set %AwayMode $true | echo -a Away default removed.
}
alias unset.awaynick {
  unset %AwayNick | unset %AwayNick2 | echo -a Custom Away Nick Turned Off.
}
alias awaydef {
  set %AwayDef $?"What do you want your Away Default to be?" | set %AwayDef2 $true
  echo -a Away default added : %AwayDef $+ .
}
else {
  echo Invalid Parameters.
}
alias imaway {
  if (%AwayMode == $true) && (%AwayNick2 == $true) {
    set %AwayMode3 $true
    echo -a 1
    .enable #Status
    .enable #Away_Logger
    .enable #Away 
    set %status Away.
    set %awticks $ticks
    set %awnick $me
    set %reason $1-
    nick %AwayNick 
    describe # is away ( $+ %Reason : $time $+ )
    describe # : If you wish to leave me a message, private message me and it will be recieved. 
    describe # : To see my status type !Status. 
  } 
  elseif (%AwayDef2 == $true) && (%AwayNick2 == $true) {
    .enable #Status
    set %AwayMode3 $true
    echo -a 2
    .enable #Away_Logger    
    .enable #Away
    set %awnick $me
    set %awticks $ticks
    set %status Away.
    nick %AwayNick
    describe # is away ( $+ %AwayDef : $time $+ )
    describe # : If you wish to leave me a message, private message me and it will be received. 
    describe # : To see my status enter !Status.
  }
  elseif (%AwayMode == $true) {
    .enable #Status
    set %AwayMode3 $true
    echo -a 3
    .enable #Away_Logger
    .enable #Away 
    set %status Away.
    set %awticks $ticks
    set %awnick $me
    set %reason $1-
    nick $me $+ -Away
    describe # is away ( $+ %Reason : $time $+ )
    describe # : If you wish to leave me a message, private message me and it will be recieved. 
    describe # : To see my status type !Status. 
  }
  else {
    .enable #Status
    set %AwayMode3 $true
    .enable #Away_Logger
    .enable #Away
    set %status Away.
    echo -a 4
    set %awticks $ticks
    set %awnick $me
    set %reason $1-
    nick $me $+ -Away
    describe # is away ( $+ %Reason : $time $+ )
    describe # : To leave me a message, private message me and it will be recieved. 
    describe # : To see my status enter !Status.
  } 
  elseif (%AwayDef2 == $true) {
    .enable #Status
    set %AwayMode3 $true
    .enable #Away_Logger
    .enable #Away 
    set %status Away.
    set %awticks $ticks
    set %awnick $me
    set %reason $1-
    echo -a 5
    nick $me $+ -Away
    describe # is away ( $+ %AwayDef : $time $+ )
    describe # : If you wish to leave me a message, private message me and it will be recieved. 
    describe # : To see my status type !Status. 
  }
  else {
    echo -a Invalid Parameters.
  }
  else {
    echo -a Unknown Error.
  }
}
alias -l AutoAway {
  .timerautoaway 1 %AutoAway imaway Idle. [Auto-Away- $+ $calc(%AutoAway / 60) minute(s)] | .enable #AutoAway
}
alias back {
  if (%AwayMode3 == $true) {
    disable #Away_Logger
    set %AwayMode3 $false
    set %status Here.
    disable #away
    nick %awnick
    describe # is back, I have been gone for $duration($calc(($ticks - %awticks) / 1000)) $+ .
    unset %awticks
  }
  else {
    echo -a You are not away!
  }
  else {
    echo -a Invalid Parameters.
  }
}
#Away off
on *:input:*: { back }
#Away end

#Away_Logger off
on 1:open:?:*: { msg $target [Automated Message]: Your message is recieved. | echo $1- }
#Away_Logger end

#Status on
on *:text:*!Status:#: { describe # is %Status }
#Status End

#AutoAway on
on *:input:*: { if (%Status == Away) { .timerautoaway off | back | autoaway }
  else {
    .timerautoaway off | autoaway
  }
}
#AutoAway end
}