Untitled

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