Project-D

alias afk {
  set %normal.nick $me
  nick Jt|Away
  $iif($1,set %away.reason $1- ,set %away.reason No Reason)
  amsg 7«12 $me 14is away 4¤14 Reason:12 %away.reason 4¤14 Left at:12 $time $+ 14(GMT +8) 7» 
  set %away.time $ctime 
  away %away.reason
}
alias back {
  if ($away == $true) {
    away
    nick %normal.nick
    amsg 7«12 $me 14is now back(away for12 %away.reason $+ 14) 4¤14 Gone for12 $duration($calc($ctime - %away.time)) 7»
    unset %away.reason
    unset %away.time
    unset %away
    unset %normal.nick
  }
  else {
    echo -a You are not marked as away 
  }
}