Something

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

Alias back { 
  /ame is 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 }   } }