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
}
}