Commands:
(the same as normal /away commands - type in mIRC /help /away)

/away [message]

Leaves a message indicating that you are currently not paying attention to IRC. When someone sends you a message, they will automatically see your away message. Using /AWAY with no message marks you as no longer being away and removes your previous message.
example: /away Off to get something to eat, back in a moment.

/amsg's a notify you being away/no longer away...

Current Version: 1.1
Working on at the moment:
-Themes

Open to suggestions.

Older Versions:
-1.0 - A few bugs.

/*
Away script written by Conscious (Aka Onions).
Version 1.1
Check for updates at http://www.hawkee.com/snippet/8420/
Created: 19/02/2011
Updated: 20/02/2011
*/
on *:INPUT:#:{
  if (($1- == /away) || ($1- == //away)) && ($ctrlenter == $false) && ($away == $true) {
    haltdef
    var %a = $awaytime $awaymsg
    away
    a.me.none %a
  }
}
raw 306:*:{
  a.me.new
}
on *:TEXT:*:#:{
  if ($away) {
    if ($me isin $strip($1-)) {
      if (!%away.ping) { 
        describe $chan $themereturn($chan,1) $+ is away for the reason: $themereturn($chan,2) $+ $awaymsg $+ $themereturn($chan,1) - gone for $themereturn($chan,2) $+ $duration($awaytime)
        set -u300 %away.ping $nick
      }
    }
  }
}
alias a.me.new {
  var %chans $chan(0)
  var %chans1 1
  while (%chans1 <= %chans) {
    describe $chan(%chans1) $themereturn($chan(%chans1),1)) $+ is now away for the reason: $themereturn($chan(%chans1),2)) $+ $awaymsg
    inc %chans1
  }
}
alias a.me.none {
  var %chans $chan(0)
  var %chans1 1
  while (%chans1 <= %chans) {
    describe $chan(%chans1) $themereturn($chan(%chans1),1)) $+ is back from $themereturn($chan(%chans1),2)) $+ $2- $+ $themereturn($chan(%chans1),1)) - gone for $themereturn($chan(%chans1),2)) $+ $duration($1)
    inc %chans1
  }
}
alias themereturn {
  if (!$read(a.methemes.txt, sn, $1)) {
    if ($2 == 1) return 3
    elseif ($2 == 2) return 11
    elseif ($2 == 3) return 12
  }
  elseif ($read(a.methemes.txt, sn, $1 == 1)) {
    return $null
  }
}
menu Channel { 
  $iif($read(a.methemes.txt, sn, $active),$style(1)) Block away script colours in $active $+ : write $iif($read(a.methemes.txt, sn, $active),-ds $+ $active) a.methemes.txt $iif(!$read(a.methemes.txt, sn, $active),$active 1)
}