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

Alias back {
  /amsg 7I am back from 4«10 %why 4» «7 Gone for10 $duration($calc(($ctime - $ctime(%time)))) 4»
  /nick %onick
/Away }

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