Mine

alias away {  
  amsg $c1(I'm now) $c2(Away) $c1(Reason:) $c2($iif(!$1,None Specified,$1-)) $c1(I left at) $c2($time) 
  %awaytime = $ctime 
  %reason = $iif(!$1,None Specified,$1-) 
  nick Nic-|Away|- 
} 
on *:text:*nic*:#: { 
  if (%reason) { 
    if ($eval($+(%,msg,$chr(46),$nick),2) != yes) { 
      notice $nick $c1(Sorry I'm away because of) $c2(%reason) $c1(I've been gone for) $c2($duration($calc($ctime - %awaytime))) $c1(This is a one time response to highlights) 
      set %msg. $+ $nick yes 
    } 
  } 
} 
alias back { 
  amsg $c1(I'm now) $c2(back) $c1(from) $c2(%reason) $c1(I was away for) $c2($duration($calc($ctime - %awaytime))) $+ $c1(.) 
  unset %msg.* 
  unset %reason 
  unset %awaytime 
  nick Nicolaj 
} 
alias c1 { return 02 $+ $1- } 
alias c2 { return 04 $+ $1- }