menu status,menubar {
Away System
.Status ( $+ %AwayStatus $+ ) : /AwayStatus
.Reason ( $+ %AwayReason $+ ) :/AwayReason $$?="Reason:"
}
alias AwayReason {
set -n %AwayReason $$1
echo **Away Reason Set
}
alias AwayStatus {
if (!%AwayStatus) {
set %AwayStatus 1
echo **You are now set as away! }
else {
set %AwayStatus 0
echo **You are not set as away! }
}
on *:TEXT:$($+(*,$me,*)):#: {
if (%AwayStatus)
me is away! Reason: %AwayReason
}