alias away {
set %reason $1-
amsg I'm now away: $1-
set %awayctime $ctime
}
on *:text:*Christy*:*:{
if (%reason != $null) { 
notice $nick I'm currently away: %reason $chr(124) I've been away for $duration($calc($ctime - %awayctime))
}
}
alias back {
amsg I'm back from %reason $chr(124) I've been away for $duration($calc($ctime - %awayctime))
unset %reason
unset %awayctime
}