Mine

Alias gone { 
  /set %time $asctime
  /set %onick $me
  /set %why $2- 
  /set %nick $1
  /scon -at1 /nick %nick
  /scon -at1 /amsg I am now away: 14[7«14 Reason: %why 7»14] 14[7«14 Left at: %time 7»14]
  /scon -at1 /away 14[7«14 Reason: %why 7»14] 14[7«14 Left at: %time 7»14]  
}
Alias back {
  /scon -at1 /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] 
  /scon -at1 nick %onick 
  /scon -at1 /away
}
on $*:TEXT:/(\Q $+ %onick $+ \E|lancy|lancylotte)/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] 
    if (!$window(@Kiddo)) { window @Kiddo }
    Aline @Kiddo - $time 4 $chan 14[7«14 $nick 7»14] - 2 $1-  
  }
}