on *:TEXT:!addpre*:#: {
  var %rel = $strip($2)
  if ($read(c:\addpre.log , w, * $+ %rel $+ *) != $null) {
  }
  else {
    write c:\addpre.log %rel $ctime
  } 
}

on *:text:!info *:#: {
  if ($nick == XXX) {
    var %i = 0, %j = 1
    while (%i < 2) && ($read(c:\addpre.log, w, $+(*,$2,*), %j)) {
      %j = $readn
      write -l $+ %j c:\addpre.log $ifmatch $3 $4 
      inc %j
      inc %i
    }
  }
}