alias a {

  if ($away == $false) {

    if ($1 == $null) {

      var %reason = Gone!

    }

    else {

      var %reason = $1-

    }

    set %a.time $asctime(HH:nn:ss)

    ame is away:  $+ %reason $+  (Left at %a.time $+ )

    away %reason

  }

  else {

    var %time = $replace($duration($awaytime),hrs,hs,hr,h,mins,m,min,m,secs,s,sec,s)

    ame is back from:  $+ $awaymsg $+  (Was gone for %time $+ )

    away

  }

}



ON *:TEXT:*:*: {

  if ($me isin $1-) {

    if ($away == $false) { halt }

    else {

      var %time = $replace($duration($awaytime),hrs,hs,hr,h,mins,m,min,m,secs,s,sec,s)

      notice $nick I am currently away:  $+ $awaymsg $+  (I've been away for %time $+ )

    }

  }

}



ON *:ACTION:*:*: {

  if ($me isin $1-) {

    if ($away == $false) { halt }

    else {

      var %time = $replace($duration($awaytime),hrs,hs,hr,h,mins,m,min,m,secs,s,sec,s)

      notice $nick I am currently away:  $+ $awaymsg $+ . I've been away for %time $+ .

    }

  }

}