Untitled

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 $+ .
    }
  }
}