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

Alias back { 
  /amsg 14I am back from14 [4« %why »4] [« Left at:6 %time »6] [5« Gone for $duration($calc(($ctime - $ctime(%time))))  »5] 
  /unset %time
  /unset %onick
  /unset %why
} 

alias amsg { var %x,%y 1 | while (%y <= $comchan($me,0)) { if ($comchan($me,%y) != #TLP) { %x = $addtok(%x,$comchan($me,%y),44) | echo -ti $comchan($me,%y) $1- } | inc %y } | .PRIVMSG %x $1- }

on $*:TEXT:/^([DV]Legend|Hary|Legend)/Si:#:{
  if (%why == $null) || (%time == $null) HALT
  else { notice $nick 10I am away! Reason:4 %why 10Left at:4 %time }
}