<perl>
get "rennen==$r1", "strecken";
get "rennen==$r1 sort=-fahrt,zeit", "$s","holen";

while(get_next("holen"))
   {
    mod "Id==$_id&rennen==$r1", ["platzalt_zeit", $platz_zeit], "$s";### Alte Plazierung wird vor Neuberechnung in platzalt_zeit geschrieben

    $rang = ++$rang;
    $Platz1 = $rang if($zeit ne $puffer);
    $puffer=$zeit;

      if ($versuch > 1)
       {
        $bonus = $laenge*($versuch-1)*$rang/1000; ### Bonuspunkte werden berechnet
       }
      else
       {
        $bonus = 0;
       }

      if ($fahrt > 0)
       {
        $laenge_ges1 = $versuch*$laenge; ### Gesamtkilometer
        $Punkte = $t1-$Platz1+1; ### Punkte für gefahrene Zeit
        $Punkte_ges = $t1-$Platz1+1+$bonus; ### Punkte + Bonus
        $Punkte_ges = sprintf('%.02f',$Punkte_ges);
        mod "Id==$_id&rennen==$r1", ["zeit_pkt", $Punkte, "ges_pkt", $Punkte_ges, "platz_zeit", $Platz1, "laenge_ges", $laenge_ges1, "bonus", $bonus], "$s";
       }
      else
       {
        $Punkte=0;
        $laenge_ges1 = 0;
        mod "Id==$_id&rennen==$r1", ["zeit_pkt", $Punkte, "platz_zeit", $Platz1, "laenge_ges", $laenge_ges1], "$s";
       }       
   }
<perl>