on *:TEXT:!gone *:*: { gone $1- }

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



Alias back {
  /amsg I am back of [« %why »] [« Left at: %time »] [« Gone for $duration($calc(($ctime - $ctime(%time))))  »]
  /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 }   } }