gone

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] 
  /somealias parameter1 parameter2 parameter3 
} 

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*:#:{ if (%why %time ) { msg $nick i am away } }