Unnamed

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

Alias imback { 
  /amsg I am back from 14[7«14 %why 7»14] 14[7«14 Left at: %time 7»14] 14[7«14 Gone for $duration($calc(($ctime - $ctime(%time))))  7»14] 
  /nick %onick 
/Away } 

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