Something

off $*:TEXT:/^(brb|bbl|)/Si:#luckypc:{
  .writeini luckypc.ini away $ctime $2-
  msg $chan 3,15< $+ $nick $+ >|<Is Now Away>|<Reason>|< $+ $2- $+ >|<
}
off *:TEXT:*:#luckypc:{
  if ($readini(luckypc.ini,n,away,$nick)) {
    var %backtime1 = $ctime
    var %backrson = ($readini(luckypc.ini,n,wl,$3-))
    var %backnick = ($readini(luckypc.ini,n,wl,$nick))
    var %backtime = $calc(%backtime1 - ($readini(luckypc.ini,n,wl,$2)) 
    msg $chan 3,15< $+ %backnick $+ >|<Is Now Back>|<Time Gone>|< $+ %backtime $+ >|<Reason>|< $+ %backrson $+ >
  }
}