;By iPod

alias gone {
if { ($+(%,Away,$Me) == Yes)) {
echo 4 -t You Are Already Set As Away!
HALT
}
set $+(%,Away,Reason) $$?="Away Reason"
set $+(%,Away,$Me) Yes
set $+(%,Away,Time) $ctime
set $+(%,Away,LeaveTime) $time($gmt)
amsg I Am Away [12 $+ $+(%,Away,Reason) $+ 1] - 4I Have Been Away Since - 1[12 $+(%,Away,LeaveTime) $+ GMT1]
}

alias back {
if { ($+(%,Away,$Me) == Yes)) {
amsg I Am Back From [12 $+ $+(%,Away,Reason) $+ 1] - 4I Have Been Away For - 1[12 $duration($calc($ctime - $+(%,Away,Time) $ctime ))1]
unset $+(%,Away,*)
}
else {
echo 4 -t You Haven't Set Yourself As Away!
}
}