Miscellany

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

Alias bac {
  /amsg 7I14 am back of 7[«14 %why 7»]14 [«7 Left at:14 %time 7»]14 [«7 Gone for14 $duration($calc(($ctime - $ctime(%time)))) 7 »]
  /nick %onick
/Away }

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