Away script

alias aaway {  if (%Away. [ $+ [ $Me ] ] != $null) { 
  echo 4 -t You're Already Set As Away. }
  else {
    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.
}
}

alias bback { if (%Away. [ $+ [ $Me ] ] == $null) {
  echo 4 -t You're Not Set As Away! You Must Do That First! }
  else {
    away 
    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

  }
}

on *:TEXT:squirl100:*:{
  if (($1 == squirl100) && (%Away. [ $+ [ $Me ] ] != $null) || (($2 == squirl100) && (%Away. [ $+ [ $Me ] ] != $null) || (($3 == squirl100) && (%Away. [ $+ [ $Me ] ] != $null) {
    notice $nick 12I Am 14AWAY12 - [14 %Away. [ $+ [ $Me ] ] 12] 12- I have Been Away For 12[14 $duration($calc($ctime - %AwayTime. [ $+ [ $Me ] ] $ctime )) 12]
  }
}


on *:TEXT:squirl:*:{
  if (($1 == squirl)&& (%Away. [ $+ [ $Me ] ] != $null) || (($2 == squirl) && (%Away. [ $+ [ $Me ] ] != $null) || (($3 == squirl) && (%Away. [ $+ [ $Me ] ] != $null) {
    notice $nick 12I Am 14AWAY12 - [14 %Away. [ $+ [ $Me ] ] 12] 12- I have Been Away For 12[14 $duration($calc($ctime - %AwayTime. [ $+ [ $Me ] ] $ctime )) 12]
  }
}