Stuff

Alias Away {
  If ($away == $false) {
    Var %away.x = 1
    Var %away.y = $chan(0)
    Var %away.z = #idle #irchelp #swiftirc
    Var %time = $ctime
    Var %reason
    While (%away.x <= %away.y) {
      If ($chan(%away.x) !isin %away.z) {
        Describe $Chan(%away.x) is [ $+ Away $+ ] -- Reason ( 07 $+ %reason $+  ) -- Gone at $Time(hh:nn:ss)
      }
      Inc %away.x
    }
    Unset %away.*
  }
  If ($away == $true) {
    Var %away.a = 1
    Var %away.b = $Chan(0)
    Var %away.c = #idle #irchelp #swiftirc
    While (%away.a <= %away.b) {
      If ($Chan(%away.a) !isin %away.c) {
        Describe $Chan(%away.a) is [ $+ Back $+ ] from ( 07 $+ %reason $+  ). I was gone for $Duration($Calc( $Ctime - %time ).
      }
      Inc %away.a
    }
    Unset %away.*
    Unset %resaon
    Unset %time
  }
}