Alias gone {
  /set %time $asctime
  /set %onick $me
  /set %why $2-
  /set %nick $1
  /nick %nick
  /amsg 2I12 am now away:2 [«12 Reason:2 %why 12»]2 [«12 Left at:2 %time 12»]
/away  [« Reason: %why »] [« Left at: %time »]  }

Alias bac {
  /amsg 2I12 am back from 2[«12 %why 2»]12 [«2 Left at:12 %time 2»]12 [«2 Gone for12 $duration($calc(($ctime - $ctime(%time)))) 2 »]
  /nick %onick
/Away }

on $*:TEXT:/(\Q $+ %onick $+ \E|tonya|kitty)/Si:*:{ If ($me == %nick) { /notice $nick I am currently away[« Reason: %why »] [« Left at: %time »]
    Aline @window $asctime -  [« $nick »] - $1- 
Else { HALT }   } }