Mopolauta

.
.
.
/* For each event, read info and check if $k is 0, i.e. touched flower
            $j is the number of the apple or flower, $d is the time of the event */
      for($i = 0; $i < $no; $i++) {
         list(, $d) = unpack("d", fread($f, 8));
         list(, $j) = unpack("V", fread($f, 4));
         list(, $k) = unpack("V", fread($f, 4));
         if ($k == 0) {
            $time = $d;
         }
         if ($d != $time) {
            $time = -1;
         }
      }

.
.
.

      /* If the replay is finished, do some weird calculatinons
            and set $outtime to the time in the format 0:00,00 */
      if ($time >= 0) {
         $i = $time * 62500 / 273;
         $outtime = sprintf("%01d:%02d,%02d", $i/6000, ($i/100)%60, $i%100);
      }

      /* Else, $time is -1 which means the rec is not finished, and we set $outtime to null */
      else {
         $outtime = "";
      }
.
.
.