alias aw {
if ($1 isnum) { set %away.timer $1 }
if ($1-) { set %reason $1- }
else { set %reason None Set }
unset %aw.time
inc -c %aw.time
away %reason
nick Justine|Away
amsg 14[13»AWAY«14] I am now away,13 %reason $+ . 14 Left at13 $time $+ . }
alias ba {
nick Justine
amsg 14[13»BACK«14] I am now back from13 %reason $+ 14. Was gone for13 $duration(%aw.time) $+ .
.timer_away off
unset %reason %aw.time %away.timer %told*
back
}
on *:TEXT:Justine:*:{
if (($1 == Justine) && ($left($1,1) isupper)) && (%Away. [ $+ [ $Me ] ] != $null) {
notice $nick 12I Am 14AWAY12 - [14 %Away. [ $+ [ $Me ] ] 12] 12- I have Been Away For 12[14 $duration($calc($ctime - %AwayTime. [ $+ [ $Me ] ] $ctime )) 12]
}
}