Something

Alias away { 
  set %timegone $ctime 
  set %onick $me 
  set %why $1- 
  var %zz 1 
  while ($chan(%zz)) { 
    msg $v1 3[15«3Away15»3] 14- 3Reason:14 %why 3¤ 3Left at:14 $asctime($ctime,H:nn:ss) 14(3GMT+114) 14»3] 
    inc %zz 
  } 
  away Away - %why $+ , Left at: $asctime($ctime,H:nn:ss) (GMT) 
} 

Alias back { 
  var %zz  1 
  while ($chan(%zz)) { 
    msg $v1 3[15«3Back15»3] 3from14 %why 3¤ Left at:14 $asctime(%timegone,H:nn:ss) 14(3GMT+114) 3¤ Gone for14 $duration($calc($ctime - %timegone)) 14»3] 
    inc %zz 
  } 
  away 
  unset %onick 
  unset %why 
  unset %timegone 
} 

on *:TEXT:$($+(*,$me,*)):#:{ 
  if ($away) notice $nick Hello $nick $+ , you highlighted me but I'm away right now. Reason: %why $+ . 
}