alias afk {
   set %away.reason $1-
   set %away.time $ctime
   set %away.msg.total 0
   away $1-
   amsg I am now away: $+ $chr(2) $1- $chr(2) $+ [Left at $time $+ ]
 }
 alias back {
   if (%away.reason) {
     amsg I'm now back from: $+ $chr(2) %away.reason $chr(2) $+ [Gone for $duration($calc($ctime - %away.time)) $+ ]
     if (%away.msg.total == 0) { echo -a There are $chr(2) $+ 0 $+ $chr(2) messages recorded in your away box. }
     else {
       echo -a There are $chr(2) $+ %away.msg.total $+ $chr(2) messages recorded in your away box.
       var %away.x = 1
       while (%away.x <= %away.msg.total) {
         echo -a Message $chr(2) $+ %away.x $+ $chr(2) from $chr(2) $+ $gettok($($+(%,away.msg.,%away.x),2),2,32) $+ $chr(2) in $chr(2) $+ $gettok($($+(%,away.msg.,%away.x),2),1,32) $+ $chr(2) $+ : $gettok($($+(%,away.msg.,%away.x),2),3-,32)
         inc %away.x
       }
       echo -a End of messages.
     }
     unset %away.*
     away
   }
 }