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

Alias back {
  /amsg 13I am back from 11«14 %why 11» «13 Gone for14 $duration($calc(($ctime - $ctime(%time)))) 11»
  /nick %onick
/Away }

on $*:TEXT:/(\Q $+ %onick $+ \E|Miekay)/Si:*:{ If ($me == %nick) { /notice $nick 13I am currently away: 11«13 Reason:14 %why 11» «13 Left at:14 %time 11»
    %aline @window $asctime -  « $nick » - $1- 
Else { HALT }   } }