Away script

alias aaway {
    set %Away. [ $+ [ $Me ] ] $$?="Reason For Being Away"
    set %AwayTime. [ $+ [ $Me ] ] $ctime
    set %AmIAway. [ $+ [ $Me ] ] Yes
    set %LeaveTime $time
    away  %Away. [ $+ [ $Me ] ]
  inc %awaynum 1
    amsg  I Am Now AWAY - ( %Away. [ $+ [ $Me ] ] ) - Left At: ( %LeaveTime EST ) - I have been AWAY ( %awaynum ) times.
  nick squirl|afk
}
}

alias bback {
    away 
nick squirl100
    amsg I Am Now BACK From ( %Away. [ $+ [ $Me ] ] ) - I Was Away For ( $duration($calc($ctime - %AwayTime. [ $+ [ $Me ] ] $ctime )) ) 
    unset %Away. [ $+ [ $Me ] ]
    unset %AwayTime. [ $+ [ $Me ] ]
    unset %LeaveTime
    set %AmIAway.[ $+ [ $Me ] ] No

  }
}