Stuff

alias away {
  if (%away) { //echo -a I'm already away! }
  else {
    /set %away active
    /raw away $1-
    /set %away.reason $1-
    /set %away.start $ctime
    var %x = 1
    while (%x <= $chan(0)) {
      if (%x > $chan(0)) { halt }
      if ($chan(%x) == #IdleRPG) { goto meep }
      /describe $chan(%x) is now away. Reason: $1-
      :meep
      inc %x
    }
    if ($cid == 2) { scon 1 }
    elseif ($cid == 1) { scon 2 }
    var %y = 1
    /raw away $1-
    while (%y <= $chan(0)) {
      if (%y > $chan(0)) { halt }
      if ($chan(%y) == #IdleRPG) { goto beep }
      /describe $chan(%y) is now away. Reason: $1-
      :beep
      inc %y
    }
  }
}
alias back {
  if (!%away) { //echo -a I'm not away! }
  else {
    /var %away.time $replace($duration($calc($ctime - %away.start)),secs,$chr(32) $+ seconds,mins,$chr(32) $+ minutes,hrs,$chr(32) $+ hours,days,$chr(32) $+ days,wks,$chr(32) $+ weeks)
    /var %Reason %away.reason
    /away
    var %x = 1
    while (%x <= $chan(0)) {
      if (%x > $chan(0)) { halt }
      if ($chan(%x) == #IdleRPG) { goto meep }
      /describe $chan(%x) is now back from: %Reason I was gone for %away.time
      :meep
      inc %x
    }
    if ($cid == 2) { scon 1 }
    elseif ($cid == 1) { scon 2 }
    var %y = 1
    /away
    while (%y <= $chan(0)) {
      if (%y > $chan(0)) { halt }
      if ($chan(%y) == #IdleRPG) { goto beep }
      /describe $chan(%y) is now back from: %Reason I was gone for %away.time
      :beep
      inc %y
    }
    unset %away*
  }
}
on $*:TEXT:/(sk8|sk8sk8|sk8sk8113)/Si:#:{
  if (%away) {
    msg $chan I'm currently away. I have been away for $replace($duration($calc($ctime - %away.start)),secs,$chr(32) $+ seconds,mins,$chr(32) $+ minutes,hrs,$chr(32) $+ hours,days,$chr(32) $+ days,wks,$chr(32) $+ weeks)
  }
}