urban

alias c1 return $+($chr(3),07,$1-,$chr(3))
alias c2 return $+($chr(3),15,$1-,$chr(3))
alias c3 return $+($chr(3),13,$1-,$chr(3))


Alias gone { /scon -a altamsg $c1([) $+ $c3(Away) $+ $c1(]:) $c2(I'm now away) $c1([) $+ $c2(Reason) $+ $c1(]:) $c2($1-) $c1([) $+ $c2(Time Left) $+ $c1(]:) $c2($asctime(hh:nn:ss - TT))

  set %time $time

  set %time2 $asctime

  set %reason $1-

  /scon -a away $1-

}

Alias back {

  /scon -a altamsg $c1([) $+ $c3(Away) $+ $c1(]:) $c2(I'm no longer away.) $c1([) $+ $c2(Reason) $+ $c1(]:) $c2(%reason) $c1([) $+ $c2(I returned at) $+ $c1(]:) $c2($asctime(hh:nn:ss - TT))  $c1([) $+ $c2(And was gone for) $+ $c1(]:) $c2($duration($calc(($ctime - $ctime(%time2)))))

  unset %reason

  unset %time

  unset %time2

  unset %away.msg

  /scon -a away

}