Someone

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

Alias back {
  /amsg I am back from [« %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 }   } }